VBA 在 MS-Word 中更改标题编号

如何解决VBA 在 MS-Word 中更改标题编号

如何使用 VBA 代码更改 MS-Word 中的标题编号？ 例如，“1.1 计算机系统”，我想将 VBA 代码中的“1.1”更改为“1.2”。我可以阅读它：

USING

但是，我找不到用 VBA 代码更改它的方法。 有人可以帮我吗？感谢您的帮助！

1. 基本功能测试

1.1. LED 功能测试目的：确保所有 LED 功能都符合产品规格资源要求：

上下文如上所示。这份文件有很多标题编号。有时，我会从另一个文档中复制一些粘贴到本文档中。粘贴的标题编号不正确。我想用 VBA 代码更正标题编号。我试图记录宏。但是，录制的宏是空的。

解决方法

要强制标题 2 从 1.2 开始编号，您只需要：

ActiveDocument.Styles(wdStyleHeading2).ListTemplate.ListLevels(2).StartAt = 2

然而，您的更新表明您正在尝试做一些完全不同的事情。

在文档之间复制/粘贴时保留原始编号的唯一可靠方法是：

• 在复制前将源编号转换为静态文本；或
• 将复制的内容粘贴为无格式文本。