Ako vytvoriť MS Word Zadávanie textu pomocou jazyka VBA pre Excel

Ak ste začali používať Visual Basic for Applications ( VBA ) pre Excel , už ste videli , ako VBA môžete obrátiť dobrú tabuľku do veľkého jedna . Nahrané makrá možno automatizovať úlohy , ale skutočná sila VBA v editore jazyka Visual Basic , kde môžete písať postupy , ktoré rozširujú možnosti programu Excel . Môžete tiež použiť VBA dostať von Excel , do inej aplikácie balíka Office , ako je Word . Pretože obe aplikácie používať programovací jazyk VBA , môžete napísať kód v programe Excel na spustenie programu Word a zadajte text do dokumentu . Spustiť ukážkový kód , a potom používať VBA schopnosti upraviť kód , kým to vyhovuje vašim potrebám . Pokyny dovolená 1

Spustite program Word a otvorte nový dokument . Uložte dokument pod novým názvom , napríklad " C : . \\ TestDoc.doc " Poznačte si názov , ktorý ste zvolili , ako budete používať ju vo svojom kóde jazyka VBA . Zavrite dokument a ukončite program Word .
2

Otvorte Excel .
3

Spustite Editor jazyka Visual Basic . Kliknite pravým tlačidlom myši na " Hárok1 " kartu na spodnej časti obrazovky . Zvoľte " Zobraziť kód " .
4

Pridať objekt knižnicu obsahujúce objekty , vlastnosti a metódy pre Word . Vyberte " Nástroje " a následne " Referencie " z menu . Prejdite nadol v zozname , kým nenájdete " Microsoft Word xx.x Object Library " ( xx , x značí verzii ; . Napríklad , ak používate Office 2007 , vyhľadajte Microsoft Word 12.0 Object Library) Zaškrtnite políčko , a potom kliknite na tlačidlo " OK " .
5

Vložte modul pre uloženie kódu výberom " Vložiť " a potom " modul " z menu .
6

Začiatok podprocedura . Zadajte nasledujúci príkaz do nového modulu :

Sub Word_Text ( )

Stlačte tlačidlo " Enter " . Excel automaticky generuje " End Sub " vyhlásenie .
7

deklarovať premenné . Zadajte nasledujúci kód medzi " Sub " a " End Sub " vyhlásenie :

Dim wdApp As Object , wdDoc ako objekt

Dim wordfile As String , enterstring As String
8

Nastavte hodnotu premennej " wordfile , " uvedením testovací dokument , ktorý ste vytvorili v programe Word . Ak neskôr chcete použiť iný dokument programu Word , zmeniť názov súboru v tomto riadku kódu. Zadajte nasledujúci príkaz :

wordfile = "c : \\ testdoc.doc "
9

Nastavte hodnotu premennej " enterstring " na text , ktorý chcete pridať na začiatok dokument programu Word . Zadajte nasledujúci príkaz :

enterstring = " . Pridať tento text do súboru "
10

Pridať rutiny ošetrenie chýb a skontrolujte , či Word je už spustená . Ak nie , otvorte novú inštanciu programu Word . Zadajte nasledujúci príkaz :

On Error Resume Next klipart

Set wdApp = GetObject ( , " Word.Application " )

Ak wdApp nie je nič Potom

Set wdApp = CreateObject ( " Word.Application " )

End If

On Error GoTo 0
11

Pridať kód pre otvorenie dokumentu programu Word . Zadajte nasledujúci príkaz :

Set wdDoc = GetObject ( wordfile )
12

Pridať kód , aby aplikácie Word vidieť , a potom presuňte kurzor na začiatok dokumentu . Zadajte nasledujúci príkaz : .

S wdApp

Visible = TRUE

Selection.HomeKey Jednotka : . = WdStory , Extend : = wdMove

End With

13

Pridať kódu napísať ukážkový text na " enterstring " do dokumentu programu Word nasleduje návrat vozíka . Zadajte nasledujúci príkaz : ..

S wdDoc.Content

insertAfter enterstring

InsertParagraphAfter

End With
14

Pridať kód k vypusteniu premennej objektu za účelom uvoľnenia pamäte používané aplikácií . Zadajte nasledujúci príkaz : .

Set wdDoc = Nothing

Nastaviť wdApp = Nothing

Leave " End Sub " vyhlásenie na mieste
15

spustiť kód . Zvoľte " Spustiť " a potom " Run Sub /UserForm " z menu .
16

zobrazenie dokumentu programu Word vzorky , ktorý ste vytvorili v kroku 1. Na hornú časť dokumentu , mali by ste vidieť linky čítanie , " Pridať tento text do súboru . "

• Predchádzajúca strana: Ako používať formát výplatnej páske v programe Excel 
• Ďalšia strana: Riešenie problémov Excel 2007 S pomalá odozva na skenovanie adresárov