-PR-
締切り
済み

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

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

お礼率 8% (6/73)

プログラムで、ボタンを押すとWord97を立ち上げるようにしたいのですがうまく行きません。Word2000で試験した時はうまく行ったのですが・・・。
うまく起動するプログラムを教えてください。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全1件)

  • 回答No.1
レベル11

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

こんな風でどうですか? Private Sub Command1_Click() Dim objWord As Object ' エラーが発生したら次行へ On Error Resume Next ' すでにWordが起動していたら、そのWordを取得 Set objWord = GetObject(, "Word.Ap ...続きを読む
こんな風でどうですか?

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で解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

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

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ