vba - 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语句来加快速度。