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

发布于 2024-12-29 06:15:02 字数 253 浏览 0 评论 0原文

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

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

每种类型的标题(例如“地图”、“图表”)的数字都会上升,而无需在章节内重新启动。

I have a large MS Word document with a lot of captions named like this:
"Map X. Map title.". The problem is that the "X" are not in ascending order. I'd like to fix it running VBA macro that will replace the "X" to a right number.

I have no problem with replacing strings but I would like to know what should I replace the "X" with (what is the type of object associated with automated numbering).

The numbers will go up for every type of Caption (e.g. "Map", "Chart"), without restarting inside chapters.

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

评论(1

静水深流 2025-01-05 06:15:02

好的,我找到了一些可能有帮助的东西。您可以添加一种类型的Field,它将为给定的参考创建自动编号规则。那么,我们是否会以上面的“地图 X.地图标题”为例,如果您可以将代码设置为选择“X”,然后跟随它...

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

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

Okay, I found something that might help. There is a type of Field that you can add that will create a automatic number sequence for a given reference. So will we take your example above "Map X. Map title", if you can set you code to select 'X' and then follow it with...

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

Once that's done you may need to press ALT+F9, to hide/show the Field codes

~没有更多了~
我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
原文