为什么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，然后重试。我测试了它，它的工作原理......