为什么用find替换如此的慢？

天龙蝎

各位大侠：
有问题想请教，
我用下面两种代码做批量替换
第一种如下，它能保持格式的替换，但速度相当慢，而且替换时鼠标在不停的闪烁
target_doc.Content.Find.Execute findtext:=targetcontent, Replacewith:=replacecontent, Replace:=wdReplaceAll
第二种如下，它能1秒左右替换完毕，但是文档里面的格式、表格、粘贴图片都没了
tbstring = target_doc.Content
tbstring = Replace(tbstring, targetcontent, replacecontent)
为什么有这样的区别？

我用第一种方法，做了以下逐条尝试
With target_doc
        .Visible = True
        .ActiveWindow.View.Type = wdNormalView
        .ScreenUpdating = False
        .Options.CheckSpellingAsYouType = False
        '.DisplayStatusBar = False  由于词句在2010版已无效，就没用
End With
但是都不能提速，所以想问要怎么做才能提速呢？
谢谢！！！

pld

wrap ：=wdfindcontinue和wdfindstop 不一样，前者要占大量资源，

Franc007She

据我个人观察，用find并replaceall时系统会把大量资源用于保存备份文件。有时一分钟可能会保存近10次。然而如果只用find和tyeptext，速度就会快多了。虽然没有replace快，但也很不错。只是要明确一点，不能有跨行合并的表格单元格。否则可能会出现死循环。

tmtony

试试用API
lockwindowupdate
不知道行不行

天龙蝎

tmtony 发表于 2015-3-25 17:58
find是有些慢的。
如果不处理其它，只有文字用replace会快不少

可以文件很少只有文字的嘛，
我最不理解的是，正如我上面所写的，我把find套进循环进行批量替换的时候，为什么鼠标会闪个不停呢？
究竟是在刷新什么呢？
能不能关闭这种更新呢？
谢谢指点！！！

tmtony

find是有些慢的。
如果不处理其它，只有文字用replace会快不少