Word.Table in VBA，Change TableStyle

Question

我有一个Microsoft.Office.Interop.Word.Table，我希望它具有Word的默认“Quicktables”之一的风格。

QuickTables =插入 - >表 - > QuickTables

在德国的QuickTable被称为 “黑客帝国”，我想应该是同样的英语。

如何让我的表在我的VB应用程序中拥有此样式？

Answer 1

这些是BuildingBlocks。你可以看到，如果你从列表中插入一个条目时记录一个宏。这也将为您提供用于插入“快速表”的（VBA）语法。注意1：根据Office的版本和用户的系统配置（IT可能会更改存储BuildingBlocks模板的默认路径），确切的文件路径将有所不同。这里是我的系统的一个结果：

Application.Templates(_ 
    "C:\Users\[profile designation]\AppData\Roaming\Microsoft\Document Building Blocks\1033\14\Built-In Building Blocks.dotx" _ 
    ).BuildingBlockEntries("Calendar 2").Insert Where:=Selection.Range, _ 
    RichText:=True 

注2：BuildingBlock名称可能根据UI语言而有所不同。如果您的代码应该以各种语言运行，则需要研究文字字符串，存储它们，然后根据WordApplication.Language（文件路径中的1033，例如，用于我的安装的LangaugeID）调用相关字符串。 。注意3：对于VB.NET，将“Application”替换为用于Word.Application的对象变量名称。另外，Insert方法需要括号：Insert（Where：= Selection.Range，RichText：= True）