-PR-
締切済み

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

  • すぐに回答を!
  • 質問No.36273
  • 閲覧数44
  • ありがとう数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.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,500万件のQ&Aを分析して最適な回答をご提案します。

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

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

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

特集


専門家があなたの悩みに回答!

-PR-

ピックアップ

-PR-
ページ先頭へ