将自定义词模板图标插入到词模板表中

Question

我已经集成了一个选项卡名称“Philip Prosenber”和一个按钮（还为此按钮添加了自定义灯泡图标）以使用 office 自定义 UI 编辑器运行 VBA 宏。

我的 .docm 模板“Springer Publishing”如下所示：

我的计划是为用户插入一个文本框，以便他们可以使用如下所示的预定义格式（满足所有要求）：

但有人建议我这样做：

1. 使用表格，否则灯泡不会自动在文本框中垂直居中。
2. 使用快速部件/构建块而不是使用代码。

所以我使用以下代码将表格输入到 .docm 模板中：

Sub Insert_Table_Textbox()
    Set newDoc = ActiveDocument
    Set mytable = _
     newDoc.Tables.Add(Range:=Selection.Range, NumRows:=1, _
     NumColumns:=2)
    mytable.Cell(1, 1).SetWidth ColumnWidth:=InchesToPoints(1.3), RulerStyle:=wdAdjustNone
    mytable.Cell(1, 2).SetWidth ColumnWidth:=InchesToPoints(5.3), RulerStyle:=wdAdjustNone
    mytable.Shading.BackgroundPatternColor = -603917569
    mytable.Cell(1, 2).Range.InsertAfter "<Enter information content here>"
    mytable.Cell(1, 1).Range.InsertAfter "icon" ''here I need to select insert icon which I already have embedded in given template.
    mytable.Cell(1, 2).Range.Select

End Sub

如何在单元格 1 中插入灯泡图标？这样它应该看起来像我需要的表。 灯泡图标已由 Microsoft 使用自定义用户界面编辑器添加到模板中。

注意：我同时使用 MS word 2010-13。 .docm 模板，以便任何人都可以使用它。

Answer 1

您需要调整单元格的垂直对齐方式和段落格式。这是一个示例代码，您应该修改它以与您现有的代码集成。

With ActiveDocument.Tables(1).Cell(1, 1).Range
    .ParagraphFormat.Alignment = wdAlignParagraphCenter
    .Cells.VerticalAlignment = wdCellAlignVerticalCenter
End With

Answer 2

一种不需要代码的替代方法。

确保文档已保存为模板（.dotx 或 .dotm） 根据需要添加一个包含两个单元格的表格和格式。根据需要插入图标和大小。将内容控件（请参阅开发人员选项卡）插入要插入文本的单元格中。 选择表格并从“插入”选项卡中选择“快速部件”，然后将所选内容保存到“快速部件库”

在对话框中为您的构建块命名并为其选择合适的图库。默认情况下不显示“自定义”画廊，因此对于自定义功能区选项卡很有用。

现在删除您创建的表。

为您的模板编辑功能区 xml 以添加您保存构建块的库。

<control idMso="CustomTablesGallery" size="large" label="Custom Tables" />

用户将从图库中插入构建块。

您现在有一个独立的模板，可以分发给其他用户，而不依赖于其他文件。