使用VBA宏用自動編號替換Word文檔中的標題

Question

我有一個很大的MS Word文檔，其中包含許多標題，如下所示： “地圖X.地圖標題”。 。 問題是“ X”不是按升序排列的。 我想修復它運行的VBA宏，它將宏替換為正確的數字“ X” 。

我替換字符串沒有問題，但是我想知道應該用什么替換“ X” （與自動編號關聯的對象的類型是什么）。

每種字幕類型（例如“地圖”，“圖表”）的數字都會增加，而無需在章節內部重新啟動。

Answer 1

好的，我發現了一些可能有用的方法。 您可以添加一種Field ，該Field將為給定的參考創建自動編號序列。 因此，如果您可以將代碼設置為選擇“ X”，然后再跟隨其后，我們將以“ Map X. Map title”上方的示例為例。

MyRef = "Map"
Selection.Fields.Add(Selection.Range, , "SEQ " & MyRef, False).Update

完成后，您可能需要按ALT + F9，才能隱藏/顯示域代碼