Form Buttons

[jamienwood]

What code can i use to make a file open when i clikc a button on a form, it is actuially going to be a help file written in Microsoft word called RepotPrinterHelp.doc

 

[dk]

Hello,

Something like this.

Dim wdApp As Object, wdDoc As Object

Set wdApp = CreateObject("WORD.APPLICATION")
wdApp.Documents.Open "C:Folder NameRepotPrinterHelp.doc"
wdApp.Visible = True

 

[jamienwood]

Thats perfect, Cheers!!

 

[Paul_R]

Is there a command that doesn't open a new instance of Word every time?

 

[dk]

This code uses GetObject to see if an instance of Word exists. If it does, then it uses that. If not, it will create a new one.

Sub Test()
Dim wdApp As Object, wdDoc As Object

On Error Resume Next
Err.Clear
Set wdApp = GetObject(, "WORD.APPLICATION")
If Err.Number <> 0 Then
Set wdApp = CreateObject("WORD.APPLICATION")
End If

On Error GoTo 0
wdApp.Documents.Open "C:temptest file.rtf"
wdApp.Visible = True
AppActivate "Microsoft Word"
End Sub

 

[Paul_R]

That looks good will give it a try,

thanks.

Iv'e used a similar method to catch trying to open an excel sheet twice but didn't twig the connection.