Hi LabrGuy,

objWord.Visible
objWord.Activate

Should help?

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail :-)

Hey Bob R!,

Your code is long enough to open a word file,
if you are in windows OS. you should use
just following code. It will be surely OK, because I'm using daily.

Sub kzCallWordbyShell(WhichLetter As String)

     Call Shell("winword.exe """ & WhichLetter & """", 1)

End Sub

' assuming you can pass WhichLetter string.

Brgds,
Ko Zaw

Hello Bob R,

So very sorry, I lost my last post during sending.
Let focus the point again. I'll post the code, test at your end.
Worked fine for me.

Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
                   ByVal lpWindowName As Long) As Long

Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Const SW_SHOWNORMAL = 1
Const gcClassnameMSWord = "OpusApp"

Public Function fActivateWindowClass(psClassname As String) As Boolean
Dim hwnd As Long
hwnd = FindWindow(psClassname, vbNullString)
If hwnd > 0 Then
ShowWindow hwnd, SW_SHOWNORMAL
ShowWindow hwnd, SW_SHOWNORMAL
fActivateWindowClass = True
End If
End Function

Sub kzCallWordbyShell(WhichLetter As String)
Dim MyWordFileFullName As String
MyWordFileFullName$ = _
"C:\LettersForms\LETTERS\" & _
WhichLetter & ".doc" 'actual name went here

   Dim MyWord As Object
   Dim WordWasNotRunning As Boolean
   Dim UserResponse  As Integer
   On Error Resume Next
   Set MyWord = GetObject(, "Word.Application")
   If Err.Number <> 0 Then WordWasNotRunning = True
   Err.Clear
   If WordWasNotRunning = False Then
       UserResponse = MsgBox("Word Application is running," & vbCrLf
& _
       "If you continue, " & MyWordFileFullName & " may not come-up
front, " & _
       "but will be focused on taskbar" & _
       vbCrLf & "<YES> Continue, <NO> Close Word, " & _
       "<Cancel> halt Code", vbInformation + vbYesNoCancel)
       If UserResponse = vbCancel Then
           Set MyWord = Nothing
           MsgBox "Hit me again! If you want to do."
           Exit Sub
       ElseIf UserResponse = vbNo Then
           MsgBox "Word Application is closing. " & _
           "Save your file as necessary and Hit me again!"
           fActivateWindowClass ("OpusApp")
           MyWord.Application.Quit
           Set MyWord = Nothing
           Exit Sub
       Else
           fActivateWindowClass ("OpusApp")
           Set MyWord = Nothing
       End If
   End If
Call Shell("winword.exe """ & _
MyWordFileFullName$ & """", 3) ' 1= Normal, 3=Maximize

' Here Do your mailmerge things...
' If your document is Mailmerge Main Document,
' then it may already have datasource and try to connect
' on start-up. No need to opendatasource again I think.

End Sub

Ko Zaw