Code to check if word doc is already open

[Mike]

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

 

[Tom Ogilvy]

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

 

[Mike]

Thanks Tom

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