我想在文档中找到具有某种颜色的所有文本并将其打印在调试窗口中。
Sub FindText()
Selection.Find.Font.Color = 3539877
Selection.Find.Execute
Debug.Print Selection
End Sub
问题是它只给我下一个结果,而我想一次打印所有结果。据我所知,“FindAll”方法不可用。也许我可以访问一个包含所有查找结果的数组。
此外,稍微无关,是否可以将所有结果复制到剪贴板而不是打印它们?