WORD COM TEXTBOX
Boa noite
Alguem sabe me dizer como faço para importar o conteudo de um textbox para o word
eu uso através de datagridview, mas gostaria de carregar pelos textbox
Dim data As Date
data = Today
Try
[ô]Instancia a Aplicação Word.
objWord = CreateObject([Ô]Word.Application[Ô])
[ô]Abre o documento aviso.doc do Microsoft Word.
objWord.Documents.Open([Ô]c:\dbf\dbf\bin\debug\Recibo.doc[Ô])
[ô]Percorre o DataSet
For I = 0 To dsrecibo.Tables(0).Rows.Count - 1
[ô]Se o nome que está no DataSet for igual ao Nome selecionado no listbox.
SubstituiVariavel([Ô]@teste[Ô], [Ô]Recibo.[Ô])
SubstituiVariavel([Ô]@data[Ô], data)
SubstituiVariavel([Ô]@cpf[Ô], dsrecibo.Tables(0).Rows(I).Item(0))
SubstituiVariavel([Ô]@nome[Ô], dsrecibo.Tables(0).Rows(I).Item(1))
SubstituiVariavel([Ô]@rg[Ô], dsrecibo.Tables(0).Rows(I).Item(2))
Next
If MsgBox([Ô]Confirma abertura do documento?[Ô], MsgBoxStyle.YesNo, [Ô]Microsoft Word - Aviso.doc[Ô]) = MsgBoxResult.Yes Then
[ô]torna o Word visivel
objWord.visible = True
[ô]habilita o botão para fechar o word sem salvar
Else
fechaWord()
End If
Catch ex As Exception
objWord.ActiveDocument.Close(False)
objWord.Quit()
objWord = Nothing
MsgBox(ex.Message)
End Try
Alguem sabe me dizer como faço para importar o conteudo de um textbox para o word
eu uso através de datagridview, mas gostaria de carregar pelos textbox
Dim data As Date
data = Today
Try
[ô]Instancia a Aplicação Word.
objWord = CreateObject([Ô]Word.Application[Ô])
[ô]Abre o documento aviso.doc do Microsoft Word.
objWord.Documents.Open([Ô]c:\dbf\dbf\bin\debug\Recibo.doc[Ô])
[ô]Percorre o DataSet
For I = 0 To dsrecibo.Tables(0).Rows.Count - 1
[ô]Se o nome que está no DataSet for igual ao Nome selecionado no listbox.
SubstituiVariavel([Ô]@teste[Ô], [Ô]Recibo.[Ô])
SubstituiVariavel([Ô]@data[Ô], data)
SubstituiVariavel([Ô]@cpf[Ô], dsrecibo.Tables(0).Rows(I).Item(0))
SubstituiVariavel([Ô]@nome[Ô], dsrecibo.Tables(0).Rows(I).Item(1))
SubstituiVariavel([Ô]@rg[Ô], dsrecibo.Tables(0).Rows(I).Item(2))
Next
If MsgBox([Ô]Confirma abertura do documento?[Ô], MsgBoxStyle.YesNo, [Ô]Microsoft Word - Aviso.doc[Ô]) = MsgBoxResult.Yes Then
[ô]torna o Word visivel
objWord.visible = True
[ô]habilita o botão para fechar o word sem salvar
Else
fechaWord()
End If
Catch ex As Exception
objWord.ActiveDocument.Close(False)
objWord.Quit()
objWord = Nothing
MsgBox(ex.Message)
End Try
Boa noite,
Amigo tenta trocar o dsrecibo.... pelas textbox....
Até mais.
Amigo tenta trocar o dsrecibo.... pelas textbox....
Até mais.
Só uma pergunta... Não seria mais fácil fazer isso no crystal? ou reportviewer?
galera consegui...
então até seria....
mas o problema é que é um recibo e a pessoa pode altera-lo... mas vou fazer em crystal depois...
então até seria....
mas o problema é que é um recibo e a pessoa pode altera-lo... mas vou fazer em crystal depois...
Olha eu faço o seguinte, eu pego os dados todos e monto em uma richtexbox, ai altero o que tiver que alterar nele e depois gero o recibo no crystal, outra coisa também é que no crystal tem como vc exportar para o word.
Até mais.
Até mais.
Tópico encerrado , respostas não são mais permitidas