-1

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
4

1 に答える 1

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ステートメントを避けることでこれを高速化できると思います。

于 2013-01-13T00:09:36.483 に答える