替换而不通过VB.net继续下一步在Word中查找

时间:2013-09-12 09:52:38

标签: vb.net ms-word

有没有人知道是否可以通过VB.Net在Word中执行替换功能而无需自动移动到下一个'命中'?似乎替换函数实际上是替换/查找。

我现在正在考虑进行搜索,放置书签,执行替换,然后将焦点移回书签。这本身并不难,但似乎效率不高。

还没有代码,因为我仍在调查可能性。

1 个答案:

答案 0 :(得分:0)

也许这对你有用:

http://social.msdn.microsoft.com/Forums/en-US/1558f560-8ae6-413a-bbc4-aa8d5d912aac/find-replace-in-a-word-document-by-vbnet

'credit to martin xie
Dim objDoc As Word.Document = objWordApp.Documents.Open("C:\Trydata\1.doc")   
    objDoc = objWordApp.ActiveDocument   

    'Find and replace some text   
    'Replace 'VB' with 'Visual Basic'   
    objDoc.Content.Find.Execute(FindText:="VB", ReplaceWith:="Visual Basic Express", Replace:=Word.WdReplace.wdReplaceAll)   
    While objDoc.Content.Find.Execute(FindText:="  ", Wrap:=Word.WdFindWrap.wdFindContinue)   
        objDoc.Content.Find.Execute(FindText:="  ", ReplaceWith:=" ", Replace:=Word.WdReplace.wdReplaceAll, Wrap:=Word.WdFindWrap.wdFindContinue)   
    End While  

否则,不确定你的意图是什么。为什么要查找/替换然后移回书签?你的目标是什么?你为什么要这样做?