vba - Selection.FindがWordVBAですべての結果を返さないのはなぜですか？

Question

特定の書式設定ルールに基づいてドキュメントからテキストを抽出しようとしています。たとえば、フォントサイズは10.5です。これは私が今していることです：

Selection.Find.Font.Size = 10.5
Text = ""

Do While Selection.Find.Execute = True
    Text = Text + Selection
Loop

Debug.Print Text

動作しますが、何らかの理由ですべての結果が返されるわけではないようです。Ctrl + Hなどの手動検索を実行し、同じフォーマットルールを使用すると、さらに多くの結果が返されます。

何が原因でしょうか？

Answer 1

VBA+では、連結には使用されません。あなたはそれを置き換える必要があります&

に変更Text = Text + SelectionしてText = Text & Selection、再試行してください。私はそれをテストしましたが、動作します...