INSERIR TEXTO M TABELA WORD

SOFTHOUSE02 26/07/2010 11:48:46
#348467
Gente alguem sabe como preencher uma tabela word pelo vb, estou mandando uma copia da tabela em anexo, por favor se alguem souber fico grato!
ADRIANOM 26/07/2010 12:51:58
#348480
Qual versão do vb você está usando?
MARCELO.TREZE 26/07/2010 14:19:18
#348506
Inserir dados das textbox’s no Word (Mala direta)

1 - Crie um arquivo no Word, um modelo de carta, um contrato de aluguel..., o qual vc irá sempre preencher apenas os campos (nome, endereço...)
2 - Ponha o cursor no local onde deve aparecer o conteúdo a ser preenchido (nome, endereço, telefone...) pelos dados do recordset que estarão visiveis nas textbox do form.
3 - Na carta ( Word) vá no menu inserir
4 - indicador, criar um nome de indicador e referenciar no comando abaixo na devida textbox)

Private Sub Command1_Click()
Dim objDoc As Word.Document
Set objWord = New Word.Application
objWord.Visible = True
Set objDoc = objWord.Documents.Open(App.Path & [Ô]Nome_do_DOC.doc[Ô])
objDoc.Activate
objDoc.Bookmarks([Ô]Data[Ô]).Range.Text = text1.text
objDoc.Bookmarks([Ô]Numero[Ô]).Range.Text = text2.text
objDoc.Bookmarks([Ô]esquema[Ô]).Range.Text = Text3.Text
Set objDoc = Nothing
Set objWord = Nothing
End Sub

Data, numero e esquema, são os indicadores criados no word

quando clicar no botão os dados constantes nas text[ô]s serão impressos nos locais indicados no modelo do Word.
Tópico encerrado , respostas não são mais permitidas
Voltar