Question

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

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

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

Answer 1

也许这对你有用：

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

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

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

1 个答案: