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

使用宏自动添加形状打开Word文档按下AltF11进入VBA编辑器。在ThisDocument中粘贴以下代码修改strTitle为需要匹配的标题文本shapeType为所需的形状类型如msoShapeRectangleSub 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使用查找和替换对话框的特殊格式功能定位所有标题。在替换为选项中插入形状按CtrlH打开替换对话框在查找内容选择样式→标题1在替换为点击特殊格式→剪贴板内容先复制一个做好的形状到剪贴板执行全部替换使用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在该样式的段落格式中设置边框和底纹选择方框或自定义边框样式在选项中设置距正文的距离应用该样式到所有需要添加形状的标题对于更复杂的形状可将形状与标题组合后保存为构建基块通过快速部件库批量应用。