VB6 - Como criar um arquivo DOC ( padrão Word ) via Visual Basic.

Já estou sendo repetitivo , mas vamos novamente mostrar como criar um arquivo doc ( padrão Word ) no Visual Basic :

É muito simples. Siga a receita.:

1-) 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 )

2-) No formulário padrão insira uma label(label1) e um botão de comando(command1) conforme o layout abaixo:

3-) No formulário padrão insira um botão de comando e no evento Click do mesmo digite o seguinte código:

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 - JCMSOFT"
  .Selection.TypeParagraph
  .Selection.Font.Size = 15
  .Selection.TypeText Text:="www.geocities.com/macoratti"
  .Selection.TypeParagraph
  .Selection.TypeParagraph
  .Selection.Font.Size = 10
  .Selection.Font.Italic = True
  .Selection.TypeText Text:="Tudo para Visual Basic e Banco de dados"
End With

Word_VB.Documents(Word_VB.ActiveDocument).SaveAs Text1.Text
Word_VB.Quit
Set Word_VB = Nothing

End Sub

Ao executar o projeto e clicar no botão de comando(command1) teremos:

Abaixo mostramos o diretório teste e nele o arquivo doc_vb.doc criado:

E , é só....

Veja os Destaques e novidades do SUPER DVD Visual Basic (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Quer aprender C# ??

 

             Gostou ?   Compartilhe no Facebook   Compartilhe no Twitter
 

Referências:

José Carlos Macoratti