word vba如何查找非某种字体的文字啊

比如 这个是查找属于 Dotum 字体的文字。但我想查找不是 Dotum 字体的文字，该怎么改啊。

Sub 宏1()
With Selection.Find
.ClearFormatting
.Font.Name = "Dotum"
.Execute FindText:=""
End With
End Sub

Sub Test()
Dim r As Range
For Each r In ActiveDocument.Words
If r.Font.Name <> "dotum" Then
'r.Font.Name = "arial"
'your code

End If
Next r
End Sub

在if 和endif 之间添加你想要进行的操作就可以了

把 = "Dotum" 改成 <> "Dotum" 试一试