Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
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 .
Copyright © počítačové znalosti Všetky práva vyhradené