Question

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

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

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

Answer 1

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 之间添加你想要进行的操作就可以了

追问

额 如果不用 find 的话 怎么 选中跳转到非 Dotum 字体的地方啊.
唉 加个r.Select 貌似也能用起

追答

你想实现什么啊？ r.select 也可以选的，直接操作就好了，不用非要选中吧？

追问

我自己改了下 可以了 没用 find 不知道这个 执行速度怎么样 我那个文件 都是 上百万的字的。
不过还是谢谢了。

加了个 goto 不知道效果好不。
r.Select
GoTo exi
End If
Next r
exi:

Answer 2

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

追问

...不行的 那时赋值语句阿.