Sub 删除俄文()
'
' 删除俄文 宏
'
'
Application.ScreenUpdating = False
With ActiveDocument.Content.Find
.Text = "[" & ChrW(1025) & "-" & ChrW(1257) & "]"
.MatchWildcards = True '如果要查找的文本包含通配符
Do While .Execute '运行指定的查找操作。如果查找成功,则返回 True
With .Parent '返回对象
.Expand wdParagraph '扩展到整个段
If .Text Like "*[一-龥]*" = False Then
'If .Text Like "*[" & ChrW(19968) & "-" & ChrW(40869) & "]*" = False Then
.Text = ""
Else
.Collapse wdCollapseEnd
End If
End With
Loop
End With
Application.ScreenUpdating = True
End Sub