以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  有明白WORD VBA的吗，帮忙看看为啥总报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81576)

--  作者：wh420 --  发布时间：2016/3/1 15:38:00 --  有明白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  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:test.rar 此主题相关图片如下：qq截图20160301153721.jpg

--  作者：wh420 --  发布时间：2016/3/1 15:43:00 --   有懂的吗指点小弟一二，有偿也行啊。