Ich pflege meine Adressen mit Excel (einige Macros machen es recht bequem). Eine Auswahl möchte ich mit Word ausdrucken (Etiketten). Ich möchte Word mittels Macro aus Excel starten und dort den Druckvorgang automatisch erledigen.
Im Excel kann man ein Word-Fenster zwar einbetten (Einfügen, Objekt, Microsoft Word Dokument, ...), aber der Funktionsumfang ist eingeschränkt (z.B. Serienbriefe gehen nicht).
Wie kann man aus Excel Word starten?
Kolti Excel-Freund „Wie kann man aus Excel Word starten?“
Betrifft: Aus Excel heraus ein Worddokument drucken
Problem: Wie kann ich aus Excel heraus Word veranlassen, ein bestimmtes Dokument zu drucken?
Lösung: Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
ClassModule: Tabelle1
Private Sub cmdWordDruck_Click()
Call WordDrucken
End Sub
StandardModule: basMain
Sub WordDrucken()
Dim wrdApp As Object
Dim wrdDoc As Object
Dim sFile As String
sFile = Range("B1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Worddokument wurde nicht gefunden!"
Else
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open(sFile)
wrdDoc.PrintOut
Application.Wait Now + TimeSerial(0, 0, 5)
wrdApp.Quit
Set wrdDoc = Nothing
Set wrdApp = Nothing
End If
End Sub
