查找特定格式段落的VBA

413191246se

谢谢 杜先生！果真是这样！——但为什么我用“<”号代表是顶格第一个字符，怎么会不对呢？
只好改为^13打头吧！——请楼主用下面的代码：

1. Sub Title2_you()
   
2.     With Selection
   
3.         .HomeKey unit:=wdStory
   
4.         .Find.ClearFormatting
   
5.         Do While .Find.Execute("^13[一二三四五六七八九十百零千]@、*^13", , , 1, , , 1)
   
6.             .MoveStart unit:=wdCharacter, Count:=1
   
7.             If .Information(wdWithInTable) = False Then
   
8.                 If Selection Like "*[!。：；，、！？…-]?" Then
   
9.                     With .Font
   
10.                         .Name = "黑体"
    
11.                         .Name = "Times New Roman"
    
12.                         .Size = 16
    
13.                         .Bold = True
    
14.                     End With
    
15.                 End If
    
16.             End If
    
17.             .EndKey unit:=wdLine
    
18.         Loop
    
19.     End With
    
20. End Sub
    
21. Sub Title3_you()
    
22.     With Selection
    
23.         .HomeKey unit:=wdStory
    
24.         .Find.ClearFormatting
    
25.         Do While .Find.Execute("^13（[一二三四五六七八九十百零千]@）*^13", , , 1, , , 1)
    
26.             .MoveStart unit:=wdCharacter, Count:=1
    
27.             If .Information(wdWithInTable) = False Then
    
28.                 If Selection Like "*[!。：；，、！？…-]?" Then
    
29.                     With .Font
    
30.                         .Name = "楷体_GB2312"
    
31.                         .Name = "Times New Roman"
    
32.                         .Size = 16
    
33.                         .Bold = True
    
34.                     End With
    
35.                 End If
    
36.             End If
    
37.             .EndKey unit:=wdLine
    
38.         Loop
    
39.     End With
    
40. End Sub

复制代码

13907933959

duquancai 发表于 2018-3-17 12:12
< 这个是不可靠的。慎用！！！
举个例子：文档中有如下段落（红色的为一个段落，这种编号处于段中而非处 ...

杜前辈好！
虽然您没有说这个 < 符号是什么意思？还是受教！谢谢！前辈的出手往往让内容更精彩！

13907933959

duquancai 发表于 2018-3-17 11:33
写个问题一的代码，问题二完全类似！！！！

杜前辈好！
不知什么原因，代码好像只对一、三、段落起作用，二、四、段落不起作用。

ke3088

大开眼界了，向各位老师致敬，谢谢。

ke3088

413191246se 发表于 2018-3-17 12:44
谢谢 杜先生！果真是这样！——但为什么我用“

413191246se兄，您的代码对第一行没有效，要在首尾加上杜老师的这二句才行：
ActiveDocument.Range(0, 0).InsertBefore vbCr

ActiveDocument.Paragraphs(1).Range.Text = Empty

相见是缘8

duquancai 发表于 2018-3-17 11:33
写个问题一的代码，问题二完全类似！！！！

我下载了4楼的 “附件” 运行代码测试，也是只对一、三、段落起作用，二、四、段落不起作用。

duquancai

13907933959 发表于 2018-3-17 16:20
杜前辈好！
不知什么原因，代码好像只对一、三、段落起作用，二、四、段落不起作用。

1. Sub Title_问题一()
   
2.     ActiveDocument.Range(0, 0).InsertBefore vbCr
   
3.     With ActiveDocument.Content.Find
   
4.         Do While .Execute("^13[一二三四五六七八九十百零千]@、", , , -1)
   
5.             With .Parent
   
6.                 With .Paragraphs(2).Range
   
7.                     If .Characters.Last.Previous.Text Like "[!！？。；：]" Then
   
8.                         .Font.Name = "黑体"
   
9.                         .Font.Size = 16
   
10.                     End If
    
11.                 End With
    
12.             End With
    
13.         Loop
    
14.     End With
    
15.     ActiveDocument.Paragraphs(1).Range.Text = Empty
    
16. End Sub

复制代码

ke3088

杜老师的代码对下面的格式，确实只对一、三、五、七段起作用，对二、四、六段没有作用：
一、××××××××××××××××××××××××××××
二、×××××
三、××××××××××××××××××××××××
四、××××××××××××××××××××××××××××××××××××××××××
五、××××××××××××
六、××××××××××××
七、×××××××
但在两段之间增加一段，哪怕是空白段也起作用。
杜老师，对这个能否再修改一下，谢谢

duquancai

ke3088 发表于 2018-3-18 11:02
杜老师的代码对下面的格式，确实只对一、三、五、七段起作用，对二、四、六段没有作用：
一、×××××× ...

在17楼。。。。。。

413191246se

....这个”<“代表是顶格，即每段左起第一个字符前面的位置，在《正则表达式》中常用，WORD查找替换时也可以用，但有时用不好，回答徒弟139——请看我的《通用模板宏》中《姓名加空》宏你就明白了。
....平时人们喜欢查找^13*^13，但是这样第1个段落是找不到的，故 杜先生 专门在文档首部加一个回车符，而用“<”就可以了，但查找代码不一定运行。如“<第一，XX”代表段落首字是“第”。