使用宏脚本,批量设置Word的标题样式

 Sub 标题正文()
        ' 获取当前选定区域的文本范围
        Set doc = ActiveDocument
        Dim rng As Range
        Dim page_number As Integer
        page_number = InputBox("请输入起始页码:", "起始页码", 1)
        Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=Number
        Set rng = Selection.Range.Duplicate
        rng.End = doc.Range.End
                              
        ' 获取列表的层级
        Dim para As Paragraph
        For Each para In rng.Paragraphs
            ' 检查段落是否为标题样式(例如标题1、标题2等)
            If para.OutlineLevel = 1 Then  '  一级标题
                para.Range.Font.Bold = False
                para.Range.Style = ActiveDocument.Styles("GJB标题 1")
            ElseIf para.OutlineLevel = 2 Then  '  二级标题
                para.Range.Font.Bold = False
                para.Range.Style = ActiveDocument.Styles("GJB标题 2")
            ElseIf para.OutlineLevel = 3 Then  '  三级标题
                para.Range.Font.Bold = False
                para.Range.Style = ActiveDocument.Styles("GJB标题 3")
            ElseIf para.OutlineLevel = 4 Then  '  四级标题
                para.Range.Font.Bold = False
                para.Range.Style = ActiveDocument.Styles("GJB标题 4")
            ElseIf para.OutlineLevel = 5 Then  '  五级标题
                para.Range.Font.Bold = False
                para.Range.Style = ActiveDocument.Styles("GJB标题 5")
            ElseIf para.OutlineLevel = 6 Then  '  六级标题
                para.Range.Font.Bold = False
                para.Range.Style = ActiveDocument.Styles("GJB标题 6")
            ElseIf para.OutlineLevel = 7 Then  '  七级标题
                para.Range.Font.Bold = False
                para.Range.Style = ActiveDocument.Styles("GJB标题 7")
            ElseIf para.OutlineLevel = 8 Then  '  八级标题
                para.Range.Font.Bold = False
                para.Range.Style = ActiveDocument.Styles("GJB标题 8")
            ElseIf para.OutlineLevel = 9 Then  '  九级标题
                para.Range.Font.Bold = False
                para.Range.Style = ActiveDocument.Styles("GJB标题 9")
            End If
        Next para
        MsgBox "标题样式已修改完毕。", vbInformation, "操作完成"
    End Sub


  • 1
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值