Come copiare il contenuto di file in Word e viceversa utilizzando VBA

June 29

Come copiare il contenuto di file in Word e viceversa utilizzando VBA


Uno dei primi passi per imparare la programmazione informatica è imparare a 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 in applicazioni di Microsoft Office per automatizzare processi come copiare dati tra file. In VBA, è possibile utilizzare gli oggetti di Office per aprire i documenti di Word o altre applicazioni di Office, che consente di accedere ai programmi esterni e manipolare ulteriormente i dati.

istruzione

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

copyFileContents Private Sub ()

2 Aggiungere il seguente codice per creare gli oggetti applicativi Word e altre variabili:

Dim wrdApp Come Word.Application

wrdDoc fioco come Word.Document

Dim i, R come Integer

Dim lCntr As Integer

3 Aggiungere codice per aprire il file di testo e copiare tutto il suo contenuto ad un array di stringhe:

Dim Stringa (10) As String

Apri "C \ <text filename> .txt" per l'ingresso come 1 #

Do While Not EOF (1)

Input #1, MyString(lCntr)

lCntr = lCntr + 1

Ciclo continuo

Close # 1

4 Copia e incolla il seguente codice per aggiungere il contenuto di matrice al documento Word corrente:

Per i = 0 Per lCntr - 1

Selection.TypeParagraph

Selection.TypeText Testo: = MyString (i)

MyString (I - 0) = ""

Next i

5 Aggiungere il seguente codice per aggiungere alcuni dati al documento Word corrente:

Selection.TypeParagraph

Selection.TypeText Testo: = "Questi dati sono in una parola"

Selection.Expand wdLine

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

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

fn = FreeFile ()

Aprire MyFile per l'output come fn

Scrivi #fn, Selection.Text

Chiudi #fn

7 Aggiungere il seguente codice per rilasciare gli oggetti di Word dalla memoria e terminare la procedura sotto:

wrdApp.Quit

Set wrdDoc = Nothing

Set wrdApp = Nothing

End Sub

8 Premere il tasto "F5" per eseguire il codice VBA.