1

MsAccess2010で実行しようとしている非常に単純なコードがあります。Word文書を開くためのフォームのコントロールが必要です。私はいくつかのことを試しましたが、私がまとめた最も単純なコードは次のとおりです。

Private Sub CmdWord_Click()

Set wordApp = GetObject(, "Word.Application")

    With wordApp
        .Visible = True
        Set wordDoc = .Documents.Add

    End With

End Sub

これはコンパイルされますが、Wordを開かずに実行すると、「ランタイム429エラー：ActiveXコンポーネントはオブジェクトを作成できません。

Wordを開くと、新しいドキュメントが開きます。

ADO6.0への参照を更新してみましたが無駄になりました。私はVBAを初めて使用するので、助けていただければ幸いです。

4

1 に答える 1

2

通常、FollowHyperlinkを使用して、登録済みのアプリケーションでファイルを開くことができます。

 FollowHyperlink "z:\docs\word.docx"

それ以外の場合は、Wordが実行されていないときにCreateObjectを使用できます。

On Error Resume Next
Set oWord = GetObject(,"Word.Application")

If Err.Number <> 0 Then
   Set oWord = CreateObject("Word.Application")
End If

oWord.Visible = True
于 2012-08-30T21:51:55.540 に答える