在Word中查找並替換多個單詞

Question

我真的希望你們能提供幫助，我覺得我一直在努力解決（應該是）一個非常簡單的問題。 我編寫了一個應用程序，它創建一個文件夾結構，根據用戶輸入在相關的測試文檔中進行復制，並使用各種變量填充文檔標題和測試表。 我已經用占位符（“ replCustNo”，“ replPrjNo”，“ replCustRef”等）填充了模板測試文檔，其中一些位於標頭中，一些位於文檔正文中。 我似乎一次只能替換一個單詞，找不到一種列出所有要查找的引用，然后列出所有替換變量的方法。 似乎是一種非常笨拙的編碼方式，可以一遍又一遍地進行查找/替換，或為其調用一個子項。

如果這真的很基礎，請原諒我，我是編碼的新手，非常感謝您的幫助！ 我正在使用VB和Office 365

 Dim objWordApp As New Word.Application
    'Open an existing document.  
    Dim objDoc As Word.Document = objWordApp.Documents.Open(projFolder & "SAT\2 HV Tests\Flash.doc")

    objWordApp.ActiveDocument.Sections(1).Headers(1).Range.Select()
    objWordApp.Selection.WholeStory()
    With objWordApp.Selection.Find
        .Text = "replPrjNo"
        .Replacement.Text = RefNo
        .Forward = True
    End With
    objWordApp.Selection.Find.Execute(Replace:=Word.WdReplace.wdReplaceAll)

    'Save and close the document  
    objDoc.Save()
    objDoc.Close()
    objDoc = Nothing
    objWordApp.Quit()
    objWordApp = Nothing

Answer 1

一種解決方案是使用文檔變量。 在模板文檔中選擇一個占位符，然后選擇“ Insert tab > Quick Parts > Field... > DocVariable > New name: replPrjNo

然后在代碼中：

objDoc.Variables("replPrjNo").Value = RefNo
objDoc.Fields.Update

其他解決方案可以是書簽，自定義文檔屬性，郵件合並或“開發人員”選項卡中的某些控件。