vba - 为什么 Selection.Find 不返回 Word VBA 中的所有结果？

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。我已经对其进行了测试，并且可以正常工作...