Изменить размер шрифта с помощью Word VBA

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: <> является условным оператором, так что вы не можете использовать его без условного оператора