在 MS Word 2007 中使用 VBA 定义页面元素？

Question

我希望能够创建一个页面元素，我可以在其中输入文本，并且它将自行形成首选布局。例如：

{MACRO DocumentIntro("Introduction to Business Studies", "FP015", "Teachers' Guide")}

将其作为字段，输出应该是一行，前两个字符串具有一定的大小和字体，居中，另一行，然后第三个字符串具有字体、大小和居中。

我知道这有点像 TeX，可能超出了 VBA 的范围，但如果有人知道它是如何实现的，请告诉我！

编辑：

好的，如果我将所需的信息作为文档属性的一部分放入关键字中，并使用某种唯一的分隔符，那么就会获取该信息，并且该信息对于每个文档都是唯一的。下一步是在要显示内容的地方放置一个书签。然后创建一个 AutoOpen 宏，该宏转到该书签，从关键字中提取相关内容，并将文本适当地形成到书签的 .Selection 中。

这可行吗？

Answer 1

对于编码解决方案，您肯定走在正确的道路上。但是，有一种无需代码的简单方法 - Word 2007 中的内容控件就是针对这种情况而构建的，并且通过字段/属性，您可以绑定到内容控件 (CC)。这些 CC 可以保存样式（如居中、粗体等）。无需 VBA。

最简单的方法是选择 3 个您始终希望使用的内置文档属性。例如，“标题”可能是您的第一个字符串，“主题”是您的第二个字符串，“关键字”是您的第三个字符串。然后，只需转到插入功能区、快速部件、文档属性，然后按照您喜欢的方式插入、放置和设置它们的格式。然后转到 Word 的开始按钮（球形物体），然后在准备下选择属性。在这里，您可以在标题框中键入“商业研究简介”，然后以某种方式取消选择它（例如单击另一个框）。 标题的内容控件将自动填充您的文本。

如果您想将其用于多个文件，只需将此文件创建为 .dotx（在 CC 插入/放置/格式化之后和更新文档属性文本之前）。然后每次您所要做的就是为每个新文件设置这三个属性。

Answer 2

嗯，是的，事实证明这是可行的。

Sub autoopen()
    Dim sKeywords As String
    sKeywords = ActiveDocument.BuiltInDocumentProperties(4)
    ActiveDocument.Bookmarks("foo").Select
    Selection.Text = sKeywords
End Sub

好吧，我还有一些事情要做，但至少它的内容已经存在了。