為什么用find替換如此的慢？

天龍蝎

各位大俠：
有問題想請教，
我用下面兩種代碼做批量替換
第一種如下，它能保持格式的替換，但速度相當(dāng)慢，而且替換時鼠標(biāo)在不停的閃爍
target_doc.Content.Find.Execute findtext:=targetcontent, Replacewith:=replacecontent, Replace:=wdReplaceAll
第二種如下，它能1秒左右替換完畢，但是文檔里面的格式、表格、粘貼圖片都沒了
tbstring = target_doc.Content
tbstring = Replace(tbstring, targetcontent, replacecontent)
為什么有這樣的區(qū)別？

我用第一種方法，做了以下逐條嘗試
With target_doc
        .Visible = True
        .ActiveWindow.View.Type = wdNormalView
        .ScreenUpdating = False
        .Options.CheckSpellingAsYouType = False
        '.DisplayStatusBar = False  由于詞句在2010版已無效，就沒用
End With
但是都不能提速，所以想問要怎么做才能提速呢？
謝謝！��！

tmtony

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

天龍蝎

tmtony 發(fā)表于 2015-3-25 17:58
find是有些慢的。
如果不處理其它，只有文字用replace會快不少

可以文件很少只有文字的嘛，
我最不理解的是，正如我上面所寫的，我把find套進循環(huán)進行批量替換的時候，為什么鼠標(biāo)會閃個不停呢？
究竟是在刷新什么呢？
能不能關(guān)閉這種更新呢？
謝謝指點�。�！

tmtony

試試用API
lockwindowupdate
不知道行不行

Franc007She

據(jù)我個人觀察，用find并replaceall時系統(tǒng)會把大量資源用于保存?zhèn)浞菸募�。有時一分鐘可能會保存近10次。然而如果只用find和tyeptext，速度就會快多了。雖然沒有replace快，但也很不錯。只是要明確一點，不能有跨行合并的表格單元格。否則可能會出現(xiàn)死循環(huán)。

pld

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