有明白WORD VBA的吗，帮忙看看为啥总报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

主题：有明白WORD VBA的吗，帮忙看看为啥总报错