Moin Peter,

für den Fall, dass Deine Frage noch aktuell ist und Du Deine Herausforderung nicht mit der von DeeDee07 vorgeschlagenen Seriendruckfunktion meistern möchtest, hier eine Möglichkeit per VBA: Das Zauberwort lautet hier "Textmarken". Bereite dafür Deine Word-Vorlage vor, indem Du dort, wo Excel-Daten eingefügt werden sollen, Textmarken platzierst. Abhängig davon, welche Version Du hast, befindet sich der Unterpunkt entweder auf dem Ribbon Einfügen (ab Office 2007) oder im Menü Einfügen (< Office 2007). Vergib im Dialog eindeutige Namen und notiere sie Dir am besten separat, Du wirst sie im VBA-Code in Excel brauchen.

Hier ein Beispiel, wie Dein Code aussehen könnte:

Dim appWord     As Object
Dim docWord     As Object
Dim wks         as Worksheet

Set wks = ThisWorkbook.Worksheets("NameDesTabellenblatts")              'anpassen
Set appWord = CreateObject("Word.Application")
Set docWord = appWord.Documents.Add("C:\Ordner\DeineVorlage.dotx")      'anpassen
With docWord
  .Bookmarks("NameTextmarke1").Range.Text = wks.Range("A1").Value       'anpassen
  .Bookmarks("NameTextmarke2").Range.Text = wks.Range("A2").Value       'anpassen
  .Bookmarks("NameTextmarke3").Range.Text = wks.Range("A3").Value       'anpassen
End With

Noch Fragen? :-)

...zur Antwort
Weitere Inhalte können nur Nutzer sehen, die bei uns eingeloggt sind.