Datenübergabe Excel an Word
14.05.2014 12:50:43
Ulf
ich habe ein etwas spezielleres Thema. Ich möchte aus einer Excel Datei gewisse Zellen in Word kopieren und per Textmarke an ganz bestimmten Punkten einfügen.
Dies funktioniert auch sehr gut, ich möchte allerdings auch einen Positionsrahmen ansprechen, um dort z.B. Adressdaten einzufügen. Und genau das funktioniert nicht. Ich habe insgesamt 4 Positionsrahmen (Kopfzeile, Fußzeile, Adressfeld, Absender). Ich weiss leider nicht wie ich die einzelnen Rahmen ansprechen kann.
Kann mir jemand helfen? Ich benutze derzeit folgenden Code:
Private Sub Stichtagsmeldung_erstellen()
Sheets("Druckmenü Stichtagsmeldebogen").Activate
Range("b8").Select
ActiveCell.Copy
Dim Word As Object
On Error GoTo wordstarten
Set Word = GetObject(, "word.application")
With Word
.Visible = True
.Activate
.Documents.Add Template:= _
"S:\Kurzangebot.doc" _
, NewTemplate:=False, DocumentType:=0
.Selection.GoTo What:=wdGoToBookmark, Name:="Name_des_Interessenten"
.Selection.PasteAndFormat (wdFormatPlainText)
End With
Range("f8").Copy
With Word
.Selection.GoTo What:=wdGoToBookmark, Name:="Kundennummer"
.Selection.PasteAndFormat (wdFormatPlainText)
End With
End Sub
Der letztere Teil wird noch beliebig oft wiederholt. Hat hier jemand eine Idee? Derzeit bin ich noch mit Excel 2002 unterwegs, demnächst wird jedoch auf 2010 umgerüstet.
Danke vorab und beste Grüße