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

相见是缘8

413191246se 发表于 2019-5-5 10:35
楼主，只须再执行下面的宏即可：

老师，这个能不能劳你把它合写在一个宏内？另外，刚测试这个代码，如碰到空白段落符前面有空格的则删除不了。

413191246se

1. Sub test()
   
2.     With ActiveDocument
   
3.         '回车符/手动换行符=>段落标记
   
4.         .Content.Find.Execute "[^13^11]", , , 1, , , , , , "^p", 2
   
5. 
   
6. '        '删除所有域
   
7. '        .Fields.Unlink
   
8. 
   
9. '        '列表编号/LISTNUM域转文本
   
10. '        .ConvertNumbersToText
    
11. 
    
12. '        '半角括号转全角
    
13. '        With .Content.Find
    
14. '            .Execute "(", , , , , , , , , "（", 2
    
15. '            .Execute ")", , , , , , , , , "）", 2
    
16. '        End With
    
17. 
    
18.         .Select
    
19.         CommandBars.FindControl(ID:=122).Execute
    
20.         CommandBars.FindControl(ID:=123).Execute
    
21. 
    
22.         '删除空行
    
23.         Dim i As Paragraph
    
24.         For Each i In .Paragraphs
    
25.             If Asc(i.Range) = 13 Then i.Range.Delete
    
26.         Next
    
27. 
    
28.         With .Paragraphs(1).Range
    
29.             .Style = wdStyleHeading1 '样式：标题 1
    
30.             With .Font '字体格式
    
31.                 .NameFarEast = "黑体"
    
32.                 .Color = wdColorRed '红色
    
33.             End With
    
34.             .ParagraphFormat.Alignment = wdAlignParagraphCenter '段落格式：居中
    
35.         End With
    
36.     End With
    
37. End Sub

复制代码

413191246se

相见，你好！——建议复制代码后（删除旧代码，否则两个相同名称的宏都在 VBE 中，任何宏都不再执行），不要一下就得到答案。最好是，在 VBE 中，将光标放在该宏内，每次按一下 F8 键，看看当前行（有黄色突出显示的行）的代码执行了什么功能，这样就能逐渐地掌握代码的功能。还有，将文档界面最大化后，打开 VBE 界面，这个 VBE 界面让它在一半位置才好，位置最好是在右面。文档界面最大化在左面，VBE 界面占半个窗口在右面，这样调试观看时比较好。

相见是缘8

413191246se 发表于 2019-5-5 15:06

感谢老师！但还是未能解决我在6楼上后提出的问题！

相见是缘8

413191246se 发表于 2019-5-5 15:10
相见，你好！——建议复制代码后（删除旧代码，否则两个相同名称的宏都在 VBE 中，任何宏都不再执行），不 ...

好的、感谢老师！

413191246se

相见，格式/样式对了就可以了，为什么还要强调标题段落标尺的位置问题？你是怎么想的呢？标尺到底有什么用处呢？

相见是缘8

413191246se 发表于 2019-5-6 23:50
相见，格式/样式对了就可以了，为什么还要强调标题段落标尺的位置问题？你是怎么想的呢？标尺到底有什么用 ...

老师、是因为我大多数的文档标题字数，差不多都在一行之内，如你所设置的标题段落左右标尺，像是 “清除了格式” 的标尺所处的位置，左右两边的标尺留有很多空处，这样么会导致原来1行的标题变为了2行，所以我才不想改变原标题段落左右标尺所设置的位置。还有就是你设置的标题，后面的段落符也是红色的，能不能不改变它？再有就是如碰到首段有文字的段落上面，有空白段落（包括空白段落符前面有各类空格的）则一起删除，这些放在一起不知能否实现？

413191246se

* 我给你的新代码，你没注意到吗？标题上方的空白段落（空白行）已经删除了！
* 段落标记是红色的问题，是因为整个段落都是红色。
* 标尺问题，我觉得你的做法是没有必要，我不看标尺，我只看格式、样式（样式手动我搞不定，我只用内置样式设置标题样式）。

相见是缘8

413191246se 发表于 2019-5-7 08:44
* 我给你的新代码，你没注意到吗？标题上方的空白段落（空白行）已经删除了！
* 段落标记是红色的问题，是 ...

好的。由于我水平未到，想了一个笨办法，把你和杜老师的代码合在一起，能达目的。

Sub test()

    With ActiveDocument

        .Content.Find.Execute "[^13^11]", ,, 1, , , , , , "^p", 2

        .Select

        CommandBars.FindControl(ID:=122).Execute

        CommandBars.FindControl(ID:=123).Execute

        Dim i AsParagraph

        For Each i In.Paragraphs

            If Asc(i.Range) = 13 Then i.Range.Delete

        Next

    End With

    Dim p As Range

    Set p =ActiveDocument.Range(0, 0)

    With p

        .MoveEndUntilvbCr

        .Font.Bold = -1

        .Font.Name ="黑体"

        .Font.ColorIndex= 6

       .ParagraphFormat.Alignment = 1

    End With

End Sub

衷心感谢你和杜老师的出手相助！！！