Ako skopírovať obsah súboru do aplikácie Word a naopak pomocou VBA

Jedným z prvých krokov k učeniu počítačové programovanie je naučiť sa čítať z jedného súboru a pridať obsah na iný , napríklad dokument programu Word . VBA je programovací jazyk , ktorý možno použiť v programoch balíka Microsoft Office pre automatizáciu procesov , ako je kopírovanie dát medzi súbormi . Vo VBA , môžete použiť objekty Office na otvorenie dokumentov programu Word alebo inej aplikácie balíka Office , ktorý umožňuje prístup k externej programy a ďalšie manipuláciu s dátami . Veci , ktoré budete potrebovať v Microsoft Office
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Office Word , kliknite na " Developer " kartu na páse kariet a kliknite na " Visual Basic " na otvoriť okno editora VBA . Kliknite na " Vložiť " menu a kliknite na " modul " vložiť nový kód modulu . Vytvoriť nový čiastkové postup :

Private Sub copyFileContents ( )
2

Pridajte nasledujúci kód vytvoriť objekty programu Word a ďalšie premenné :

Dim wrdApp As Word.Application

Dim wrdDoc Ako Word.Document

Dim i , r As Integer

Dim lCntr As Integer
3

Pridať kódu otvorte textový súbor a skopírujte celý jeho obsah do poľa reťazcov :

Dim MyString ( 10 ) As String

otvorte " C \\ < text názov_súboru txt . " Pre vstup rovnako ako # 1

robiť , keď nie EOF ( 1 )

vstup # 1 , MyString ( lCntr )

lCntr = lCntr + 1

Loop

Close # 1
4

skopírujte a vložte nasledujúci kód pridajte obsah poľa do aktuálneho dokumentu programu Word : klipart

i = 0 lCntr - 1

Selection.TypeParagraph

Selection.TypeText Text : = MyString ( i )

MyString ( i - 0 ) = " "

Next i

5

Pridajte nasledujúci kód pridajte niektoré dáta do aktuálneho dokumentu programu Word :

Selection.TypeParagraph

Selection.TypeText Text : = " Tieto dáta sa v programe Word "

Selection.Expand wdLine
6

Zadajte nasledujúci kód otvorte textový súbor a pridať text pridali v predchádzajúcom kroku :

myfile = " C : \\ < ; . názov súboru > txt "

fn = FreeFile ( )

Otvoriť myfile Pre výstup ako fn

Napíš # fn , Selection.Text

Close # fn
7

Pridajte nasledujúci kód na uvoľnenie objektov Word z pamäte a ukončiť procedúru Sub :

wrdApp.Quit

Set wrdDoc = Nothing

Set wrdApp = Nothing

End Sub
8

Stlačte " F5 " spustiť kód VBA .

• Predchádzajúca strana: Ako vytvoriť jednu inštanciu VB6 program 
• Ďalšia strana: Typy Vb.Net dát