Dim frmCurrentForm As Form
Dim objWord As Word.Application
'Find name of form that called function
Set frmCurrentForm = Screen.ActiveForm
'Start Microsoft Word.
Set objWord = CreateObject("Word.Application")
With objWord
' Make the application visible and open the document.
.Visible = True
.Documents.Open (El nombre de tu fichero), , True
.Activate
End With
objWord.Quit
Set objWord = Nothing