Error message when opening a .doc file using excel macro

[GainesvilleWes via OfficeKB.com]

Morning,
I have created a macro in excel that when the user clicks a "done" button a
word document is opened from a shared drive.
this is what i have so far:

------------------------------------
Dim x As String
Dim wordApp As Object

ThisWorkbook.Save

x = Range("A156")

Set wordApp = CreateObject("Word.Application")
wordApp.Documents.Open "\\Flcscsrv02\share\Mercury Transactions\Test Docs\
" & x & "\Test word document.doc"
------------------------------------

when i run the macro the first time, nothing happens. when i run it a second
time, i get the "File in Use" pop up.

Where am i going wrong here?

 

[Tim Williams]

Set wordApp = CreateObject("Word.Application")
wordApp.Visible = True

 

[paul.robinson]

Hi
Try

Dim x As String
Dim wordApp As Word.Application
Dim myDoc As Word.Document
ThisWorkbook.Save
x = Range("A156")
Set wordApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set myDoc = wordApp.Documents.Open "\\Flcscsrv02\share\Mercury
Transactions\Test Docs\
" & x & "\Test word document.doc"
myDoc.Activate

regards
Paul

 

[GainesvilleWes via OfficeKB.com]

Thank you Paul & Tim.

Both ways worked! You guys are great =)

Hi
Try

Dim x As String
Dim wordApp As Word.Application
Dim myDoc As Word.Document
ThisWorkbook.Save
x = Range("A156")
Set wordApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set myDoc = wordApp.Documents.Open "\\Flcscsrv02\share\Mercury
Transactions\Test Docs\
" & x & "\Test word document.doc"
myDoc.Activate

regards
Paul

Morning,
I have created a macro in excel that when the user clicks a "done" button a

[quoted text clipped - 21 lines]