Einer der ersten Schritte zu lernen, Computer-Programmierung lernt, wie man aus einer Datei lesen und fügen Sie den Inhalt in ein anderes , wie ein Word-Dokument. VBA ist eine Programmiersprache, die in Microsoft Office-Anwendungen verwendet werden können, um Prozesse wie das Kopieren von Daten zwischen Dateien zu automatisieren. In VBA können Sie Office-Objekte in Word-Dokumente oder andere Office-Anwendungen zu öffnen , so dass Sie externe Programme zugreifen und weitere Daten manipulieren . Things You
Microsoft Office
brauchen anzeigen Weitere Anweisungen
1

Starten Sie Microsoft Office Word , klicken Sie auf die Registerkarte "Entwicklertools" in der Multifunktionsleiste und klicken Sie auf " Visual Basic " auf starten den VBA-Editor -Fenster. Klicken Sie auf das Menü "Einfügen" und klicken Sie auf "Module" , um einen neuen Code-Modul einzufügen. Erstellen Sie eine neue Sub-Prozedur : Private Sub

copyFileContents ()
2

Fügen Sie den folgenden Code, um die Word-Anwendung Objekten und anderen Variablen zu erstellen :

Dim wrdApp Wie Word.Application

Dim wrdDoc Wie Word.Document

Dim i, r As Integer Dim

LCNTR As Integer
3

hinzufügen von Code , um die Textdatei zu öffnen und kopieren Sie den gesamten Inhalt in einen String-Array :

Dim MyString (10 ) As String

öffnen " . C \\ txt" For Eingang als Nr. 1

Do While Not EOF ( 1) german

Input # 1 , MyString ( LCNTR )

LCNTR = LCNTR + 1

Schleife

Close # 1
4

Kopieren Sie den folgenden Code, um die Array-Inhalt der aktuellen Word-Dokument hinzufügen :

For i = 0 To LCNTR - 1

Selection.TypeParagraph

Selection.TypeText Text: = MyString ( i)

MyString (i - 0) = "" Next i

5

Fügen Sie den folgenden Code , um einige Daten zu der aktuellen Word-Dokument hinzufügen :

Selection.TypeParagraph

Selection.TypeText Text: = " Diese Daten sind in Word "

Selection.Expand wdLine
6

Geben Sie den folgenden Code, um die Textdatei zu öffnen , und fügen Sie den Text aufgenommen in der vorherigen Schritt:

MyFile = "C : \\ < ; . Dateiname> txt "

fn = FreeFile ()

öffnen MyFile für die Ausgabe als fn

schreiben # fn , Selection.Text

schließen # fn
7

Fügen Sie den folgenden Code, um Word-Objekte aus dem Speicher freizugeben und das Ende der Sub-Prozedur :

wrdApp.Quit

Set wrdDoc = Nothing

Set wrdApp = Nothing End Sub

8

Presse "F5 ", um den VBA- Code ausführen.