求老师帮忙看看，这样写可以吗？

wdpfox

想把“标题2”中的英文字母或数字改字体与大小，第一个if语句有问题，不知何因？本人菜鸟一个，不知道其正确的形式，望老师批点，谢谢！


Sub 宏3()
'
' 宏3 宏
'
'
    Selection.WholeStory

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting

    With Selection.Find.Replacement.Font
    If Selection.Style = ActiveDocument.Styles("标题 2") Then
        Selection.Font.Name = "Georgia"
        .Size = 12
        .Italic = True
    Else
            Selection.Font.Name = "Georgia"
            .Size = 14
            .Italic = True   
    End If
    End With

    Application.DisplayAlerts = False
    With Selection.Find
        .text = "[a-zA-Z0-9]"
        .Replacement.text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

    Application.DisplayAlerts = True
    Selection.Find.Execute Replace:=wdReplaceAll, Wrap:=wdFindStop

End Sub

duquancai

Sub shishi()
    Dim p As Paragraph
    For Each p In ActiveDocument.Paragraphs
        If p.Style = ActiveDocument.Styles("标题 2") Then
            With p.Range.Find
                With .Replacement.Font
                    .Name = "Georgia"
                    .Size = 12
                    .Italic = True
                End With
                .Execute "[A-z0-9]{1,}", , , 1, , , , 0, 1, , 2
            End With
        Else
            With p.Range.Find
                With .Replacement.Font
                    .Name = "Georgia"
                    .Size = 14
                    .Italic = True
                End With
                .Execute "[A-z0-9]{1,}", , , 1, , , , 0, 1, , 2
            End With
        End If
    Next
End Sub

wdpfox

duquancai 发表于 2017-7-3 13:27
Sub shishi()
    Dim p As Paragraph
    For Each p In ActiveDocument.Paragraphs

谢谢杜老师热情相助，好人一生平安！