如何选中文档内第一段有文字的段落（不含段落符）并更改其格式

相见是缘8

想把文档内第一段的文字做标题，如上面是空段落符段的则不选中，直到有文字的段落（不含段落符）则选中，改为“黑体、红色、加粗，居中”格式。
求老师们帮忙！谢谢！

duquancai

无附件，猜一个：

1. Sub main()
   
2.     Dim p As Range
   
3.     Set p = ActiveDocument.Range(0, 0) '实例化一个指针变量p
   
4.     With p
   
5.         .MoveWhile vbCr & Chr(32) & vbTab
   
6.         .MoveEndUntil vbCr
   
7.         .Font.Bold = -1
   
8.         .Font.Name = "黑体"
   
9.         .Font.ColorIndex = 6
   
10.         .ParagraphFormat.Alignment = 1
    
11.     End With
    
12. End Sub

复制代码

413191246se

杜先生/老师 的代码高级，看不懂！但 杜先生/老师 可能未考虑全角空格和不间断空格这种情况，故代码运行不正确。我从另一个角度出发，也编程了一段代码，请楼主测试：

1. Sub test()
   
2.     Dim i&, j&
   
3.     With ActiveDocument
   
4.         j = .Paragraphs.Count
   
5.         For i = 1 To j
   
6.             With .Paragraphs(i).Range
   
7.                 If .Text Like "*[一-﨩a-zA-Z]*" Then
   
8.                     .Style = wdStyleHeading1
   
9.                     With .Font
   
10.                         .Name = "黑体"
    
11.                         .Color = wdColorRed
    
12.                     End With
    
13.                     .ParagraphFormat.Alignment = wdAlignParagraphCenter
    
14.                     Exit For
    
15.                 End If
    
16.             End With
    
17.         Next i
    
18.     End With
    
19. End Sub

复制代码

413191246se

另外，楼主 是否使用了我的《集成版》呢？如果用的话，按 F8：公文排版 和 F7：普通排版 即可。

相见是缘8

duquancai 发表于 2019-5-4 15:17
无附件，猜一个：

感谢杜老师的出手相助，你的代码总是那么高深莫测，精准无误！谢谢！

抱歉！昨天忘说了一点，如碰到首段有文字的段落上面，有空段落符（包括空段落符前面有空格的）则删除，能否劳老师把代码再改一下，谢谢！

相见是缘8

413191246se 发表于 2019-5-4 23:58
杜先生/老师 的代码高级，看不懂！但 杜先生/老师 可能未考虑全角空格和不间断空格这种情况，故代码运行不 ...

同样感谢 413191246se 老师的出手相助，老师的代码基本也能满足要求，但会改变原文档上标题左右标尺的设置，标题后面的段落符也是红色的，这个不知是什么原因？

抱歉！昨天忘说了一点，如碰到首段有文字的段落上面，有空段落符（包括空段落符前面有空格的）则删除，能否劳老师把代码再改一下，谢谢！

相见是缘8

413191246se 发表于 2019-5-5 00:00
另外，楼主 是否使用了我的《集成版》呢？如果用的话，按 F8：公文排版 和 F7：普通排版 即可。

老师的《集成版》宏，我早就下载了，这次的求助只是想把自已的文档整理一下，把不一样的文档标题统一。

413191246se

楼主，“如碰到首段有文字的段落上面，有空段落符则删除”首段何解？还是只要不是有文字的段落（空白段落）则删除）？

413191246se

楼主，只须再执行下面的宏即可：

1. Sub 删除空行2()
   
2.     Dim i As Paragraph
   
3.     For Each i In ActiveDocument.Paragraphs
   
4.         If Asc(i.Range) = 13 Then i.Range.Delete
   
5.     Next
   
6. End Sub

复制代码

相见是缘8

413191246se 发表于 2019-5-5 10:32
楼主，“如碰到首段有文字的段落上面，有空段落符则删除”首段何解？还是只要不是有文字的段落（空白段落） ...

是的、老师你说得专业！如碰到首段有文字的段落上面，没有文字的空白段落，则删除。