|
Hallo und guten Tag,
ich möchte gerne in Excel ein Makro starten, welches eine Word Datei öffnet und in diese Datei dann Inhalte aus manchen Zellen überträgt.
Eventuell ist das Problem, dass das Dolument beim Öffnen umbenant wird in "Dokument1"?
___________________________
Sub DruckMassnahmenordner()
Dim Deckblatt_Massnahmenordner As Object
'Dim Dokument1 As Object, (war ein Versuch, weil neues Dokument "Dokument1" heißt
Dim appWord As Object
'erstellt ein neues Dokument um Daten einzugeben
Set appWord = CreateObject("Word.Application")
'auf diese Vorlage soll sich das Makro beziehen
Set Deckblatt_Massnahmenordner = appWord.Documents.Add("\\.....\Deckblatt_Massnahmenordner.doc")
'bis hierher funktioniert das Makro, es wird Datei "Dokument1" mit dem Inhalt aus "Deckblatt Maßnahmenordner" geöffnet.
appWord.Visible = True
Deckblatt_Massnahmenordner.Activate
'Verknüpft word Bookmark mit Excel Bookmark
Deckblatt_Massnahmenordner.Bookmarks("BeginnL").Range.Text = Range("BeginnL")
' DruckMagazinblanko (gekürzt)
Set Deckblatt_Massnahmenordner = Nothing
Set appWord = Nothing
End Sub
_________________
|