Word宏停止在文档的3/4处，而不是在结尾处

Question

有人在2007年为我创建了这个，并且它一直非常有用，但直到文档结束才会运行...

你可以为我修复它，或者建议另一个解决方案（一个带有热键的宏，我可以一直按下直到文档结尾）？

Sub Space()

Selection.HomeKey wdStory
For i = 0 To ActiveDocument.ComputeStatistics(wdStatisticCharacters)
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=" "
Next
End Sub

Answer 1

你并没有真正说出什么是错的，但也许它不允许空间，并且空间数量不足。如果是这样，那么这可能会解决它。我将wdStatisticCharacters更改为wdStatisticCharactersWithSpaces：

Sub Space()
Dim i As Long

Selection.HomeKey wdStory
For i = 0 To ActiveDocument.ComputeStatistics(wdStatisticCharactersWithSpaces)
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=" "
Next
End Sub

我没有对Word编程太多，但我猜这可以通过避免Selection语句来加速。