Inanzitutto devi andare nel menu Progetto->Riferimenti e segni l'opzione Microsoft Word 9.0 Object Library.
Ora questa procedura apre il file xxx.doc
In piu':codice:Private Sub Form_Load() Dim objWord As Word.Application Set objWord = New Word.Application objWord.Visible = True Dim objDoc As Word.Document Set objDoc = objWord.Documents.Add objDoc.Activate Set objDoc = objWord.Documents.Open("Tuo Percorso\xxx") End Sub
objDoc.Close (False) 'chiude il documento senza salvere
objDoc.Close (True) 'chiude il documento con salvataggio
Per chiudere definitivamente l'applicazione :
objWord.Quit (True) 'chiude salvando
objWord.Quit (False) 'chiude senza salvare
Per salvare da codice:
objDoc.SaveAs "percorso"
Per stampare un documento:
objDoc.PrintOut
Per inserire del testo
Documento.ActiveWindow.Selection.InsertAfter "Testo"
![]()


Rispondi quotando