Wordvorlage aus Outlook starten

Dieser Thread ist Teil einer Diskussion zu einem Artikel:  Zum News-Artikel gehen

WhyNot56

Neues Mitglied
Hallo zusammen
Ich möchte aus Outlook 2019 via Makro eine Wordvorlage starten um dann den Speicherort selber zu wählen. Das funktioniert soweit. Leider öffnet sich Word nur im Hintergrund. Wie kann ich das machen dass Word dann im Vordergrund startet?

Hier das Makro:
Sub FormularBrief()
Dim AppWD As Object
Set AppWD = CreateObject("Word.Application")

AppWD.Visible = True
AppWD.WindowState = wdWindowStateMaximize
AppWD.Activate

'Vorlage öffen
AppWD.documents.Add "R:\00_Formulare\Formular Allgemeiner Brief.dotx"

End Sub

Besten Dank für eine Lösung
 

nochEinAndreas

Stammgast
Hallo WarumNicht56,

hast du es mal mit Open statt mit Add versucht?:
Code:
Sub FormularBrief()
Dim AppWD As Object
Set AppWD = CreateObject("Word.Application")

AppWD.Visible = True

'Vorlage öffen
AppWD.documents.Open "R:\00_Formulare\Formular Allgemeiner Brief.dotx"
End Sub
 

nochEinAndreas

Stammgast
Sorry,
hab eben erst gesehen, dass du ja eine Vorlage öffnen willst. Da ist Add wohl doch das Mittel der Wahl.
Aber hast du mal versucht, das "AppWD.Visible = True" hinter das Öffnen der Vorlage zu setzen?

Gruß, Andreas
 
Oben