Als je eenmaal begonnen bent met Visual Basic for Applications ( VBA ) voor Excel , heb je al gezien hoe VBA een goed spreadsheet kan veranderen in een grote. Opgenomen macro's kan taken te automatiseren , maar de echte kracht van de VBA is in de Visual Basic Editor , waar u de procedures die Excel mogelijkheden uit te breiden kan schrijven . U kunt ook gebruik maken van VBA buiten Excel te bereiken , in een andere Office-toepassing , zoals Word . Aangezien beide toepassingen maken gebruik van de VBA- programmeertaal , kunt u code in Excel naar Word te starten en voer de tekst in een document te schrijven . Voer de voorbeeldcode , en vervolgens gebruik je VBA vaardigheden om de code te wijzigen totdat het past bij uw behoeften . Instructies
1 Launch Word en open een nieuw document . Sla het document met een nieuwe naam , zoals " C : . \\ TestDoc.doc " Maak een notitie van de door u gekozen naam , want je gaat gebruiken in uw VBA-code . Sluit het document en afrit Woord .
Open Excel .
3 2 Start de Visual Basic Editor . Klik met de rechtermuisknop op de tab " Sheet1 " aan de onderkant van je scherm . Selecteer "View Code . "
4 Voeg het object bibliotheek met objecten, eigenschappen en methoden voor Word . Selecteer "Extra " gevolgd door " References " uit het menu . Blader door de lijst tot u " Microsoft Word xx.x Object Library " ( xx.x staat voor de versie ; . Bijvoorbeeld, als u gebruik maakt van Office 2007 , kijk voor de Microsoft Word 12.0 Object Library ) Schakel het selectievakje , en klik op "OK . "
5 Plaats een module om uw code te houden door het selecteren van " Insert " , gevolgd door " module " uit het menu .
6 Begin een subprocedure . Typ het volgende in de nieuwe module : " . Enter" Sub Word_Text
( ) Press
Excel genereert automatisch een " End Sub " statement .
7 Declare variabelen . Typ de volgende code tussen de " Sub " en " End Sub " uitspraken : Dim wdApp
als Voorwerp , wdDoc als Voorwerp
Dim wordfile als Koord , enterstring als Koord
8 Stel de waarde van de variabele " wordfile , " met vermelding van de test document dat u hebt gemaakt in Word . Indien u later wilt een ander Word- document wilt gebruiken , wijzigt u de bestandsnaam in deze lijn van code . Typ het volgende : wordfile
= " c: \\ testdoc.doc "
9 Stel de waarde van de variabele " enterstring " om de tekst die u wilt toevoegen aan de bovenkant van het Word-document . Typ het volgende : enterstring
= " Voeg deze tekst aan het bestand . "
10 Voeg een foutafhandeling routine om te controleren of Word wordt al uitgevoerd . Zo niet, dan opent u een nieuw exemplaar van Word . Typ het volgende :
On Error Resume Next Set
wdApp = GetObject ( , " Word.Application " ) op Twitter Als wdApp dan niets is Set
wdApp = CreateObject ( " Word.Application " ) Eind
Als
On Error GoTo 0
11 Voeg code aan het Word-document te openen . Typ het volgende :
Set wdDoc = GetObject ( wordfile )
12 Voeg code het Woord aanvraag zichtbaar te maken , en verplaats de invoegpositie naar het begin van het document . Typ het volgende :
Met wdApp
= True
Selection.HomeKey Unit Zichtbaar : . . = WdStory , Extend : = wdMove End of met < br
13 > Voeg code om het monster tekst schrijven in " enterstring " om het Word-document , gevolgd door een harde return . Typ het volgende : . .
Met wdDoc.Content
InsertAfter enterstring
InsertParagraphAfter Einde
Met
14 Toevoegen code te legen uit de object-variabelen om het geheugen wordt gebruikt door de gebruiksdoeleinden. Typ het volgende : Set wdDoc = Nothing Set
wdApp = Nothing
Laat de " End Sub " verklaring in plaats
15 . uitvoeren van de code . Selecteer " Run " , gevolgd door " Run Sub /UserForm " uit het menu .
16 Bekijk het monster Word-document dat u hebt gemaakt in stap 1 . Aan de bovenkant van het document , moet u een regel lezen te zien , " Voeg deze tekst aan het bestand . "
|
