如何以编程方式在 Word 中调出文档属性窗口并转到“摘要”选项卡？答案

【问题标题】：How can I programmatically bring up the document properties window in Word and go to the Summary tab?如何以编程方式在 Word 中调出文档属性窗口并转到“摘要”选项卡？
【发布时间】：2011-03-18 12:21:19
【问题描述】：

我正在为 Microsoft Word 开发一个 VB6 COM 插件，并且我在功能区中添加了一个按钮，它将文档保存到数据库中。但是在保存文档之前，我想将用户带到文档属性窗口，以便他们可以填写文档的属性（如 Title、Subject 和作者）。我正在使用以下语句来调出窗口：

Application.Dialogs(750).Display

这很好用，但默认情况下会向他们显示“常规”选项卡。 Title、Subject 和 Author 字段位于“摘要”选项卡上。有什么办法可以调出此对话框并将其强制转到 Summary 选项卡？我考虑过发送击键，但选项卡没有与之关联的热键。

我需要它在 Word 2007 和 Word 2010 中工作。上面的行在 Word 2003 中已经可以正常工作，因为 2003 没有多选项卡属性窗口。

【问题讨论】：

标签： vba ms-word office-addins word-automation

【解决方案1】：

您可以为此打开一个单独的框（适用于 Word 2000、2003、2007 和 2010）：

Application.Dialogs(wdDialogFileSummaryInfo).Display

或

Application.Dialogs(86).Display

您也可以针对此对话框进行编程。示例见here。

【讨论】：

谢谢！我昨天尝试将 wdDialogFileSummaryInfo 与 Display 方法一起使用，但我发现它没有保存输入到对话框中的任何内容。事实证明，您需要改用 Show 方法。一旦我尝试过，它就像一个魅力！

【解决方案2】：

您可以录制一个宏，然后根据需要执行它。

【讨论】：

谢谢，但是当您打开文档属性对话框时，宏中没有任何记录。

【解决方案3】：

将 .Display 更改为 .Show 有效，除非按 ESC 会出现错误，因此您必须将其包装在 On Error Resume Next 中（不知道为什么）。

Sub CustomProperties()
    On Error Resume Next
        Application.Dialogs(750).Show
End Sub

【讨论】：