Jump to content
Fórum Script Brasil
  • 0

Abrir o documento Word


Flecha
 Share

Question

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 ?

Edited by Flecha
Link to comment
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.2k
    • Total Posts
      647.5k
×
×
  • Create New...