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

我有一个MS Word宏，它除了第一个宏之外，还合并了文档中的所有表。为每个部分下的所有表运行VBA宏

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并继续选择一个接一个的整个部分。

来源

2015-01-14 user857990

使用变通办法，方法是始终在标题部分的第一个表格中添加标题，然后在合并标题匹配前进行检查。这样，它可以保持'用ActiveDocument' – user857990

你会希望寻找到StoryRangesMSDN Reference

此链接CLICK HERE有一些重要的资源通过不同StoryRanges做一个Find和Replace但你可以删除代码，并使用自己的代码的目的循环取而代之。

来源

2015-01-14 15:55:35 Chrismas007

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

回答

相关问题