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.但是当我使用原始word文档时，宏而不是模板，宏正在运行。

请知道。

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"

Microsoft Access 2007从模板中读取

1 个答案: