“selection.footnotes.count”与“selection.footnotes中的每一个脚注”

Question

我想对MS Word文档的选定部分中的脚注做一些修改。我想用一个‘对每个脚注在选择.脚注’，但这是行不通的。它返回文档中的所有脚注。我不明白为什么，因为如果我运行“selection.footnotes.count”，它只返回所选部分中的脚注，这就是我想要的。请参阅此代码，该代码可用于测试问题。

例如:在Word中键入一些行，在每一行中插入一些脚注，选择一行并运行以下代码来查看差异。有人知道我在每个脚注.‘语句中使用的语句有什么问题吗？

For Each Footnote In Selection.Footnotes
    i = i + 1
Next Footnote
MsgBox "• For ... Next: " & i & Chr(13) & _
"• Count: " & Selection.Footnotes.Count, vbOKOnly, "Number of footnotes in selection, counted using:"

Answer 1

我可以用Range和Selection对象再现您描述的内容。我不知道“为什么”；就对象模型而言，这是毫无意义的。有时，Selection会发生奇怪的事情，但Range也会发生.

我会把它归类为一个bug，但我还没有从微软那里得到任何证实。

不过，这是可行的。

For ftCounter = 1 To rng.Footnotes.Count
    Set ft = rng.Footnotes(ftCounter)
    'Debug.Print ft.Range.Text
Next