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）