Per Makro aus Excel eine Wordvorlage öffnen
24.07.2015 11:30:03
Markus
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