lancio di Microsoft Office Word , fare clic sulla scheda "Sviluppatore " sulla barra multifunzione e fare clic su " Visual Basic " per lanciare la finestra di editor VBA . Fai clic sul menu "Inserisci" e fare clic su "Modulo" per inserire un nuovo modulo di codice . Creare una nuova procedura di sub :
copyFileContents Private Sub ( ) economici 2
Aggiungere il seguente codice per creare gli oggetti applicativi Word e altre variabili :
Dim wrdApp come Word.Application
Dim wrdDoc Come Word.Document
Dim i , r As Integer Dim
lCntr As Integer
3
aggiungere il codice per aprire il file di testo e copiare tutto il contenuto di un array di stringhe :
Dim Stringa ( 10) As String
Apri ". C \\ Do While Not EOF ( 1 ) per Input # 1 , Stringa ( lCntr ) per lCntr = lCntr + 1 loop Chiudere # 1 Copia e incolla il seguente codice per aggiungere il contenuto della matrice al documento di Word corrente : For i = 0 To lCntr - 1 Selection.TypeParagraph Selection.TypeText Text : = Stringa (i ) per MyString (I - 0 ) = " " Next i aggiungere il seguente codice per aggiungere alcuni dati al documento di Word corrente : Selection.TypeParagraph Selection.TypeText Text : = "Questi dati sono in Word " Selection.Expand wdLine Digitare il seguente codice per aprire il file di testo e aggiungere al testo aggiunto nel passaggio precedente : MyFile = " C : \\ < , . nome del file > txt " fn = FreeFile ( ) per aperto MyFile per uscita come fn Scrivi # fn , Selection.Text Chiudi # fn Aggiungere il seguente codice per sbloccare gli oggetti di Word dalla memoria e terminare la procedura sub : wrdApp.Quit wrdDoc = Nothing wrdApp = Nothing End Sub Premere " F5 " per eseguire il codice VBA .
4
5
6
7
8
Informazioni correlate
Programmazione © www.354353.com