使用 VBA 自定义 Word 多级列表选项答案

【问题标题】：Customize Word multilevel list options with VBA使用 VBA 自定义 Word 多级列表选项
【发布时间】：2019-02-20 02:28:21
【问题描述】：

我正在更新一个 Word 文档的模板，该模板使用了我已经适应的多种样式，以在多级列表中包含数字之前的文本，以便在准备文档期间自动添加该文本。我添加了一些新的列表样式，并在“输入数字格式：”字段中，在数字之前添加了一些文本，例如我已链接到样式的“建议 1”。当用户点击该样式时，word 会自动依次输入单词 Recommendation 和相应的数字。

现在需要添加一些新样式，在数字前添加更长的文本。例如我需要在数字前加上“Partially Reiterated Recommendation”，但这是不可能的，因为 word 似乎在这个字段上只有 22 个字符的限制。

有没有办法在 VBA 的帮助下解决这个问题（在“输入数字格式：”字段中输入一个超过 22 个字符的字符串）？

【问题讨论】：

VBA 似乎对样式的 numberformat 属性有相同的限制。

标签： vba ms-word

【解决方案1】：

这是 Word 应用程序的限制以及自动编号的工作方式。作为风格的一部分，不可能做建议的事情。 VBA 不能做 Word 应用程序不支持的事情，它只能“自动化”通常由用户完成的操作。

您可以尝试在最终用户组中询问解决方法。马上想到两种可能性：

改为使用缩写。如果缩写应该写在文档的“最终版本”中，使用 VBA 可以将编号转换为文本，然后使用查找和替换将缩写替换为全文。
使用ListNum 字段进行编号。这些可以放置在文本中的任何位置。 VBA 代码可用于插入文本和域代码。

【讨论】：

谢谢辛迪！我们决定使用缩写，因为我终于确定无法按要求解决。