VBAレイトバインディング - Word参照を持たないユーザーのコンピュータに基づくユーザーフォームの場合

Question

Word文書/テンプレートを開き、特定のファイル名を持つWord文書をPDFとして保存するExcelユーザーフォーム/ワークシートがありますフォルダ。

私のExcelでの参照では、Word Object Libraryが有効になっています。私のuserformは、これらの参照が有効になっていない他のユーザーのコンピュータで使用されます（すべてのユーザーが有効にするには面倒です）。

私が知っているコードは「初期バインディング」であり、他のユーザーがWordへの参照を有効にする必要性を回避するためには「遅延バインディング」である必要があります。

私の問題は、私は知っているか私のコードでこれを行う方法を理解していないです。

Dim objWord As Word.Application 
Dim docWord As Word.Document 

Set objWord = CreateObject("Word.Application") 
Set docWord = objWord.Documents.Open(ThisWorkbook.Path & "\MyNewWordDocument.doc") 

docWord.ExportAsFixedFormat OutputFileName:=ThisWorkbook.Path & "\" + Cells(1, 6) + " - Offer Letter.pdf", _ 
ExportFormat:=wdExportFormatPDF 

objWord.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges 
objWord.Quit 

このコードは、自分のために完全に機能しています。しかし、言及されているように、それは有効にされていないWordへの参照のために他人のために働かない。

Answer 1

他のユーザーがすべて同じバージョンのOfficeを使用している場合は、問題はありません。彼らは、異なるバージョンを持っている場合は、あなただけのオブジェクトとして変数を宣言すると、Wordのライブラリからあなたが使用するすべての定数を宣言する必要後半バインド、する必要があります：

Dim objWord As Object 
Dim docWord As Object 
const wdExportFormatPDF as long = 17 
const wdDoNotSaveChanges as long = 0 

Set objWord = CreateObject("Word.Application") 
Set docWord = objWord.Documents.Open(ThisWorkbook.Path & "\MyNewWordDocument.doc") 

docWord.ExportAsFixedFormat OutputFileName:=ThisWorkbook.Path & "\" + _ Cells(1, 6) + " - Offer Letter.pdf", _ 
ExportFormat:=wdExportFormatPDF 

objWord.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges 
objWord.Quit 

また、Wordの参照を削除する必要があります。

は同様にプラグを追加することがありますhttp://excelmatters.com/2013/09/23/vba-references-and-early-binding-vs-late-binding/