vba - Word 文書の各文字を繰り返す

Question

特定の単語文書の各文字を反復処理する必要があります。私はオブジェクト モデルにある程度精通していますが、これを詳細にする方法を理解できませんでした。

どのアプローチでも機能します (マクロ、相互運用、アドイン、または OLE 埋め込み)。

Answer 1

何が問題になっていますか

For Each ch In ActiveDocument.Characters

？

Answer 2

それに対する手動のアプローチは次のとおりです。カーソルが「右矢印キー」だけを使用してドキュメント全体を移動できる限り、「通常の」ドキュメントで機能すると確信しています。

サブ温度()

'ドキュメントの最初の文字を選択 Selection.HomeKey Unit:=wdStory

'ここからメインループが始まります

'選択中' にカーソルを 1 文字右に移動 (Extend:=WdExtend Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend

'これで 1 キャラクターが選択されました。選択したテキストで実行したいことが何であれ、ここにコードを挿入します

「ここで「実質的に」右矢印を押して Selection.MoveRight Unit:=wdCharacter, Count:=1 の選択を解除します

'メイン ループを繰り返します。このコード スニペットにはまだ終了句がないことに注意してください。さらにコーディングすると、Wordがロックされます;）

「ハッピープロギング！

サブ終了