NEGRITO. ITALICO E SUBLINHADO NO WORD
Pessoal boa tarde estou fazendo um relatório em worb pelo vb6, e estou tendo alguns problemas.
é o seguinte tenho um texto que vem do banco de dados e nele tem tags html de <i></i>, <b></b>,<u></u> na hora que vou escrever ele no relatório em word sai essas tags, como poso fazer uma macro para subistituir pelos respectivos no word.
é o seguinte tenho um texto que vem do banco de dados e nele tem tags html de <i></i>, <b></b>,<u></u> na hora que vou escrever ele no relatório em word sai essas tags, como poso fazer uma macro para subistituir pelos respectivos no word.
Cara, primeiro você deve fazer um [Ô]Replace[Ô] para, quando o programa ler seus dados do banco de dados, essas tags sejam eliminadas.
Agora, o caso da formatação do texto, os comandos são estes:
[txt-color=#0000f0]Private Sub [/txt-color]Command1_Click()
[txt-color=#0000f0]Dim[/txt-color] Word [txt-color=#0000f0]As New [/txt-color]Word.Application
[txt-color=#0000f0]Dim[/txt-color] WPagina [txt-color=#0000f0]As[/txt-color] Word.Document
[txt-color=#0000f0]Set [/txt-color]WPagina = Word.Documents.Open([Ô]C:\TesteWord.doc[Ô])[txt-color=#007100] [ô]Supondo que eu tenho um arquivo chamado [Ô]TesteWord.doc[Ô][/txt-color]
[txt-color=#0000f0]With[/txt-color] Word.Selection
.TypeParagraph
.Font.Name = [Ô]Arial[Ô]
.Font.Italic = [txt-color=#0000f0]True[/txt-color] [txt-color=#007100][ô]Aqui você pode fazer um [Ô]Select Case[Ô] para escolher entre Bold, Italic ou qualquer outro que você queira[/txt-color]
.TypeText Text1.Text [txt-color=#007100][ô]Aqui ele está pegando o que está escrito dentro de um TextBox[/txt-color]
[txt-color=#0000f0]End With
End Sub[/txt-color]
Vê se te ajuda e faça as adaptações necessárias pro seu caso.
Obs. Também estou levando em conta que você já fez referência ao Word.
Agora, o caso da formatação do texto, os comandos são estes:
[txt-color=#0000f0]Private Sub [/txt-color]Command1_Click()
[txt-color=#0000f0]Dim[/txt-color] Word [txt-color=#0000f0]As New [/txt-color]Word.Application
[txt-color=#0000f0]Dim[/txt-color] WPagina [txt-color=#0000f0]As[/txt-color] Word.Document
[txt-color=#0000f0]Set [/txt-color]WPagina = Word.Documents.Open([Ô]C:\TesteWord.doc[Ô])[txt-color=#007100] [ô]Supondo que eu tenho um arquivo chamado [Ô]TesteWord.doc[Ô][/txt-color]
[txt-color=#0000f0]With[/txt-color] Word.Selection
.TypeParagraph
.Font.Name = [Ô]Arial[Ô]
.Font.Italic = [txt-color=#0000f0]True[/txt-color] [txt-color=#007100][ô]Aqui você pode fazer um [Ô]Select Case[Ô] para escolher entre Bold, Italic ou qualquer outro que você queira[/txt-color]
.TypeText Text1.Text [txt-color=#007100][ô]Aqui ele está pegando o que está escrito dentro de um TextBox[/txt-color]
[txt-color=#0000f0]End With
End Sub[/txt-color]
Vê se te ajuda e faça as adaptações necessárias pro seu caso.
Obs. Também estou levando em conta que você já fez referência ao Word.
Tópico encerrado , respostas não são mais permitidas