質問: プログラムで、ボタンを押すとWord97を立ち上げるようにしたいのですがうまく行きません。Word2000で試験した時はうまく行ったのですが・・・。 うまく起動するプログラムを教えてください。
回答: こんな風でどうですか? Private Sub Command1_Click() Dim objWord As Object ' エラーが発生したら次行へ On Error Resume Next ' すでにWordが起動していたら、そのWordを取得 Set objWord = GetObject(, "Word.Application") ' Wordが起動していなかった場合は、エラーが発生している ' ので、エラーをクリア Err.Clear ' エラーが発生したら終わるようにする。 On Error GoTo ERR_EXIT If objWord Is Nothing Then ' Wordが起動していなかった場合は、新にWordを起動する。 Set objWord = CreateObject("Word.Application") ' CreateObjectで起動すると文書なしで起動するので、新規文書を追加 objWord.Documents.Add ' CreateObjectで起動すると目に見えないので見えるようにする objWord.Visible = True Else 'すでにWordが起動していたら、Wordをアクティブにする objWord.Activate End If Exit Sub ERR_EXIT: MsgBox Err.Description Exit Sub End Sub