爲每個部分下的所有表運行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宏

回答

相關問題