VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2004/06/30(Wed) 16:55 |
| 投稿者 | ： naka |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: Wordの終了について |
早速のお返事ありがとうございます。
以下のソースはフォームに開くと閉じるというボタンからワードを開いたり、
閉じたりということをやっています。
＜ここから＞
Public wdApp As Word.Application
Public wdDoc As Word.Document
Private Sub Command1_Click()
Call ExecWord
End Sub
Private Sub Command2_Click()
Call EndWord
End Sub
Public Function ExecWord()
Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Open("c:\test\test.doc")
wdApp.Visible = True
End Function
Public Function EndWord()
wdApp.Quit '←これにするとすべてが閉じる （どちらかをコメントでやってください）
wdDoc.Close '←これにするとWordの抜け殻が残る（どちらかをコメントでやってください）
Set wdDoc = Nothing
Set wdApp = Nothing
End Function
すみません、前回はソースを抜き出して貼りつけてしまって。
わかりにくかったですよね。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）