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

Question

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

现在需要添加一些新样式，在数字之前加长文本。例如，我需要在数字前加上“部分重申的建议”，但是这是不可能的，因为单词似乎在该字段中只有22个字符的限制。

是否可以借助VBA解决此问题（在“输入数字格式：”字段中输入长度超过22个字符的字符串）？

Answer 1

这是Word应用程序以及自动编号方式的局限性。不可能做建议作为样式的一部分。 VBA不能执行Word应用程序不支持的操作，它只能“自动”执行用户通常执行的操作。

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

1. 改为使用缩写。如果缩写应在文档的“最终版本”中写出，则可以使用VBA将编号转换为文本，然后使用“查找并替换”将缩写替换为全文。

2. 使用ListNum字段进行编号。这些可以放置在文本中的任何位置。 VBA代码可用于插入文本和域代码。