Uno dei primi passi per imparare la programmazione del computer sta imparando come leggere da un file e aggiungere il contenuto a un altro, ad esempio un documento di Word. VBA è un linguaggio di programmazione che può essere utilizzato nelle applicazioni di Microsoft Office per automatizzare i processi quali la copia di dati tra i file. In VBA, è possibile utilizzare gli oggetti di Office per aprire documenti di Word o altre applicazioni di Office, consente di accedere a programmi esterni e modificare ulteriormente i dati.

Istruzioni

1

Avviare Microsoft Office Word, fare clic sulla scheda "Sviluppatore" sulla barra multifunzione e fare clic su "Visual Basic" per avviare la finestra di editor di VBA. Fare clic sul menu "Inserisci" e scegliere "Modulo" per inserire un nuovo modulo di codice. Creare una nuova routine sub:

Private Sub copyFileContents()

2

Aggiungere il codice seguente per creare gli oggetti dell'applicazione Word e altre variabili:

Dim wrdApp As Word. Application

Dim wrdDoc As Word. Document

I, r As Integer Dim

Dim lCntr As Integer

3

Aggiungere il codice per aprire il file di testo e copiare tutto il suo contenuto in una matrice di stringhe:

Dim MyString(10) As String

Aprire "C \ < nome di file di testo >. txt" For Input As #1

Mentre non EOF (1)

Input #1, MyString(lCntr)

lCntr = lCntr + 1

Loop

Close #1

4

Copiare e incollare il codice seguente per aggiungere il contenuto della matrice per il documento corrente:

Per i = 0 To lCntr - 1

Selection.TypeParagraph

Selection.TypeText Text:=MyString(i)

MyString(i - 0) = ""

Prossima ho

5

Aggiungere il codice seguente per aggiungere alcuni dati per il documento corrente:

Selection.TypeParagraph

Selection. TypeText Text: = "i dati sono in Word"

Selection.Expand wdLine

6

Digitare il codice seguente per aprire il file di testo e aggiungere il testo aggiunto nel passaggio precedente:

MyFile = "C:\ < nome file >. txt"

FN = FreeFile)

MyFile aperto per Output come fn

Scrivere #fn, Selection. Text

Chiudere #fn

7

Aggiungere il codice seguente per rilasciare gli oggetti di Word dalla memoria e terminare la routine sub:

wrdApp.Quit

Impostare wrdDoc = Nothing

Impostare wrdApp = Nothing

End Sub

8

Premere "F5" per eseguire il codice VBA.