Makro in Word starten
28.09.2004 10:57:58
Jürgen
hatte weiter unten schon mal eine Anfrage gestellt. Diese konnte ich aber schon lösen. Leider dauert es etwas lange.
Arbeite in Excel ein Tabellenblatt auf für einen Seriendruck, danach wird Word automatisch geöffnet (mit der Seriendruckvorlage):
Const FName As String = "D:\Inventarisierung\Vorlagen\Labelvorlage.dot"
Dim appWord As Object
If Dir(FName) "" Then
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
appWord.Documents.Open FileName:=FName
Else
MsgBox "Das Dokument " & FName & " wurde nicht gefunden!", 64, "Hinweis..."
End If
(Ich frage mich nur, warum das Öffnen des Dokumentes so lange dauert? Vielleicht kann mir jemand dazu auch eine Hilfestellung geben)
...aber nun zu meiner eigendlichen Frage:
In dieser Wordvorlage befindet sich ein kleines Makro. Wie schaffe ich es, dass dieses Makro nach dem Öffnen automatisch gestartet wird?
Sub Makro1()
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.Execute
End With
End Sub
Ich bin für jegliche Hilfe dankbar.
Grüße Jürgen