RELATORIO NO WORD

SOFTHOUSE02 27/11/2010 16:19:56
#358339
ALGUEM SABE COMO SUBSTITUI INDICADORES NO WORD ATRAVES DO VB6, TO MANDANDO UM ANEXO E GOSTARIA DE SUBSTITUIR OS INDICADORES: MES E TOTAL POR VALORES DO VB. AGRADEÇO A AJUDA AMIGOS!
EVERTOOON 27/11/2010 16:37:02
#358340 Resposta escolhida
Se você quiser somente abrir o arquivo do Word, e preencher automaticamente os indicadores, pode usar esse código:

 

Private Sub Command1_Click()
[ô]Declara um objeto como documento do Word
     Dim objDoc As Word.Document

[ô]Define o objeto, abre e exibe o documento
     Set objWord = New Word.Application
     objWord.Visible = True
     Set objDoc = objWord.Documents.Open(App.Path & [Ô]    este.doc[Ô]) [ô]Aqui, eu abro o arquivo teste.doc, que está na raiz do nosso programa

[ô]Ativa o documento e edita os indicadores
objDoc.Activate
objDoc.Bookmarks([Ô]Mes[Ô]).Range.Text = [Ô]27/11/2010[Ô]
objDoc.Bookmarks([Ô]Total[Ô]).Range.Text = [Ô]R$ 10.000,00[Ô]

[ô]Limpa os objetos
Set objDoc = Nothing
Set objWord = Nothing




Espero que te ajude
Tópico encerrado , respostas não são mais permitidas
Voltar