[VBA] WPS 修改段落、表格、标题的宏

file:[修改表格样式，边框和内边框，以及表格内的段落样式，WPS]
Sub ChangeTableStyle()
    Dim tbl As Table
    Dim para As Paragraph
    For Each tbl In ActiveDocument.Tables
        With tbl
            ' 设置表格边框样式
            .Borders.Enable = True
            .Borders.InsideLineStyle = wdLineStyleSingle
            .Borders.OutsideLineStyle = wdLineStyleSingle
            .Borders.OutsideLineWidth = wdLineWidth150pt ' 适中粗度
            .Borders.InsideLineWidth = wdLineWidth0100pt ' 适中粗度
            
            ' 设置表格居中
            .Rows.Alignment = wdAlignRowCenter
            .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
            For Each Cell In tbl.Range.Cells
                Cell.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter ' 水平居中
                Cell.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter ' 垂直居中
             Next Cell
            
            ' 设置表格内文字样式
            .Range.Font.Size = 16
            .Range.Font.Bold = False
            .Range.Font.Italic = False
            .Range.Font.Name = "仿宋_GB2312"
            .Range.ParagraphFormat.LineSpacing = 12 ' 单倍行距
            .Range.ParagraphFormat.FirstLineIndent = 0
            .Range.ParagraphFormat.SpaceBefore = 0
            .Range.ParagraphFormat.SpaceAfter = 0
        End With
    Next tbl

End Sub

file:[修改段落样式，除表格内的段落样式，WPS]
Sub ChangeParagraphStyle()
    Dim para As Paragraph
    
    ' 遍历所有段落
    For Each para In ActiveDocument.Paragraphs
        With para
            ' 判断是否为表格段落
            If .Range.Tables.Count = 0 Then
                ' 修改非表格段落的样式
                ' 修改段落样式，比如将字体颜色设置为红色

                .Range.Font.Color = wdColorBlack
                ' 设置其他样式，比如字体大小、加粗、斜体等
                .Range.Font.Size = 16
                .Range.Font.Bold = False
                .Range.Font.Italic = False
                .Range.Font.Name = "仿宋_GB2312"
                .Format.CharacterUnitFirstLineIndent = 2  ' 此处设为2个字符
                .Format.SpaceBefore = 0
                .Format.SpaceAfter = 0
                .Format.LineSpacingRule = wdLineSpaceExactly
                .Format.LineSpacing = 28
            End If
        End With
    Next para
End Sub

file:[修改标题一的样式，WPS]
Sub ChangeTitle1Style()
    Dim para As Paragraph

    ' 遍历所有段落
    For Each para In ActiveDocument.Paragraphs
        With para
            ' 判断是否为表格段落
            If .Style = "标题 1" Then
                .Range.Font.Color = wdColorBlack
                ' 设置其他样式，比如字体大小、加粗、斜体等
                .Range.Font.Size = 16
                .Range.Font.Bold = True
                .Range.Font.Italic = False
                .Range.Font.Name = "仿宋_GB2312"
                .Format.CharacterUnitFirstLineIndent = 2  ' 此处设为2个字符
                .Format.SpaceBefore = 0
                .Format.SpaceAfter = 0
                .Format.LineSpacingRule = wdLineSpaceExactly
                .Format.LineSpacing = 28
             End If
        End With
    Next para
End Sub