Maxmising a word document opened from excel

[danno28]

I am opening a Word document from Excel, and would like it to open with Word maximised. This is my code so far:

Dim myWord As Object
Set myWord = CreateObject("Word.Application&quot
myWord.Visible = True
myWord.Documents.Open FileName:="C\IntTrainTemplate.doc", ReadOnly:=True
With myWord

..do stuff..

End With

 

[dsi]

Dim myWord As Word.Application
Set myWord = CreateObject("Word.Application")
myWord.Visible = True
myWord.Documents.Open FileName:="C\IntTrainTemplate.doc", _
                      ReadOnly:=True
myWord.WindowState = wdWindowStateMaximize