如何创建Microsoft Word工具栏按钮插入预制组合形状、表格或自定义印章？

一、先把组合印章存为「构建基块」（最便捷的前置操作） #

先手动制作好包含图形+可编辑表格的组合印章，选中整个组合对象后：

1. 点击「插入」选项卡 → 「文档部件」 → 「将所选内容保存到文档部件库」
2. 在弹出窗口中设置：
   • 名称：比如「审核专用组合印章」
   • 库：选择「构建基块」
   • 类别：可自定义（例如「机构印章」）
   • 保存位置：选「Normal.dotm」（确保所有Word文档都能调用）

二、编写宏调用构建基块 #

打开Word的VBA编辑器（快捷键Alt+F11），插入新模块，粘贴以下代码：

Sub InsertReviewStamp()
    ' 将预设的构建基块插入到光标位置
    ActiveDocument.AttachedTemplate.BuildingBlockEntries("审核专用组合印章").Insert _
        Where:=Selection.Range, RichText:=True
End Sub

注意：把代码中的「审核专用组合印章」替换成你刚才保存的构建基块实际名称

三、给宏添加工具栏按钮 #

1. 右键点击Word工具栏空白区域 → 「自定义快速访问工具栏」
2. 在「Word选项」窗口中：
   • 左侧选择「快速访问工具栏」
   • 右侧「从下列位置选择命令」下拉框选「宏」
   • 找到你创建的InsertReviewStamp宏，点击「添加」
3. 可选操作：选中添加的宏，点击「修改」，为按钮设置一个辨识度高的图标（比如印章样式）

四、直接用宏生成组合对象的备选方案（无需存构建基块） #

如果想直接通过宏生成图形+表格的组合，可参考以下示例代码（根据实际需求调整尺寸、位置、样式参数）：

Sub CreateCombinedStamp()
    Dim shp As Shape
    Dim tbl As Table
    
    ' 插入圆形作为印章外框
    Set shp = ActiveDocument.Shapes.AddShape(msoShapeOval, Selection.Information(wdHorizontalPositionRelativeToPage), _
        Selection.Information(wdVerticalPositionRelativeToPage), 100, 100)
    shp.Fill.Visible = msoFalse
    shp.Line.Weight = 2
    
    ' 插入可编辑表格
    Set tbl = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=2, NumColumns:=2)
    tbl.Borders.Enable = True
    tbl.Cell(1, 1).Range.Text = "审核人"
    tbl.Cell(1, 2).Range.Text = "日期"
    
    ' 组合图形与表格
    ActiveDocument.Shapes.Range(Array(shp.Name, tbl.Range.ShapeRange.Name)).Group
End Sub

内容的提问来源于stack exchange，提问作者kblunt333