Access - Foco en ventana Word

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