Hvis du har begynt å bruke Visual Basic for Applications ( VBA ) for Excel , har du allerede sett hvordan VBA kan slå en god regneark i en stor en . Innspilte makroer kan automatisere oppgaver , men den reelle makten i VBA er i Visual Basic-redigering , der du kan skrive prosedyrer som strekker Excel evner. Du kan også bruke VBA til å nå utenfor Excel , inn i et annet Office- program, for eksempel Word . Siden begge programmene bruker VBA programmeringsspråk, kan du skrive kode i Excel for å starte Word og skrive inn tekst i et dokument . Kjør prøven koden , og deretter bruke VBA ferdigheter til å endre koden til det passer dine behov . Instruksjoner
en

Launch Word og åpne et nytt dokument . Lagre dokumentet med et nytt navn , for eksempel " C: . \\ TestDoc.doc " Noter navnet du valgte , som du skal bruke den i VBA- kode . Lukk dokumentet og avslutte Word.
2

Åpne Excel .
3

Start Visual Basic-redigering . Høyreklikk på " Ark1 "-fanen nederst på skjermen. Velg " Vis kode".
4

Legg objektet biblioteket inneholder objekter, egenskaper og metoder for Word. Velg "Verktøy" etterfulgt av "Referanser " fra menyen . Bla nedover listen til du finner "Microsoft Word xx.x Object Library" ( xx.x står for den versjonen ; . For eksempel, hvis du bruker Office 2007 , se etter Microsoft Word 12.0 Object Library) Kryss av i boksen , og klikk deretter på "OK".
5

Sett inn en modul for å holde koden ved å velge " Sett inn" etterfulgt av " module" fra menyen .
6

Begynn en subprocedure . Skriv inn følgende i den nye modulen : " . Enter"

Sub Word_Text ( )

Press Excel genererer automatisk en " End Sub " statement.
7

Erklærer variabler . Skriv inn følgende kode mellom " Sub " og " End Sub " utsagn : en

Dim wdApp som objekt, wdDoc som objekt

Dim WordFile As String , enterstring As String
8

Sett verdien av variabelen " WordFile , " angir test dokumentet du opprettet i Word . Hvis du senere ønsker å bruke et annet Word-dokument , endre filnavnet på denne linjen med kode. Skriv inn følgende : en

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

Sett verdien av variabelen " enterstring " til teksten du vil legge til på toppen av Word-dokumentet . Skriv inn følgende : en

enterstring = "Legg til denne teksten til filen . "
10

Legg en feil - håndtering rutine å sjekke om Word kjører allerede. Hvis ikke, åpne en ny forekomst av Word. Skriv inn følgende : en

On Error Resume Next

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

Set wdApp = CreateObject ( " Word.Application ")

End If

On Error GoTo 0
11

Legg til kode for å åpne Word-dokumentet . Skriv inn følgende : en

Set wdDoc = GetObject ( WordFile )
12

Legg til kode for å gjøre Word-programmet synlig , og deretter flytte innsettingspunktet til begynnelsen av dokumentet. Skriv inn følgende : en p Med wdApp

Visible = sant

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

End With

13

Legg kode for å skrive prøven teksten i " enterstring " til Word-dokumentet etterfulgt av linjeskift . Skriv inn følgende : . .
P Med wdDoc.Content

insertAfter enterstring

InsertParagraphAfter

End With
14

Legg kode for å tømme ut objekt variabler for å frigjøre minne som brukes av programmet. Skriv inn følgende : en

Set wdDoc = Ingenting

Set wdApp = Ingenting

La " End Sub " statement på plass
15

. utføre koden . Velg " Run " etterfulgt av "Run Sub /UserForm " fra menyen .
16

Vis eksempel Word-dokumentet du opprettet i trinn 1 . På toppen av dokumentet , skal du se en linje lesing , "Legg til denne teksten til filen . "