为每个部分下的所有表运行VBA宏

Question

我有一个MS Word宏，除了第一个之外，还会合并文档中的所有表。

Dim rng As Range
Dim i As Long
With ActiveDocument
    For i = .Tables.Count To 3 Step -1
        Set rng = .Tables(i).Range
        rng.Collapse wdCollapseStart
        rng.Start = .Tables(i - 1).Range.End
        rng.Delete
    Next i
End With

现在，我希望它不是运行在所有表上，而是运行在每个部分标题下的所有表中。这怎么可能？

或者，不是ActiveDocument使用Selection而是继续选择整个部分。

Answer 1

您将要查看StoryRanges MSDN Reference

为了执行StoryRanges和Find，此链接CLICK HERE在循环浏览不同的Replace方面有一些很好的资源，但您可以删除该代码并使用自己的代码代码代替。