VB6 WORD
Bom Dia a Todos.
Tenho um sistema aonde abro o word e faço algumas alterações no mesmo.
Dim Word As New Word.Application
With Word
.Documents.Open App.Path & [Ô]\Contrato_Minuta.doc[Ô]
.Visible = True
.WindowState = wdWindowStateMaximize
Selection.Find.Execute [Ô]|Contrato|[Ô]
Selection.TypeText Space(1) & Contrato
Selection.Find.Execute [Ô]|Cliente|[Ô]
Selection.TypeText Space(1) & ComboCliente.Text
Selection.Find.Execute [Ô]|Cidade|[Ô]
Selection.TypeText Space(1) & Cidade
Selection.Find.Execute [Ô]|Rua|[Ô]
Selection.TypeText Space(1) & Endereco
Selection.Find.Execute [Ô]|Cep|[Ô]
Selection.TypeText Space(1) & mskCEP.Text
Selection.Find.Execute [Ô]|CNPJ|[Ô]
Selection.TypeText Space(1) & mskCNPJ.Text
Set Word = Nothing
Word.Quit
End With
funciona normal, porem se faço o mesmo processo em seguida sem sair do sistema, da o seguinte erro na linha em negrito acima, the remote server machine does not exist or is unavailable
Tenho um sistema aonde abro o word e faço algumas alterações no mesmo.
Dim Word As New Word.Application
With Word
.Documents.Open App.Path & [Ô]\Contrato_Minuta.doc[Ô]
.Visible = True
.WindowState = wdWindowStateMaximize
Selection.Find.Execute [Ô]|Contrato|[Ô]
Selection.TypeText Space(1) & Contrato
Selection.Find.Execute [Ô]|Cliente|[Ô]
Selection.TypeText Space(1) & ComboCliente.Text
Selection.Find.Execute [Ô]|Cidade|[Ô]
Selection.TypeText Space(1) & Cidade
Selection.Find.Execute [Ô]|Rua|[Ô]
Selection.TypeText Space(1) & Endereco
Selection.Find.Execute [Ô]|Cep|[Ô]
Selection.TypeText Space(1) & mskCEP.Text
Selection.Find.Execute [Ô]|CNPJ|[Ô]
Selection.TypeText Space(1) & mskCNPJ.Text
Set Word = Nothing
Word.Quit
End With
funciona normal, porem se faço o mesmo processo em seguida sem sair do sistema, da o seguinte erro na linha em negrito acima, the remote server machine does not exist or is unavailable
....
End With
Set Word = Nothing
End With
Set Word = Nothing
ja tentei assim tambem, e acontece o mesmo erro
Fera tente isso
Dim Word As New Word.Application
With Word
.Documents.Open App.Path & [Ô]\Contrato_Minuta.doc[Ô]
.Visible = True
.WindowState = wdWindowStateMaximize
.Selection.Find.Execute [Ô]|Contrato|[Ô]
.Selection.TypeText Space(1) & Contrato
.Selection.Find.Execute [Ô]|Cliente|[Ô]
.Selection.TypeText Space(1) & ComboCliente.Text
.Selection.Find.Execute [Ô]|Cidade|[Ô]
.Selection.TypeText Space(1) & Cidade
.Selection.Find.Execute [Ô]|Rua|[Ô]
.Selection.TypeText Space(1) & Endereco
.Selection.Find.Execute [Ô]|Cep|[Ô]
.Selection.TypeText Space(1) & mskCEP.Text
.Selection.Find.Execute [Ô]|CNPJ|[Ô]
.Selection.TypeText Space(1) & mskCNPJ.Text
Set Word = Nothing
Word.Quit
End With
ja tentei tambem meu amigo
Tenta comparar... Mais acredito se estiver algo gerando erro não é essa rotina.
Segue projeto que fiz o teste.
Segue projeto que fiz o teste.
o seu funcionou, o meu mesmo com o seu word, nao funciona
Faz ao contrario roda esse projeto que enviei com o seu arquivo!
erro
Meu amigo, não quero te chatiar mas também utilizo uma rotina parecida no meu sistema, e ele começou a dar muita-dor-de-cabeça ao extremo, começou desse jeito que você descreveu depois dizia erro 70 permissão negada, acho que logo vai acontecer com você, mas, pra contornar e resolver fiz o seguinte:
Dim Word As New Word.Application ===> dim word as object
depois mandei executar o word usando shell ± assim shell [Ô].......\winword.exe[Ô]
depois capturei o mesmo ± assim getobject ([Ô][Ô],word.application)
foi a unica forma que conegui resolver meus problemas que começarama sozinhos, do nada e sem explicação, pois, funcionaram alguns dias depois começou a febre, tomará que resolva pra você também........
Dim Word As New Word.Application ===> dim word as object
depois mandei executar o word usando shell ± assim shell [Ô].......\winword.exe[Ô]
depois capturei o mesmo ± assim getobject ([Ô][Ô],word.application)
foi a unica forma que conegui resolver meus problemas que começarama sozinhos, do nada e sem explicação, pois, funcionaram alguns dias depois começou a febre, tomará que resolva pra você também........
Tópico encerrado , respostas não são mais permitidas