EXPORTACAO PARA WORD

USUARIO.EXCLUIDOS 15/08/2007 14:57:38
#231044
Caros amigos, estou com um problema:

Tenho uma aplicação, onde existem vários textBox, e preciso exportar os dados desses textBox para o Word. Sendo que no word, tenho uma tabela já montada, onde tenho que preenche-la com os dados dos TextBox da aplicação.
Peguei um exemplo no site do Macoratti, porem não está dando certo.
Alguem saberia me dizer como devo fazer, ou ate mesmo me passar um exemplo?

Na tabela da imagem abaixo, preciso alterar somente os campos que começam com " [txt-color=#3333ff]@ [/txt-color]".

Obrigado e fico no aguardo, pois estou com uma certa pressa disso.
Tanks!
GUTO 15/08/2007 15:06:46
#231046
aki no site tem varios exemplos da uma olhada nesse

http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=5132
USUARIO.EXCLUIDOS 15/08/2007 15:20:37
#231056 Resposta escolhida
Project >>> References
Adicione a referência Microsoft Word X.X Object Library

Para abrir o arquivo do word pré-formatado:
    Dim App As New Word.Application
    Dim Doc As Word.Document

    Set Doc = App.Documents.Open("Caminho do Arquivo", _
        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto)



Para efetuar o replace:
    Doc.Application.Selection.Find.ClearFormatting
    Doc.Application.Selection.Find.Replacement.ClearFormatting
    With Doc.Application.Selection.Find
        .Text = "@Var" 'Texto a Procurar
        .Replacement.Text = "ConteudoVar" 'Substituir por
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Doc.Application.Selection.Find.Execute Replace:=wdReplaceAll
RODRIGOGBGOMES 15/08/2007 15:25:27
#231060
dá uma olhada nesse código
USUARIO.EXCLUIDOS 15/08/2007 18:58:38
#231103
Todos os exemplos esta dando o mesmo erro do site do macoratti.
Sera q o problema eh comigo? rsrsrsr
Ja referenciei o Word, e nada mudou.
Alguem me ajuda por favor.
Vlw!
RODRIGOGBGOMES 15/08/2007 20:24:23
#231106
oh cara... eu testei e ta normalz.... o q ta acontecendo?
GUTO 16/08/2007 12:08:22
#231174
qu erro irmao ?
USUARIO.EXCLUIDOS 16/08/2007 13:10:35
#231184
Nao sei o motivo do erro, mas está indo direto para a linha abaixo:

[txt-color=#3333ff]trata_erro:
MsgBox "Ocorreu um erro durante o processamento " & " - Erro numero : " &
Err.Number[/txt-color]


Ai nao executa mais nada!
Alguém por favor saberia me explicar o motivo?
Vlw!
USUARIO.EXCLUIDOS 16/08/2007 13:16:42
#231185
amigo, no começo do seu código deve ter algo do tipo:
On Error GoTo trata_erro



Tira esta linha e executa. Aí posta pra gente o erro que vai ocorrer e a linha que o mesmo ocorre.
USUARIO.EXCLUIDOS 16/08/2007 13:22:34
#231187
Eu estou no trabalho, nao tenho o Vb instalado na maquina, estou desenvolvendo em casa, alguem teria como me mandar um exemplo que esteja funcionando?
Abraços.


[txt-color=#006600]Com o programa ja compilado, esta dando o erro nº 5174[/txt-color]
Mas com o codigo aberto nao tenho como ver aqui.

Obrigado.

[txt-color=#ff0000]Obs.: Esse erro "5174" está sem a alteraçao que o nosso amigo MARCELOHF pediu que eu faça.[/txt-color]
USUARIO.EXCLUIDOS 16/08/2007 13:36:22
#231189
Citação:

alguem teria como me mandar um exemplo que esteja funcionando?




Amigo, todos os códigos acima deveriam funcionar! Esta é a verdade...

Porém todos eles necessitam do Word instalado e tudo mais... por isso creio que seja realmente necessário saber qual o erro que acontece, o erro provavelmente não está no código em cima, mas sim em alguma dependência dele.
Página 1 de 3 [22 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar