使用VBA宏替换自动编号的Word文档中的标题

时间:2012-01-28 12:17:41

标签: vba ms-word word-vba

我有一个大型MS Word文档,其中包含很多标题,如下所示: “地图X.地图标题。”。问题是“X”不是按升序排列的。我想修复它运行VBA宏,将“X”替换为正确的数字。

我没有替换字符串的问题,但我想知道应该用什么来替换“X”(与自动编号相关的对象类型是什么)。

每种类型的标题都会出现数字(例如“地图”,“图表”),而不会在章节内重新开始。

1 个答案:

答案 0 :(得分:0)

好的,我发现了一些可能有用的东西。您可以添加一种Field类型,为给定的引用创建自动数字序列。因此,如果您可以设置代码以选择“X”,然后使用...来跟随它,我们将在上面的示例“Map X.Map title”中使用您的示例。

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

完成后,您可能需要按ALT + F9,隐藏/显示域代码