Hvis du er begyndt at bruge Visual Basic for Applications ( VBA ) til Excel , har du allerede set, hvordan VBA kan slå en god regneark til en stor én. Indspillede makroer kan automatisere opgaver , men den reelle magt i VBA er i Visual Basic Editor , hvor du kan skrive procedurer , der strækker Excels evner. Du kan også bruge VBA til at nå uden Excel, i et andet Office-program som Word . Da begge programmer bruger VBA-programmering sprog, kan du skrive kode i Excel til at starte Word og indtaste tekst i et dokument. Kør prøven koden , og derefter bruge dine VBA færdigheder til at ændre koden , indtil det passer til dine behov . Instruktioner
1

Launch Word og åbner et nyt dokument. Gem dokumentet med et nyt navn , såsom " C: . \\ TestDoc.doc " Notér det navn, du har valgt , som du vil bruge det i din VBA-kode. Luk dokumentet og exit Word.
2

Open Excel.
3

Start Visual Basic Editor. Højreklik på " Ark1 " fanen i bunden af ​​skærmen. Vælg "Se Kode".
4

Tilføj objektet bibliotek med objekter, egenskaber og metoder til Word. Vælg "Tools " efterfulgt af "Referencer" fra menuen. Rul ned på listen, indtil du finder "Microsoft Word xx.x Object Library" ( xx.x står for den version , . For eksempel, hvis du bruger Office 2007 , se efter Microsoft Word 12,0 Object Library) Marker afkrydsningsfeltet , og klik derefter på "OK".
5

Indsæt et modul til at holde din kode ved at vælge " Insert " efterfulgt af " Module" fra menuen.
6

Begynd en subprocedure . Skrive følgende i det nye modul : " . Enter "

Sub Word_Text ()

Press Excel automatisk genererer en " End Sub " erklæring .
7

Erklær variable. Indtast følgende kode mellem "Sub " og " End Sub " udsagn : Hej

Dim wdApp As Object , wdDoc As Object

Dim wordfile As String , enterstring As String
8

Indstil værdien for variablen " wordfile ", med angivelse af test dokument, du oprettede i Word. Hvis du senere ønsker at bruge en anden Word-dokument , skal du ændre filnavnet i denne linje kode . Indtast følgende : Hej

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

Indstil værdien for variablen " enterstring " til den tekst, du ønsker at tilføje i toppen af Word-dokumentet. Indtast følgende : Hej

enterstring = "Tilføj denne tekst til filen. "
10

Tilføj en fejl -håndtering rutine at kontrollere, om Word allerede kører . Hvis ikke , skal du åbne en ny forekomst af Word. Indtast følgende : Hej

On Error Resume Next

Set wdApp = GetObject ( " Word.Application " )
p Hvis wdApp Er Ingenting Så

Set wdApp = CreateObject ( " Word.Application " )

End If

Fejl GoTo 0
11

Tilføj kode for at åbne Word-dokumentet. Indtast følgende : Hej

Set wdDoc = GetObject ( wordfile )
12

Tilføj kode til at gøre det Word ansøgning synlige, og derefter flytte indsætningspunktet til begyndelsen af dokumentet. Indtast følgende : Hej

wdApp

Visible = Sand

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

End With < br >
13

Tilføj kode til at skrive prøven tekst i " enterstring " til Word-dokumentet , efterfulgt af et linjeskift. Indtast følgende: . .

WdDoc.Content

insertAfter enterstring

InsertParagraphAfter

End With
14

Tilføj kode for at tømme de objektvariabler for at frigive den hukommelse, der anvendes af programmet . Indtast følgende : Hej

Set wdDoc = Nothing

Set wdApp = Nothing

Lad " End Sub " erklæring på plads
15

. udføre koden . Vælg "Kør " efterfulgt af " Run Sub /UserForm " fra menuen .
16

Se prøven Word-dokument, som du oprettede i trin 1 . På toppen af dokumentet , bør du se en linje læsning, "Tilføj denne tekst til filen. "