• 締切
  • すぐに回答を!

Word97を立ち上げたいのですが・・・。

  • 質問No.36273
  • 閲覧数51
  • ありがとう数0
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 8% (6/73)

プログラムで、ボタンを押すとWord97を立ち上げるようにしたいのですがうまく行きません。Word2000で試験した時はうまく行ったのですが・・・。
うまく起動するプログラムを教えてください。

回答 (全1件)

  • 回答No.1

ベストアンサー率 49% (139/279)

こんな風でどうですか?

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
結果を報告する
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,600万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A

その他の関連するQ&Aをキーワードで探す

ピックアップ

ページ先頭へ