AJUDA COM WORD

PEGUDO 19/01/2010 15:00:23
#332312
Olá, pessoal

Preciso de uma ajuda para poder salvar o conteúdo das linhas e colunas de um ListView para um documento do Word.
O ListView tem 5 colunas e o nº de linhas é variado, porque é o resultado de uma busca.

Já fiz a referência ao Word, Já declarei as variáveis, já fiz o loop para ler todas as linhas e colunas do ListView;
Só falta saber como faz para gravar este conteúdo em um arquivo DOC.

acima tem a imagem do meu formulário

Valeu galera.
ONBASS 19/01/2010 15:53:48
#332314 Resposta escolhida
vja se serve...
PEGUDO 19/01/2010 18:37:09
#332343
Oi, Dekinho

O arquivo ta corrompido!
MARCELO.TREZE 19/01/2010 19:49:05
#332347
veja este exemplo apenas faça a adptação

Inicie um novo projeto no Visual Basic e faça a seguinte referência no seu projeto:

Microsoft Word x.0 Object Library ( onde x.0 pode ser 8.0 ou 9.0 )


Private Sub Command1_Click()
Dim Word_VB As New word.Application

Word_VB.Documents.Add
Word_VB.Visible = True

With Word_VB
  .Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  .Selection.Font.Size = 20
  .Selection.Font.Bold = True
  .Selection.TypeText Text:=[Ô]VISUAL BASIC[Ô]
  .Selection.TypeParagraph
  .Selection.Font.Size = 15
  .Selection.TypeText Text:=[Ô]Marcelo-Treze[Ô]
  .Selection.TypeParagraph
  .Selection.TypeParagraph
  .Selection.Font.Size = 10
  .Selection.Font.Italic = True
  .Selection.TypeText Text:=[Ô]VB para Word[Ô]
End With

Word_VB.Documents(Word_VB.ActiveDocument).SaveAs Text1.Text
Word_VB.Quit
Set Word_VB = Nothing
End Sub
ONBASS 19/01/2010 21:50:08
#332356
nao entendo, aqui ta normalzinho...
EPISCOPAL 19/01/2010 22:59:37
#332363
De fato o codigo do dekinhooo ta normal ........... excelente codigo dekinho ....
ONBASS 20/01/2010 00:06:00
#332367
vlw WOLF,

tamo aprendendo cara, abras
PEGUDO 21/01/2010 09:21:51
#332468
Oi Galera,
MARCELO-TREZE valeu pela força, Código muito bom para estudos. BRIGADÃO
DEKINHO, consegui abrir o teu código. é um código realmente muito bom e é o que eu precisava.

Valeu a todos que leram e que me deram aquela ajuda.
Abraços.
Tópico encerrado , respostas não são mais permitidas
Voltar