Question

我想更改不等于9到9的字体大小。但它弹出“编译错误：预期表达”。

Sub FindReplaceStyle()

With ActiveDocument.Content.Find
    .ClearFormatting

    With .Font
        .Size <> 9
    End With

    .Format = True

    With .Replacement
        .ClearFormatting
        With .Font
            .Size = 9
        End With
    End With

    .Execute Forward:=True, Replace:=wdReplaceAll, _
        FindText:="", ReplaceWith:=""
End With

End Sub

Answer 1

@ user2830554：<>是一个条件运算符，所以没有条件语句就不能使用它

使用Word VBA更改字体大小

1 个答案: