Per Makro aus Excel eine Wordvorlage öffnen

Bild

Betrifft: Per Makro aus Excel eine Wordvorlage öffnen
von: Markus Götzfried
Geschrieben am: 24.07.2015 11:30:03

Hallo,
ich bin ziemlich neu in hier und hätte da mal ne kleine Frage.
Ich habe eine Excel-Tabelle aus der ich durch drücken auf ein Makro eine Word-Vorlage öffnen kann und diese sich dann auch je nach dem mit Daten automatisch ausfüllt.
Und nun zu meiner Frage, im Moment ist es so, dass Word zwar geöffnet wird, aber dass leider immer nur im Minimierten Modus. Sprich ich muss jedes mal das Symbol unten links min der Taskleiste anklicken um es zu maximieren.
Hier Mein Code:

Sub Entsorg60()
Dim wrdApp, wrdDoc, Tabelle
Set Tabelle = ThisWorkbook.Worksheets("Test")
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open("F:\Test")
wrdDoc.FormFields("Text2").Result = Tabelle.Range("F60").Value
wrdDoc.FormFields("Text3").Result = Tabelle.Range("i60").Value
wrdDoc.FormFields("Text4").Result = Tabelle.Range("k60").Value
wrdDoc.FormFields("Text5").Result = Tabelle.Range("l60").Value
wrdDoc.FormFields("Text6").Result = Tabelle.Range("j60").Value
wrdDoc.FormFields("Text7").Result = Tabelle.Range("o60").Value
wrdDoc.FormFields("Text9").Result = Tabelle.Range("r60").Value
wrdDoc.FormFields("Text10").Result = Tabelle.Range("s60").Value
wrdDoc.FormFields("Text11").Result = Tabelle.Range("u60").Value
wrdDoc.FormFields("Text12").Result = Tabelle.Range("c60").Value
wrdDoc.FormFields("Text13").Result = Tabelle.Range("b60").Value
wrdDoc.FormFields("Text14").Result = Tabelle.Range("q60").Value
End Sub

Vielleicht kann mir ja eine bei dem Problem helfen..
Mfg.: Markus

Bild

Betrifft: AW: Per Makro aus Excel eine Wordvorlage öffnen
von: Nepumuk
Geschrieben am: 24.07.2015 12:46:36
Hallo,
so:

Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
wrdApp.WindowState = 1
.
.
.

Gruß
Nepumuk

Bild

Betrifft: AW: Per Makro aus Excel eine Wordvorlage öffnen
von: Markus Götzfried
Geschrieben am: 27.07.2015 07:40:27
Hallo,
danke erst mal für die schnelle Antwort!
Leider hat sich an meinem Problem nichts geändert.
Auch wenn ich den Code ändere bleibt Word im Hintergrund.
Gruß
Markus

Bild

Betrifft: AW: Per Makro aus Excel eine Wordvorlage öffnen
von: Nepumuk
Geschrieben am: 27.07.2015 08:50:17
Hallo,
dann so:

Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
wrdApp.WindowState = 1
AppActivate "Word"

Gruß
Nepumuk

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Per Makro aus Excel eine Wordvorlage öffnen "