WPS文档标题一键加形状

骆驼爱记录2026-02-21 8:50

批量给标题添加指定形状的方法

在WPS文档中，可以通过样式和宏功能批量给标题添加指定形状。以下是具体操作步骤：

打开WPS文档，确保标题已应用了对应的标题样式（如标题1、标题2等）。

进入"开发工具"选项卡，点击"宏"按钮，创建一个新宏。将以下VBA代码粘贴到宏编辑器中：

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），选择"修改样式"。在格式设置中点击"边框"按钮，切换到"底纹"选项卡。选择填充颜色和图案样式，确认后所有应用该样式的标题将自动显示指定底纹。

此方法虽不是严格意义上的形状，但能实现类似的视觉效果，且操作更简便。支持多种填充效果，包括纯色、渐变和纹理填充。