ABRIR WORD NO VB6

LEANDRO 08/06/2011 10:07:17
#376150
Bom Dia a Todos,
tenho um contrato em Word aonde tenho alguns campos que jogo a informação que esta no banco de Dados.
Porem em uma maquina XP funciona perfeitamente, no Windows 7, ele nao carrega os campos e ainda da um erro, ele até abre o Word, mas não carrega os campos

segue o codigo,

With Word
.Documents.Open App.Path & [Ô]\Contrato_Cine.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) & CarregaCliente.Fields([Ô]cli_cidade[Ô]).Value
Selection.Find.Execute [Ô]|Rua|[Ô]
Selection.TypeText Space(1) & CarregaCliente.Fields([Ô]cli_endereco[Ô]).Value
Selection.Find.Execute [Ô]|Bairro|[Ô]
Selection.TypeText Space(1) & CarregaCliente.Fields([Ô]cli_bairro[Ô]).Value
Selection.Find.Execute [Ô]|Cep|[Ô]
Selection.TypeText Space(1) & mskCEP.Text
Selection.Find.Execute [Ô]|CNPJ|[Ô]
Selection.TypeText Space(1) & mskCNPJ.Text
Selection.Find.Execute [Ô]|InsEst|[Ô]
Selection.TypeText Space(1) & mskInsEst.Text
Selection.Find.Execute [Ô]|Contato|[Ô]
Selection.TypeText Space(1) & mskRepres.Text
Selection.Find.Execute [Ô]|RG|[Ô]
Selection.TypeText Space(1) & mskRG.Text
Selection.Find.Execute [Ô]|CPF|[Ô]
Selection.TypeText Space(1) & mskCPF.Text
Selection.Find.Execute [Ô]|Esp|[Ô]
Selection.TypeText Space(1) & mskEsp.Text
Selection.Find.Execute [Ô]|Obj|[Ô]
Selection.TypeText Space(1) & mskObj.Text
Selection.Find.Execute [Ô]|DtDEve|[Ô]
Selection.TypeText Space(1) & mskdtinicioD.Text
Selection.Find.Execute [Ô]|DtDFimEve|[Ô]
Selection.TypeText Space(1) & mskdtfinalD.Text
Selection.Find.Execute [Ô]|DtMFimEve|[Ô]
Selection.TypeText Space(1) & MonthName(mskdtfinalM.Text)
Selection.Find.Execute [Ô]|DtYFimEve|[Ô]
Selection.TypeText Space(1) & mskdtfinalY.Text
Selection.Find.Execute [Ô]|Qtde|[Ô]
Selection.TypeText Space(1) & mskPublico.Text
Selection.Find.Execute [Ô]|Hora Ini|[Ô]
Selection.TypeText Space(1) & mskHoraIni.Text
Selection.Find.Execute [Ô]|Hora Ini Des|[Ô]
Selection.TypeText Space(1) & ExtensoHora(Left(mskHoraIni, 2))
Selection.Find.Execute [Ô]|DtDEve|[Ô]
Selection.TypeText Space(1) & mskdtinicioD.Text
Selection.Find.Execute [Ô]|DtMEve|[Ô]
Selection.TypeText Space(1) & MonthName(mskdtinicioM.Text)
Selection.Find.Execute [Ô]|DtYEve|[Ô]
Selection.TypeText Space(1) & mskdtinicioY.Text
Selection.Find.Execute [Ô]|Hora Fim|[Ô]
Selection.TypeText Space(1) & mskHoraFim.Text
Selection.Find.Execute [Ô]|Hora Fim Des|[Ô]
Selection.TypeText Space(1) & ExtensoHora(Left(mskHoraFim, 2))
Selection.Find.Execute [Ô]|DtDEveFim|[Ô]
Selection.TypeText Space(1) & mskdtfinalD.Text
Selection.Find.Execute [Ô]|DtMEveFim|[Ô]
Selection.TypeText Space(1) & MonthName(mskdtfinalM.Text)
Selection.Find.Execute [Ô]|DtYEveFim|[Ô]
Selection.TypeText Space(1) & mskdtfinalY.Text
Selection.Find.Execute [Ô]|Fornec Val|[Ô]
Selection.TypeText Space(1) & mskEmpEstc.Text
Selection.Find.Execute [Ô]|Fornec Seg|[Ô]
Selection.TypeText Space(1) & mskEmpSegr.Text
Selection.Find.Execute [Ô]|VlrTotEve|[Ô]
Selection.TypeText Space(1) & mskVlrCes.Text
Selection.Find.Execute [Ô]|VlrTotEveDes|[Ô]
Selection.TypeText Space(1) & Extenso(mskVlrCes.Text)
Selection.Find.Execute [Ô]|Qtde|[Ô]
Selection.TypeText Space(1) & mskPublico.Text

End With
LEANDRO 08/06/2011 10:42:41
#376153
e o mais interessante de tudo é que coloquei em outro Windows 7 e funciona
MARCELO.TREZE 08/06/2011 14:03:07
#376181 Resposta escolhida
qual o versão do windows 7 possui as maquinas em que vc efetuou o teste, e qual o office de ambas as máquinas, o problema pode ser no office.
LEANDRO 08/06/2011 14:47:35
#376186
no que deu errado

Office Professional 2003
Windows 7 Home Premium
MARCELO.TREZE 08/06/2011 14:52:28
#376189
e o que deu certo?
LEANDRO 08/06/2011 17:24:34
#376196
Então ja tentei nos Ultimate, Professional e Home Premium

o Office em todos foi o Professional
MARCELO.TREZE 08/06/2011 19:07:38
#376204
pode ser alguma dll que não está registrada.
MARCELO.TREZE 08/06/2011 19:41:44
#376206
se não funcionar minha sugestão seria vc criar seu proprio editor, ou seja insira um richtextbox, coloque os textbox e pronto bast colocar um botão e verificar campos especificos.

faça alterações como se fosse um xml

ex

em um texto no richtext

[Ô].... declaro que o senhor <nome> portador do cpf <cpf> ...[Ô]

faça um loop procurando todas as palavras alterando para o conteudo desejado

ex:

richTextBox.Text = Replace(RichTextBox.Text, [Ô]<nome>[Ô], txtNome.text)
MARCIOR 08/06/2011 21:00:54
#376210
tentou inserir com indece?

Set objWord = New Word.Application
objWord.Visible = True
Set objDoc = objWord.Documents.Open(App.Path & [Ô]\Declaração.doc[Ô])

objDoc.Activate
objDoc.Bookmarks([Ô]Nome[Ô]).Range.Text = Form1.TxtNome.Text
If Produtos = 1 Then objDoc.FormFields([Ô]Selecionar4[Ô]).CheckBox.Value = True
If Produtos = 2 Then objDoc.FormFields([Ô]Selecionar5[Ô]).CheckBox.Value = True
If Produtos = 3 Then objDoc.FormFields([Ô]Selecionar6[Ô]).CheckBox.Value = True
If Produtos = 4 Then objDoc.FormFields([Ô]Selecionar1[Ô]).CheckBox.Value = True
Tópico encerrado , respostas não são mais permitidas
Voltar