Abrir o documento Word

[Flecha]

Olá,

Estou usando a rotina abaixo em um botão para mnesclar os dados no Word, mas após criado o .Doc já quero abrí-lo para imprimir

mas dá o erro na penultima linha, onde manda abrir :

erro em tempo de Execução '91'.

A variável do objeto ou a variável do bloco 'With' não foi definida.

'Imprime tudo certo sendo no Subform só o 1º Registro  como Folha de Dados.
'pelo comando no FromPrincipal.
Dim MiWord
Dim MiDoc
Dim Cambio
Dim strAppPath As String
strAppPath = Application.CurrentProject.Path
Set MiWord = CreateObject("Word.Application")
Set MiDoc = MiWord.Application.Documents.Open(CurrentProject.Path & "\Positivo.doc")
Set Cambio = MiWord.ActiveWindow.Selection.Find
With word

Cambio.Execute "{numip}", False, , , , , , , , NumIP, 2
Cambio.Execute "{nome}", False, , , , , , , , Forms!frm_entrevista!Sub_Frm_Testemunha.Form!Nome, 2
Cambio.Execute "{numano}", False, , , , , , , , NumAno, 2
If Not IsNull(Me.NumFotoReco) Then
Cambio.Execute "{numfotoreco}", False, , , , , , , , NumFotoReco, 2
End If
Cambio.Execute "{nomec}", False, , , , , , , , NomeC, 2
Cambio.Execute "{rg}", False, , , , , , , , RG, 2

If Not IsNull(Me.NumFotoReco) Then
Cambio.Execute "{numfotoreco}", False, , , , , , , , NumFotoReco, 2
End If
Cambio.Execute "{delegado}", False, , , , , , , , Delegado, 2
Cambio.Execute "{Naturezadofato}", False, , , , , , , , NaturezadoFato, 2
Cambio.Execute "{numautores}", False, , , , , , , , NumAutores, 2
Cambio.Execute "{datadofato}", False, , , , , , , , DatadoFato, 2
Cambio.Execute "{data}", False, , , , , , , , Data, 2
Cambio.Execute "{horariodofato}", False, , , , , , , , HorariodoFato, 2
Cambio.Execute "{responsavel}", False, , , , , , , , Responsavel, 2
Cambio.Execute "{obs}", False, , , , , , , , OBS, 2

'Cambio.Execute "{entrev1}", False, , , , , , , , Entrev1, 2


Cambio.Execute "{numbo}", False, , , , , , , , NumBO, 2
Cambio.Execute "{localdofato}", False, , , , , , , , LocaldoFato, 2
Cambio.Execute "{responsavel}", False, , , , , , , , Responsavel, 2

If Not IsNull(Me.Natural) Then
Cambio.Execute "{natural}", False, , , , , , , , Natural, 2
End If
If Not IsNull(Me.Vulgo) Then
Cambio.Execute "{vulgo}", False, , , , , , , , Vulgo, 2
End If
If Not IsNull(Me.Pai) Then
Cambio.Execute "{pai}", False, , , , , , , , Pai, 2
End If
If Not IsNull(Me.Mãe) Then
Cambio.Execute "{mãe}", False, , , , , , , , Mãe, 2
End If
If Not IsNull(Me.Endereço) Then
Cambio.Execute "{endereço}", False, , , , , , , , Endereço, 2
End If
If Not IsNull(Me.Bairro) Then
Cambio.Execute "{bairro}", False, , , , , , , , Bairro, 2
End If






'Cambio.Execute "{Docto}", False, , , , , , , , RG, 2




Cambio.Execute "{nome1}", False, , , , , , , , Forms!frm_entrevista!Sub_Frm_Testemunha.Form!Nome, 2
Cambio.Execute "{Docto}", False, , , , , , , , Forms!frm_entrevista!Sub_Frm_Testemunha.Form!Docto, 2
Cambio.Execute "{enderecoe}", False, , , , , , , , Forms!frm_entrevista!Sub_Frm_Testemunha.Form!EnderecoE, 2
Cambio.Execute "{bairro1}", False, , , , , , , , Forms!frm_entrevista!Sub_Frm_Testemunha.Form!Bairro, 2
Cambio.Execute "{uf}", False, , , , , , , , Estado, 2
Cambio.Execute "{Fone}", False, , , , , , , , Forms!frm_entrevista!Sub_Frm_Testemunha.Form!Fone, 2


Cambio.Execute "{delegacia}", False, , , , , , , , Delegacia, 2


'Cambio.Execute "{image1}", False, , , , , , , , Foto, 2
MiWord.ActiveDocument.Bookmarks("image1").Select
MiWord.Selection.InlineShapes.AddPicture FileName:="" & Forms!frm_entrevista!LocalFoto & "", LinkToFile:=False, SaveWithDocument:=True

Call MiDoc.SaveAs(CurrentProject.Path & "\POSITIVA_" & Forms!frm_entrevista!Sub_Frm_Testemunha.Form!NumEntrevistado & ".doc")
MiWord.Quit
Set MiWord = Nothing
Set MiDoc = Nothing
Set Cambio = Nothing

Call MiDoc.OpenFile(CurrentProject.Path & "\POSITIVA_" & Forms!frm_entrevista!Sub_Frm_Testemunha.Form!NumEntrevistado & ".doc")  <----Nessa linha


'DoCmd.RunMacro "Mensagem de Final"
End With
End Sub

Como posso corrigir esse erro ?

Editado Setembro 23, 2012 por Flecha

[MrMALJ]

Tente isso

Dim MeuDoc As Word.Document

MeuDoc = Shell("WINWORD" & " " & """Coloque o caminho ou path aqui.doc""", vbNormalFocus)