Om du har börjat använda Visual Basic for Applications ( VBA ) för Excel , har du redan sett hur VBA kan förvandla en bra kalkylblad till en stor en . Inspelade makron kan automatisera uppgifter , men den verkliga makten i VBA är i Visual Basic Editor , där du kan skriva rutiner som sträcker Excels funktioner . Du kan också använda VBA för att nå utanför Excel , till ett annat Office- program som Word . Eftersom båda ansökningarna använda VBA programmeringsspråk , kan du skriva kod i Excel för att starta Word och skriva in text i ett dokument . Kör exempelkod och sedan använda dina VBA färdigheter för att ändra koden tills det passar dina behov . Instruktioner
1
Launch Word och öppna ett nytt dokument . Spara dokumentet med ett nytt namn , till exempel " C : . \\ TestDoc.doc " Anteckna namnet som du valde , eftersom du kommer att använda det i din VBA-kod . Stäng dokumentet och avsluta Word .
2
Öppna Excel .
3
Starta Visual Basic Editor . Högerklicka på " Tabell1 " fliken längst ned på skärmen . Välj " Visa kod . "
4
Lägg objektet bibliotek som innehåller objekt , egenskaper och metoder för Word . Välj " Verktyg " följt av " Referenser " i menyn . Bläddra nedåt i listan tills du hittar " Microsoft Word xx.x Object Library " ( xx, x står för den versionen , . T.ex. om du använder Office 2007 , leta efter Microsoft Word 12.0 Object Library ) Markera kryssrutan och klicka sedan på " OK . "
5
Infoga en modul för att hålla din kod genom att välja " Insert " följt av " modul " från menyn .
6
Börja ett delprocedur . Skriv följande i den nya modulen : " . Ange "
Sub Word_Text ( ) katalog
Press Excel skapar automatiskt en " End Sub " uttalande .
7
Deklarera variabler . Skriv följande kod mellan " Sub " och " End Sub " uttalanden :
Dim wdApp As Object , wdDoc As Object
Dim wordfile As String , enterstring As String
8
Ange värdet på variabeln " wordfile , " ange testdokumentet du skapade i Word . Om du senare vill använda ett annat Word-dokument , ändra filnamnet i denna kodrad . Skriv följande :
wordfile = " c : \\ testdoc.doc "
9
Ange värdet på variabeln " enterstring " till den text du vill lägga på toppen av Word-dokumentet . Skriv följande :
enterstring = " Lägg till denna text till filen . "
10
Lägg ett fel - rutin för att kontrollera om Word redan är igång . Om inte , öppna en ny instans av Word . Skriv följande :
On Error Resume Next Set
wdApp = GetObject ( " Word.Application " ) katalog p Om wdApp är ingenting Sedan
Set wdApp = CreateObject ( " Word.Application " ) katalog
End If
On Error GoTo 0
11
Lägg koden för att öppna Word- dokumentet . Skriv följande :
Set wdDoc = GetObject ( wordfile )
12
Lägg koden för att göra programmet Word synligt , och sedan flytta insättningspunkten till början av dokumentet . Skriv följande :
wdApp
Visible = Sant
Selection.HomeKey Enhet : . . = WdStory , Extend : = wdMove
avslutas med
13
Lägg koden för att skriva provet texten i " enterstring " till Word-dokumentet följt av en vagnretur . Skriv följande : . .
WdDoc.Content
InsertAfter enterstring
InsertParagraphAfter
End With
14
Lägg kod för att tömma ut de objekt variabler i syfte att frigöra minne som används av programmet . Skriv följande :
Set wdDoc = Nothing
Set wdApp = Nothing
Lämna " End Sub " uttalande på plats
15
. köra koden . Välj " Kör " följt av " Kör Sub /UserForm " från menyn .
16
Visa dokumentet prov Ordet som du skapade i steg 1 . På toppen av dokumentet bör du se en rad läsning , " Lägg till denna text till filen . " Addera
