查找特定格式段落的VBA

ke3088

向您求教：
问题一，查找如下格式的段落，段落字符长度不定，并且段落末没有！？。；：标点符号：
一、××××××××××××××××××××××××××××
二、×××××
三、××××××××××××××××××××××××
四、××××××××××××××××××××××××××××××××××××××××××
……　等等
找到后，将全段字体变成黑体三号

问题二，查找如下格式的段落，段落字符长度不定，并且段落末没有！？。；：标点符号：
（一）××××××××××××××××××××××××××××
（二）×××××
（三）××××××××××××××××××××××××
（四）××××××××××××××××××××××××××××××××××××××××××
……　等等
找到后，将全段字体变成楷体_GB2312三号
谢谢

wdpfox

实质是设置标题

duquancai

早就写过了！论坛有，自己找找！！！

13907933959

（略）……。

413191246se

徒弟139 也参与了，好！——楼主，我的《Word2003通用模板宏（2018元旦版）》公文排版只须按 F8 键就能实现你的要求。

413191246se

（略）。。。。。。

13907933959

413191246se 发表于 2018-3-16 09:40
徒弟139 也参与了，好！——楼主，我的《Word2003通用模板宏（2018元旦版）》公文排版只须按 F8 键就能实现 ...

师傅好！
师傅的代码完美！
您这个“<[一二三四五六七八九十百零千]@、*^13”表达式，前面的 < 是什么意思？

ke3088

413191246se 发表于 2018-3-16 14:28
徒弟139也参与了，好！——楼主，我的《Word2003通用模板宏（2018元旦版）》也能实现你的要求，只须按 F8  ...

413191246se兄，已成，就是这个效果，太棒了，谢谢您！

duquancai

ke3088 发表于 2018-3-17 10:06
413191246se兄，已成，就是这个效果，太棒了，谢谢您！

写个问题一的代码，问题二完全类似！！！！

1. Sub Title_问题一()
   
2.     ActiveDocument.Range(0, 0).InsertBefore vbCr
   
3.     With ActiveDocument.Content.Find
   
4.         .Text = "^13[一二三四五六七八九十百零千]@、[!^13]@[!！？。；：]^13"
   
5.         .MatchWildcards = -1
   
6.         Do While .Execute
   
7.             With .Parent
   
8.                 If Not .Information(12) Then
   
9.                     With .Paragraphs(2).Range.Font
   
10.                         .Name = "楷体_GB2312"
    
11.                         .Name = "Times New Roman"
    
12.                         .Size = 16
    
13.                         .Bold = True
    
14.                     End With
    
15.                 End If
    
16.             End With
    
17.         Loop
    
18.     End With
    
19.     ActiveDocument.Paragraphs(1).Range.Text = Empty
    
20. End Sub

复制代码

duquancai

13907933959 发表于 2018-3-17 09:42
师傅好！
师傅的代码完美！
您这个“

< 这个是不可靠的。慎用！！！
举个例子：文档中有如下段落（红色的为一个段落，这种编号处于段中而非处于段首！）
一、××××××××××××××××××××××××××××
二、×××××
我们的意见：一、应该这样
三、××××××××××××××××××××××××
四、××××××××××××××××××××××××××××××××××××××××××