Lancering Microsoft Office Word 1 , klikt u op het tabblad " Developer " op het lint en klik op " Visual Basic " te lanceren het venster VBA- editor . Klik op het menu "Invoegen " en klik op "Module " om een nieuwe code -module plaatsen . Maak een nieuwe sub- procedure :

Private Sub copyFileContents
( ) kopen van 2

Voeg de volgende code toe aan het Woord applicatie objecten en andere variabelen maken:

Dim wrdApp
als Word.Application

Dim wrdDoc
Zoals Word.Document

Dim i , r als Geheel

Dim lCntr
als Geheel
3

code toe te voegen aan de tekst bestand te openen en de volledige inhoud kopiëren naar een string -array :

Dim MyString
( 10 ) As String

Open " . C \\ txt " For Input als # 1

Do While Not EOF ( 1 )

Input # 1
, MyString ( lCntr )

lCntr = lCntr + 1

Loop
< br
>

Close # 1

Kopieer 4 en plak de volgende code om de inhoud -array toe te voegen aan het huidige Word-document :

voor i = 0 To lCntr - 1 < br >

Selection.TypeParagraph

Selection.TypeText tekst
: = MyString ( i )

MyString
( i - 0 ) = " "

Next i
< br > 5

Voeg de volgende code om een aantal gegevens aan het huidige Word-document toe te voegen :

Selection.TypeParagraph

Selection.TypeText tekst
: = " Deze data is in Word " < br

Selection.Expand wdLine

Type > 6 de volgende code om het tekstbestand te openen en voeg de tekst toegevoegd in de vorige stap :

MijnBestand
= " C : \\ < ; . bestandsnaam > txt "

fn = FreeFile ( ) op

Open MijnBestand
Voor Output Zoals fn

Schrijf # fn , Selection.Text

item op # fn
7

Voeg de volgende code om Word-objecten los te maken van het geheugen en het einde van de sub procedure :

wrdApp.Quit

Stel wrdDoc = Nothing

Set wrdApp = Nothing

End Sub

Druk op " F5 "
8 aan de VBA- code uit te voeren .