Code to check if word doc is already open
 

Could some please shed there intelligence and help with
code to check to see if word document is already open

Private Sub cmdHelp_Click()
Dim objWord As Object
Dim objHelpFileDoc As Object

Set objWord = CreateObject("Word.Application")

objWord.Visible = True

Set objHelpFileDoc = objWord.Documents.Open _
("C:\Mid-Carolina Import Wizard\Help Files\InvoiceCreatorHelp.doc")

End Sub
Thanks Mike

Code to check if word doc is already open
 

http://support.microsoft.com?kbid=138621
XL: Macro Code to Check Whether a File Is Already Open

http://support.microsoft.com?kbid=291295
XL2002: Macro Code to Check Whether a File Is Already Open

http://support.microsoft.com?kbid=213383
XL2000: Macro Code to Check Whether a File Is Already Open

http://support.microsoft.com?kbid=184982
WD97: VBA Function to Check If File or Document Is Open

--
regards,
Tom Ogilvy


"Mike" wrote:

Could some please shed there intelligence and help with
code to check to see if word document is already open

Private Sub cmdHelp_Click()
Dim objWord As Object
Dim objHelpFileDoc As Object

Set objWord = CreateObject("Word.Application")

objWord.Visible = True

Set objHelpFileDoc = objWord.Documents.Open _
("C:\Mid-Carolina Import Wizard\Help Files\InvoiceCreatorHelp.doc")

End Sub
Thanks Mike

Code to check if word doc is already open
 

Thanks Tom

"Tom Ogilvy" wrote:


http://support.microsoft.com?kbid=138621
XL: Macro Code to Check Whether a File Is Already Open

http://support.microsoft.com?kbid=291295
XL2002: Macro Code to Check Whether a File Is Already Open

http://support.microsoft.com?kbid=213383
XL2000: Macro Code to Check Whether a File Is Already Open

http://support.microsoft.com?kbid=184982
WD97: VBA Function to Check If File or Document Is Open

--
regards,
Tom Ogilvy


"Mike" wrote:

Could some please shed there intelligence and help with
code to check to see if word document is already open

Private Sub cmdHelp_Click()
Dim objWord As Object
Dim objHelpFileDoc As Object

Set objWord = CreateObject("Word.Application")

objWord.Visible = True

Set objHelpFileDoc = objWord.Documents.Open _
("C:\Mid-Carolina Import Wizard\Help Files\InvoiceCreatorHelp.doc")

End Sub
Thanks Mike