Scrivere un file MS Word in VB6

Pubblicità su lukeonweb.net a partire da 0,5 euro CPM e sconti fino al 50% !!!

» I più cliccati » I più votati

Web Wizard & Tools

Web Grafica

Siti utili

Cartucce per la Stampante

Homepage + Linguaggi + Visual Basic + Trucchi + Art.# 450

Autore: Luca Ruggiero

Corso Visual Basic 6
Impara a creare applicazioni gestionali col Visual Basic! Attestato finale ed assistenza del tutor online.

Corso Visual Basic for Application (VBA)
Impara a gestire documenti MS Office col linguaggio VBA! Attestato finale ed assistenza del tutor online.

Concesso in esclusiva a MrWebmaster.it - E' vietata la pubblicazione senza espresso consenso del proprietario

Visual basic mette a disposizione delle comode librerie per lavorare col noto editor di testi di casa Microsoft, il Word. Vediamo un esempio basilare, un primo approccio che potrà in seguito, e con l'esperienza, trasformarsi anche in veri e propri report di stampa da database etc.

Per prima cosa è necessario importare i riferimenti alla libreria del Word; aprite quindi la vostra copia di Visual Basic, create un nuovo EXE ed accedete al menu

Progetto / Riferimenti

e selezionate la voce Microsoft Word X.Y Object Library dove X.Y rappresenta la versione della libreria installata sul computer; probabilmente si tratterà della versione 9.0.

Fate un doppio click sulla Form ed accedete al codice nella Sub di caricamento, la Form_Load(); di seguito il codice corredato da commenti:

Private Sub Form_Load()
    ' DICHIARO UN NUOVO OGGETTO MS WORD
    Dim MyWord As New Word.Application
    ' USO L'OGGETTO...
    With MyWord
        ' OPERAZIONI STANDARD PRELIMINARI
        .Visible = True
        .Documents.Add
        ' SCRIVO NEL FILE
        .Selection.TypeText "Hello, World!"
        ' SALVO IL DOCUMENTO CON NOME SOTTO C:\
        .Documents(WordApp.Documents.Count).SaveAs "C:\nomefile.doc"
    End With
End Sub

Possiamo impostare alcune opzioni stilistiche al file; in grassetto le parti aggiunte di codice:

Private Sub Form_Load()
    Dim MyWord As New Word.Application
    With MyWord
        .Visible = True
        .Documents.Add
        .Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
        .Selection.Font.Bold = wdToggle
        .Selection.Font.Size = 10
        .Selection.TypeText "Hello, World!"
        .Documents(WordApp.Documents.Count).SaveAs "C:\nomefile.doc"
    End With
End Sub

ovvero allineamento, grassetto e dimensioni del carattere; è possibile impostare anche il font, il corsivo, il sottolineato etc.

Possiamo chiudere il documento Word usando il comando .Quit:

        ...
        .Quit
    End With
...