我想把以下代码嵌入到狐表中，在这之前在WORD 的VBA中做测试结果总是报错，烦请老师帮忙看看
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
.Delete ’此行总报错：range不可编辑
Else
.Collapse wdCollapseEnd
End If
End With
Loop
End With
Application.ScreenUpdating = True
End Sub
此主题相关图片如下：qq截图20160301153721.jpg
加好友 
发短信
Post By：2016/3/1 16:02:00 [显示全部帖子]
