vba - 特定の単語カウント位置に移動する単語マクロ?

Question

単語数で特定の単語を検索するマクロ ソリューションを探しています。ある文書で 23,050 ワードまでだとします (私は本の長さの原稿を扱っています)。そのワードに移動できるようにしたいと考えています。通常の go-to コマンドは行またはページに移動しますが、単語には移動しません。何か案は？

Answer 1

これを試して：

Option Explicit

Sub GoToWord(lWord As Long)
    ThisDocument.Words(lWord).Select
    Selection.Collapse
End Sub

最初のコマンドは文書内の目的の単語を選択し、2 番目のコマンドはその単語の先頭にカーソルを置きます。Words使用されるコレクションには句読点が含まれていることに注意してください。