VB6 ATUALIZANDO DOCUMENTO .DOC WORD 2003

CYBERLOCINFO 10/08/2011 19:24:16
#381300

Crie um projeto em VB6.
No Form1 coloque 2 Labels, 2 TextBox (Name: txtNome e txtCodigo) e 2 Command1 (Name: Salvar e Name: Sair)

No menu Project / References
Escolha: Microsoft Word xx.0 Object Library (usei o xx=12)

Segue abaixo o código fonte:

General Declaration
Public ObjWord As Word.Application

Private Sub Substitui_Var(Header As String, Data As String)
With ObjWord.Selection.Find
.ClearFormatting
.Text = Header
.Execute Forward:=True
End With

Clipboard.Clear
Clipboard.SetText (Data)
ObjWord.Selection.Paste
Clipboard.Clear
End Sub

Private Sub Salvar_Click()
Dim Temp As String
Dim TxtContrato As String

TxtContrato = [Ô]F:\Arquivos\Informatica\Programas\Teste\TesteVr.doc[Ô]

Set ObjWord = New Word.Application
[ô] nome do arquivo pre-montado
ObjWord.Documents.Open ([Ô]F:\Arquivos\Informatica\Programas\Teste    este.doc[Ô])

[ô]Chama rotina para substituição
Call Substitui_Var([Ô]@Text1[Ô], Text1.Text)
Call Substitui_Var([Ô]@Text2[Ô], Text2.Text)

[ô]Salva o documento com novo nome
ObjWord.ActiveDocument.SaveAs (TxtContrato)

[ô]Encerra o objeto Word
ObjWord.Quit

[ô]Libera memória
Set ObjWord = Nothing

MsgBox [Ô]Arquivo gerado com sucesso...[Ô], vbInformation, [Ô]Mensagem[Ô]
End Sub

Private Sub Sair_Click()
End
End Sub