Word宏自动添加标题形状技巧

使用宏自动添加形状

打开Word文档，按下Alt+F11进入VBA编辑器。在ThisDocument中粘贴以下代码，修改strTitle为需要匹配的标题文本，shapeType为所需的形状类型（如msoShapeRectangle）：

Sub AddShapeUnderTitles() Dim para As Paragraph Dim shp As Shape Dim strTitle As String Dim shapeType As MsoAutoShapeType strTitle = "需要匹配的标题文本" '修改为实际标题内容 shapeType = msoShapeRectangle '修改为需要的形状类型 For Each para In ActiveDocument.Paragraphs If para.Range.Text Like strTitle & "*" Then Set shp = ActiveDocument.Shapes.AddShape(shapeType, _ para.Range.Information(wdHorizontalPositionRelativeToPage), _ para.Range.Information(wdVerticalPositionRelativeToPage) + 20, _ 100, 30) '宽度100pt，高度30pt shp.WrapFormat.Type = wdWrapInline End If Next para End Sub

运行宏后，所有匹配标题下方将插入指定形状。形状尺寸和位置参数可根据需求调整。

通过查找替换功能实现

选中特定标题样式（如"标题1"），使用"查找和替换"对话框的"特殊格式"功能定位所有标题。在"替换为"选项中插入形状：

1. 按Ctrl+H打开替换对话框
2. 在"查找内容"选择"样式→标题1"
3. 在"替换为"点击"特殊格式→剪贴板内容"
4. 先复制一个做好的形状到剪贴板
5. 执行全部替换

使用Office JS脚本（Word在线版）

对于Word Online版本，可通过Office JS API实现批量操作：

Word.run(function(context) { var paragraphs = context.document.body.paragraphs; context.load(paragraphs, 'text, font'); return context.sync().then(function() { for (var i = 0; i < paragraphs.items.length; i++) { if (paragraphs.items[i].font.bold) { // 根据实际条件判断标题 var shape = paragraphs.items[i].insertInlineShapeFromBase64( 'base64编码的形状数据', Word.InsertLocation.after); shape.width = 100; shape.height = 30; } } return context.sync(); }); });

使用Word模板功能

创建包含预设形状的标题样式：

1. 设计一个标题样式（如"带形状标题1"）
2. 在该样式的段落格式中设置"边框和底纹"
3. 选择"方框"或"自定义"边框样式
4. 在"选项"中设置距正文的距离
5. 应用该样式到所有需要添加形状的标题

对于更复杂的形状，可将形状与标题组合后保存为"构建基块"，通过快速部件库批量应用。