求三级标题设置VBA代码

chenwenming · 发表于 2017-10-24 08:48

本帖最后由 chenwenming 于 2017-10-24 14:26 编辑

目的：查询word文档中，以大写数字一到九组合加顿号开头的，以段落标记结束的段落，设置成三级标题，求VBA代码，谢谢！

duquancai · 发表于 2017-10-24 12:43

没附件，不好玩。。。

chenwenming · 发表于 2017-10-24 14:27

本帖最后由 chenwenming 于 2017-10-27 06:49 编辑

duquancai 发表于 2017-10-24 12:43
没附件，不好玩。。。

为什么这代码只设标题的前半部分，后半部分不设置呢？求指点
Sub AAA()
Dim MyStr As String, YouStr As String
Dim apar As Paragraph
MyStr = "第"
YouStr = "一二三四五六七八九十"
With ActiveDocument
For Each apar In .Paragraphs
   If apar.Range.Information(wdWithInTable) = False Then
      With apar.Range
         If .Find.Execute(findtext:="第[一二三四五六七八九十]{1,}章 ", Forward:=True, MatchWildcards:=True) = True And InStr(MyStr, ActiveDocument.Range(apar.Range.Start, apar.Range.Start + 1).Text) > 0 Then
         .Font.Name = "仿宋" '字体
         .Font.Bold = True '加粗
         .Font.Size = 16 '字号，14=四号；16=三号……
         .ParagraphFormat.Alignment = wdAlignParagraphCenter  '居中对齐
         .ParagraphFormat.OutlineLevel = wdOutlineLevel1 '设为标题1
            'i.Range.Style = wdStyleHeading3
         ElseIf .Find.Execute(findtext:="第[一二三四五六七八九十]{1,}节 ", Forward:=True, MatchWildcards:=True) = True And InStr(MyStr, ActiveDocument.Range(apar.Range.Start, apar.Range.Start + 1).Text) > 0 Then
         .Font.Name = "等线（中文正文）" '字体
         .Font.Bold = True '加粗
         .Font.Size = 16 '字号，14=四号；16=三号……
         .ParagraphFormat.Alignment = wdAlignParagraphCenter  '居中对齐
         .ParagraphFormat.OutlineLevel = wdOutlineLevel2 '设为标题1
         ElseIf .Find.Execute(findtext:="[一二三四五六七八九十]{1,}、", Forward:=True, MatchWildcards:=True) = True And InStr(YouStr, ActiveDocument.Range(apar.Range.Start, apar.Range.Start + 1).Text) > 0 Then
         .Font.Name = "等线（中文正文）" '字体
         .Font.Bold = True '加粗
         .Font.Size = 10.5 '字号，14=四号；16=三号……
         .ParagraphFormat.Alignment = wdAlignParagraphLeft  '居中对齐
         .ParagraphFormat.OutlineLevel = wdOutlineLevel3  '设为标题1
         End If
      End With
   End If
Next
End With

End Sub

chenwenming · 发表于 2017-10-27 08:50

duquancai 发表于 2017-10-24 12:43
没附件，不好玩。。。

在吗？等等等

duquancai · 发表于 2017-10-27 09:25

chenwenming 发表于 2017-10-27 08:50
在吗？等等等

不好意思，没兴趣。

chenwenming · 发表于 2017-10-27 09:48

duquancai 发表于 2017-10-27 09:25
不好意思，没兴趣。

哎，我晕了，谢谢回复！

		自动登录	找回密码
密码			免费注册

[求助] 求三级标题设置VBA代码