如何添加Excel VBA for Word編程引用

Question

我正在嘗試編寫一個使用Word對象來創建基於Word模板文檔的Word文檔的宏。

我在使用Option Explicit時遇到了一些困難。沒有它，我可以忽略Dim ...線，但我希望那裏。

這裏是到目前爲止的代碼：

Option Explicit 
Sub PopulateWordDoc() 
    Dim wApp As Object 
    Set wApp = CreateObject("Word.Application") 
    Dim wdDoc As Word.Document ' User-defined type not defined error on this line 
    Set wDoc = wApp.Documents.Open("C:\path\WordTestTemplateDoc.dotx", ReadOnly:=False) 

    With wDoc 
     .Content.Find.Execute FindText:="<Project ID>", ReplaceWith:="This is the project id....." 
     .SaveAs2 Filename:=("C:\path\NewWordDoc.docx"), FileFormat:=wdFormatXMLDocument, AddtoRecentFiles:=False 
    End With 

結束子

Answer 1

在VBE添加參考Microsoft Word xx.0 Object Library如本文中描述：此後

https://msdn.microsoft.com/en-us/library/office/gg264402.aspx

，所述VBE甚至會爲您編寫Excel代碼時提供自動完成功能。

Answer 2

OptionExplicit使得它絕對必須聲明你使用的所有東西。通過不添加語句，您可以告訴VB編譯器它可以控制從未聲明的變量類型。這有點懶，可能會導致潛在的問題。你應該總是聲明所有的變量。