WPS文档标题一键加形状
批量给标题添加指定形状的方法
在WPS文档中，可以通过样式和宏功能批量给标题添加指定形状。以下是具体操作步骤：
打开WPS文档，确保标题已应用了对应的标题样式（如标题1、标题2等）。
进入"开发工具"选项卡，点击"宏"按钮，创建一个新宏。将以下VBA代码粘贴到宏编辑器中：
Sub AddShapeToHeadings() Dim heading As Paragraph Dim shp As Shape For Each heading In ActiveDocument.Paragraphs If heading.Style = "标题1" Or heading.Style = "标题2" Then Set shp = ActiveDocument.Shapes.AddShape(msoShapeRectangle, _ heading.Range.Information(wdHorizontalPositionRelativeToPage), _ heading.Range.Information(wdVerticalPositionRelativeToPage), _ 100, 20) shp.TextFrame.TextRange.Text = heading.Range.Text shp.Fill.ForeColor.RGB = RGB(200, 230, 255) shp.Line.ForeColor.RGB = RGB(0, 0, 128) End If Next heading End Sub修改代码中的形状类型（msoShapeRectangle）、大小（100,20）和颜色（RGB值）以满足需求。WPS支持的形状常量包括：
- msoShapeRectangle
- msoShapeRoundedRectangle
- msoShapeOval
- msoShapeDiamond
运行宏后，所有指定级别的标题将被添加对应的形状。如需调整形状位置，可修改代码中的wdHorizontalPositionRelativeToPage和wdVerticalPositionRelativeToPage参数。
使用样式直接设置标题形状
WPS文字提供了通过样式直接为标题添加底纹的功能：
右键点击"样式"面板中的标题样式（如标题1），选择"修改样式"。在格式设置中点击"边框"按钮，切换到"底纹"选项卡。选择填充颜色和图案样式，确认后所有应用该样式的标题将自动显示指定底纹。
此方法虽不是严格意义上的形状，但能实现类似的视觉效果，且操作更简便。支持多种填充效果，包括纯色、渐变和纹理填充。