Wenn Sie begann mit Visual Basic für Applikationen ( VBA) für Excel haben , haben Sie bereits gesehen, wie VBA eine gute Tabellenkalkulation in eine große zu machen. Aufgezeichnet Makros können Aufgaben automatisieren , aber die wirkliche Macht von VBA ist in Visual Basic-Editor , in dem Sie Prozeduren, die Excel -Fähigkeiten erweitern schreiben können. Sie können auch außerhalb VBA Excel zu erreichen , in einem anderen Office- Anwendung wie Word . Da beide Anwendungen die Programmiersprache VBA verwenden, können Sie Code schreiben, in Excel , Word zu starten und geben Sie Text in einem Dokument. Führen Sie das Beispiel -Code , und verwenden Sie dann Ihre Fähigkeiten, um den VBA -Code zu ändern, bis es Ihren Bedürfnissen entspricht . Anleitung
1

Starten Sie Word und öffnen Sie ein neues Dokument . Speichern Sie das Dokument unter einem neuen Namen , wie zum Beispiel "C: . \\ TestDoc.doc " Notieren Sie sich den Namen, den Sie gewählt haben, als Sie nutzen es in Ihrem VBA-Code . Schließen Sie das Dokument und beenden Sie Word .
2

Excel öffnen .
3

Starten Sie den Visual Basic-Editor. Rechten Maustaste auf das " Tabelle1 " Lasche auf der Unterseite des Bildschirms. Wählen Sie " Code anzeigen . "
4

die Objekt-Bibliothek mit Objekten , Eigenschaften und Methoden für Word hinzufügen . Wählen Sie "Extras " von " Referenzen " aus dem Menü folgen . Blättern Sie in der Liste, bis Sie " Microsoft Word xx Object Library" ( xx steht für die Version . , Zum Beispiel, wenn Sie Office 2007 , für die Microsoft Word 12.0 Object Library anschauen) finden Sie das Kontrollkästchen , und klicken Sie dann auf "OK".
5

Einfügen eines Moduls , um Ihren Code , indem Sie " Einfügen" durch "Module" aus dem Menü gefolgt halten .
6

Start ein Unterprozedur . Geben Sie den folgenden in das neue Modul: " . Geben Sie "

Sub Word_Text ()

Press Excel generiert automatisch eine "End Sub "-Anweisung.
7

Variablen deklarieren . Geben Sie den folgenden Code zwischen den "Sub" und "End Sub " Aussagen :

Dim wdApp As Object , wdDoc As Object Dim

Wordfile As String , enterstring As String
8

setzen Sie den Wert der Variablen " Wordfile , " Angabe der Test-Dokument in Word erstellt . Wenn Sie später eine andere Word-Dokument verwenden , ändern Sie den Dateinamen in dieser Codezeile . Geben Sie folgendes ein :

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

Setzen Sie den Wert der Variablen " enterstring " an den Text, den Sie an der Spitze hinzufügen das Word-Dokument . Geben Sie den folgenden :

enterstring = " Fügen Sie diesen Text in die Datei . "
10

Fügen Sie einen Fehler -Handling-Routine , um zu überprüfen , ob Word bereits ausgeführt wird. Wenn nicht, öffnen Sie eine neue Instanz von Word . Geben Sie den folgenden :

On Error Resume Next Set

wdApp = GetObject ( , " Word.Application " )

Wenn wdApp Is Nothing Dann

Set wdApp = CreateObject (" Word.Application " ) End If

On Error GoTo 0
11

Fügen Sie Code, um das Word-Dokument zu öffnen. Geben Sie den folgenden :

Set wdDoc = GetObject ( Wordfile )
12

Hinzufügen von Code , um die Word-Anwendung sichtbar ist, und dann bewegen Sie die Einfügemarke an den Anfang des Dokuments. Geben Sie den folgenden :

wdApp

Visible = True

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

End With
13

hinzufügen von Code , um die Probe Text in " enterstring ", um das Word-Dokument von einem Wagenrücklauf gefolgt schreiben. Geben Sie den folgenden : . .

WdDoc.Content

InsertAfter enterstring

InsertParagraphAfter

End With
14

hinzufügen Code zum Abpumpen des Objekt -Variablen , um den Speicher von der Anwendung verwendeten freizugeben. Geben Sie den folgenden :

Set wdDoc = Nothing Set

wdApp = Nothing

Verlassen Sie die "End Sub " -Anweisung anstelle
15

. Führen Sie den Code. Wählen Sie " Run " von " Sub /UserForm ausführen " aus dem Kontextmenü.
16

anzeigen Probe Word-Dokument , das Sie in Schritt 1 erstellt gefolgt . Am Anfang des Dokuments , sollten Sie eine Zeile der Aufschrift: " Fügen Sie diesen Text in die Datei . "