Access - Objeto Word en Access

Private Sub ImprimirWord_Click()

Set MiWord = CreateObject("Word.Application")

Set MiDoc = MiWord.Documents.Open(CurrentProject.Path & "\localidad.doc", ReadOnly:=True)

MiWord.Visible = True

Set cambio = MiWord.ActiveWindow.Selection.Find

 If IsNull(Codigo) Or Codigo = "" Then

   cambio.Execute "#Codigo", False, , , , , , , , "", 2

 Else

   cambio.Execute "#Codigo", False, , , , , , , , Codigo, 2

 End If

 If IsNull(CP) Or CP = "" Then

   cambio.Execute "#CP", False, , , , , , , , "", 2

 Else

   cambio.Execute "#CP", False, , , , , , , , CP, 2

 End If

 If IsNull(Nombre) Or Nombre = "" Then

   cambio.Execute "#Nombre", False, , , , , , , , "", 2

 Else

   cambio.Execute "#Nombre", False, , , , , , , , Nombre, 2

 End If

 Set MiWord = Nothing

 Set MiDoc = Nothing

 Set cambio = Nothing

End Sub

Set cambio = Nothing

.

.

.

' Abrir o Doc após ser gerado.

Dim w As String 'ROTINA: Abrir arquivo automaticamente após ser gerado

Dim y As String

'w = "C:\RecoFoto\"

'y = "C:\Recofoto\" & "POSITIVA_" & Forms!frmgeralguia!SubEntrevistadoGuia.Form!NumEntrevistado & ".doc"

 ' No diretorio c:\Word

w = "C:\Word\"

y = "C:\Word\" & "POSITIVA_" & Forms!frmgeralguia!SubEntrevistadoGuia.Form!NumEntrevistado & ".doc"

' Abre no c : o D:

'Shell "D:\WINDOWS\explorer.exe """ & y & "", vbNormalFocus

Shell "C:\WINDOWS\explorer.exe """ & y & "", vbNormalFocus

End sub