アプリからVB(Form）

質問

初心者ですが教えていただきませんか？
やりたい事（順序）
１． Form1が開いています。（ノーマル表示）
２． Form1のcommand1ボタンを押す事により
３． Form1が最小化され
４． WORDが起動され、ファイルが開きます。（WORD最大表示）
５． WORDが終了（閉じられた時）
６． Form1が開きます。（ノーマル表示）

5番と6番で詰まっております。
ご教授をお願い致します。

コード
Private Sub Command1_Click(Index As Integer)
Dim wdApp As Object
Dim ThisPos As Long
WindowState = vbMinimized
Set wdApp = CreateObjec("Word.Application")
wdApp.Visible = True
Set wddocuments = wdApp.Documents.Open("C:\test.doc")
ThisPos = Application.WindowState 'アプリの画面表示を変更する
If ThisPos = wdWindowStateNormal Then
wdApp.WindowState = wdWindowStateMaximize
Else
wdApp.WindowState = wdWindowStateMaximize
End If
Set wdApp = Nothing 　　
End Sub

回答No.1

siddhaartha · ベストアンサー

手元にVB環境があれば試してあげたいけど、無いから正常に動くかどうかは未確認ですが・・・スペルミスもあるかも＾＾；

５．本来なら起動したWordのタスクIDを監視して終了判断すべきですけど、
簡単に実現するならばwdApp.Visibleの状態を監視すれば可能です。

６．WindowStateをノーマルに戻せばいいのでは？

【コード】
-----------------------------------------------
'Win32 API(グローバルエリアに定義しましょう)
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
-----------------------------------------------
Private Sub Command1_Click(Index As Integer)
Dim wdApp As Object
Dim ThisPos As Long
WindowState = vbMinimized
'☆---Add start
　'もし画面が最小化にならないならこの一文を入れてください
'DoEvents
'☆---Add start
Set wdApp = CreateObjec("Word.Application")
wdApp.Visible = True
Set wddocuments = wdApp.Documents.Open("C:\test.doc")
ThisPos = Application.WindowState 'アプリの画面表示を変更する
If ThisPos = wdWindowStateNormal Then
wdApp.WindowState = wdWindowStateMaximize
Else
wdApp.WindowState = wdWindowStateMaximize
End If
'☆---Add start
'Wordの終了を監視
Do Until (wdApp.Visible = False)
Sleep 500
Loop
'画面状態を戻す
WindowState = vbNormal
'☆---Add e n d
Set wdApp = Nothing
End Sub

お礼

siddhaartha様
有難うございます。
Do 条件　で良かったのですね。
助かりました。