I'm working on a project where there are 800+ Word docs containing info on some instruments. I created a field in my Access instrument table that contains the Word doc file name of the corresponding Word doc for the instrument. On my form I created a button to bring up the doc in Word. The code follows:
Private Sub Procedure_Click()
DoCmd.Hourglass True
GetInstrPro Instpro:=Me![calibration information.Procedure]
DoCmd.Hourglass False
End Sub
Sub GetInstrPro(Instpro)
Dim appWord As Word.Application
Dim wd As String
On Error Resume Next
wd = "c:" & "\" & Instpro & ""
AppActivate "Microsoft Word"
If Err Then
Shell "c:\Program Files\Microsoft Office\Office\Winword /Automation", vbMaximizedFocus
AppActivate "Microsoft Word"
End If
On Error GoTo 0
Set appWord = GetObject(, "Word.Application"

With appWord
.Visible = True
.Documents.Open Filename:=wd
.ActiveDocument.ShowSpellingErrors = False
End With
Set appWord = Nothing
End Sub
I had them place all Word docs on the C:\ to make my code easier.
Neil