ドキュメント内の特定の色のテキストをすべて検索して、デバッグウィンドウに印刷したいと思います。
Sub FindText()
Selection.Find.Font.Color = 3539877
Selection.Find.Execute
Debug.Print Selection
End Sub
問題は、すべての結果を一度に印刷したいのに、次の結果しか表示されないことです。私の知る限り、「FindAll」メソッドは使用できません。たぶん、すべての検索結果を含む配列にアクセスできます。
また、少し関係がないのですが、すべての結果を印刷する代わりにクリップボードにコピーすることは可能でしょうか?