Set Focus from Access to Word

[Guest]

I have a button that opens a word 97 doc which works fine. How do I change
the focus from Access 97 to this word doc.
I've tried:
On Error GoTo CreateOb
Set wordApp = GetObject(, "Word.Application") 'use existing MS Word
wordApp.Application.Visible = True 'make Word visible
wordApp.Documents.Open (strPath) 'open the file
'wordApp.Documents(strPath).ActiveWindow.Activate
'wordApp.Windows(strPath).WindowState = wdWindowStateMaximize

Exit Sub

CreateOb:
Set wordApp = CreateObject("Word.Application") 'start MS Word
Resume Next

 

[Arvin Meyer]

Try uncommenting these 2 lines:

wordApp.Documents(strPath).ActiveWindow.Activate
wordApp.Windows(strPath).WindowState = wdWindowStateMaximize

(notice the missing single quote now)
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access

 

[Guest]

Thanks Arvin for your reply. I get a runtime 5941 (requested member of the
collection doesn't exist) on the "wordApp.Windows(strPath).WindowState =
wdWindowStateMaximize" line so I commented it out.
Even if it worked, wouldn't it just maximize the doc inside the MSword app?
I wish to have the MSWord app maximized with the focus set to it. This works
for a new instance of the MSWord app (as per my error handling: CreateObject)
but not an existing instance.

 

[Arvin Meyer]

It would appear from the error message that the Word doc isn't in the
strPath. Have you initialized that variable?
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access