ActiveDocument.Content.Select
With Selection.Find
.ClearFormatting
.Text = "重量"
.Font.NameFarEast = "黑体"
.Forward = True
End With
Selection.Find.Execute
If Selection.Find.Found = True Then
MsgBox "找到!"
Else
MsgBox "没找到!"
End If
With Selection.Find
.ClearFormatting
.Text = "重量"
.Font.NameFarEast = "黑体"
.Forward = True
End With
Selection.Find.Execute
If Selection.Find.Found = True Then
MsgBox "找到!"
Else
MsgBox "没找到!"
End If