從模板中讀取Microsoft Access 2007

Question

正在將訪問數據庫從2000遷移到2007年。我有一個打開模板並在其中運行宏的函數。它是在2000年完美的工作，但不是在2007年。這是代碼：

Dim appWd As Word.Application 
    Set appWd = GetObject(, "Word.Application") 
    appWd.Application.Visible = True 
    appWd.Parent.Windows(1).Visible = True 
    AppActivate "Microsoft Word" 
    appWd.run "macro_name" 

線appWd.Parent.Windows能正常讀取文檔，但在執行宏時，它顯示錯誤5151但是相反的模板，當我使用原始單詞文檔時，宏正在運行。

任何想法請。

Answer 1

錯誤5151與無法訪問/讀取文檔有關。

試試這個：

Dim wApp As Object 
Dim wDoc As Object 
Set wApp = CreateObject("Word.Application") 

Set wDoc = wApp.Documents.Open(filename) 
wApp.Visible = True 
wApp.Activate 
wApp.Run "macro_name"