如何快速将不同字体的文字删除？

a963

如图，下载了一种字体，但是字体的字不全，所以文件就成了这样，现在将文件及字体ttf上传，如何快速将没有变成手写字体的文字删除，谢谢各位老师

sqhsqhli

Sub eeeeeeee()
ActiveDocument.Range.Font.Color = wdColorAutomatic
With ActiveDocument.Content.Find
.ClearFormatting
.Format = True
.MatchWildcards = True
.Font.Name = "087荆霄鹏行楷简体"
Do While .Execute
.Parent.Font.Color = wdColorRed
Loop
End With
With ActiveDocument.Content.Find
.ClearFormatting
.Format = True
.MatchWildcards = True
.Font.Color = wdColorAutomatic
Do While .Execute
.Parent.Delete
Loop
End With
ActiveDocument.Range.Font.Color = wdColorAutomatic
End Sub

sqhsqhli

Sub eeeeeeee()
With ActiveDocument.Content.Find
.MatchWildcards = True
.Text = "?"
Do While .Execute
If .Parent.Font.Name <> "087荆霄鹏行楷简体" Then .Parent.Delete
Loop
End With
End Sub

sqhsqhli

Sub eeeeeeee() '低效的办法
Dim i As Integer
For i = ActiveDocument.Range.Characters.Count To 1 Step -1
If ActiveDocument.Range.Characters(i).Font.Name <> "087荆霄鹏行楷简体" Then ActiveDocument.Range.Characters(i).Delete
Next
End Sub