排除第一段文字上面的1到多个空段，查找第一段的文字设置字体格式，并居中。

13907933959

怎样排除文档内第一段文字上面的1到多个空段，查找第一段的文字设置字体格式，并居中。

求前辈们帮忙！谢谢！

smhf_6

查找 ^p^p 替换 ^p不行吗？

13907933959

smhf_6 发表于 2017-9-2 09:52
查找 ^p^p 替换 ^p不行吗？

你好！
感谢回复！但我的需求不是要删除多个段落符，而是要排除（跳过的意思）文档内第一段文字上面的1到多个空段，查找第一段的文字设置字体格式，并居中。能否再相助？谢谢！

duquancai

13907933959 发表于 2017-9-2 10:54
你好！
感谢回复！但我的需求不是要删除多个段落符，而是要排除（跳过的意思）文档内第一段文字上面的1 ...

Sub delc()
    Dim d As Document, p As Range, ste&
    Set d = ActiveDocument: Set p = d.Content
    If p.Find.Execute("[一-﨩]", , , 1) Then
        ste = p.Paragraphs(1).Range.Start
        With p.Paragraphs(1).Range
            .ParagraphFormat.Alignment = 1
            .Font.Size = 25
            .Font.Name = "黑体"
        End With
        d.Range(0, ste).Text = Empty
    End If
End Sub

jiminyanyan

  d.Range(0, ste).Text = Empty
不删除的话，这一句去掉…………。

13907933959

duquancai 发表于 2017-9-2 11:30
Sub delc()
    Dim d As Document, p As Range, ste&
    Set d = ActiveDocument: Set p = d.Content ...

杜前辈好！

代码收到，感谢前辈出手相助！

杜前辈、按5楼 jiminyanyan 前辈的指引，删除代码中的 d.Range(0, ste).Text = Empty 这一句，正好满足跳过第一段文字上面的1到多个段落符，查找第一段的文字设置字体格式，并居中的需求。谢谢！

13907933959

jiminyanyan 发表于 2017-9-2 14:29
d.Range(0, ste).Text = Empty
不删除的话，这一句去掉…………。

前辈好！
感谢您的指引，满足了需求，免得再劳杜前辈！谢谢！

duquancai

13907933959 发表于 2017-9-2 14:34
杜前辈好！代码收到，感谢前辈出手相助！杜前辈、按5楼 jiminyanyan 前辈的指引，删除代码中的 d.Range(0,  ...

Sub Setgeshi()
    With ActiveDocument.Content.Find
        If .Execute("[一-﨩]", , , 1) Then
            With .Parent.Paragraphs(1).Range
                .ParagraphFormat.Alignment = 1
                .Font.Size = 25
                .Font.Name = "黑体"
            End With
        End If
    End With
End Sub

13907933959

duquancai 发表于 2017-9-2 16:02
Sub Setgeshi()
    With ActiveDocument.Content.Find
        If .Execute("[一-﨩]", , , 1) Then

杜前辈好！
感谢！感谢前辈！本来上一个代码就可满足愿望，您再给了一个更精准的，真是惊喜！！！
杜前辈、能不能劳您也给一个 http://club.excelhome.net/thread-1366504-1-1.html 这个问题的代码？我自己也弄了好长时间，实在是水平未到弄不来，只能求助前辈您了，拜谢！

duquancai

13907933959 发表于 2017-9-2 16:59
杜前辈好！
感谢！感谢前辈！本来上一个代码就可满足愿望，您再给了一个更精准的，真是惊喜！！！
杜前 ...

Sub Setgeshi()
    Application.ScreenUpdating = False
    For Each p In ActiveDocument.Paragraphs
        If Not p.Range.ParagraphFormat.Alignment = 1 Then
            p.Range.Select
            Selection.ParagraphFormat.CharacterUnitFirstLineIndent = 2
        End If
    Next
    Application.ScreenUpdating = True
End Sub