Wie das manchmal so ist. Kaum hat man einen Post abgesetzt geht die kleine Glühbirne im Kopf an und formt eine Idee. Mit einem With-Block sollte es gehen, dass du das Bookmark mehrfach verwenden kannst. Probiers also nochmal mit diesem Code:
Sub Spendenbeleg_Geld()
'Bibliothek aktivieren
Dim wordapp As New Word.Application
Dim doc As Word.Document
Dim Zeile As Long
Dim rw As Range
Worksheets("Kassenbuch").Activate
'Word sichbar machen
wordapp.Visible = True
'Word-Datei öffnen
Set doc = wordapp.Documents.Open("C:\Users\49151\Documents\Ö\04_Freizeit\_StSebSchützen\Vorlagen\Spendenbescheinigung\Spendenbescheinigung_Geld.docx")
For Each rw In Selection.Rows
Zeile = rw.Row
'Word Datei mit Excel-Datei befüllen
doc.FormFields("Betrag").Result = Tabelle1.Cells(Zeile, 5)
With doc.Bookmarks("Name").Range
.Text = Tabelle1.Cells(Zeile, 20).Value
.Bookmarks.Add "Name"
End With
With doc.Bookmarks("Straße").Range
.Text = Tabelle1.Cells(Zeile, 22).Value
.Bookmarks.Add "Straße"
End With
With doc.Bookmarks("Hausnummer").Range
.Text = Tabelle1.Cells(Zeile, 23).Value
.Bookmarks.Add "Hausnummer"
End With
With doc.Bookmarks("Wohnort").Range
.Text = Tabelle1.Cells(Zeile, 21).Value
.Bookmarks.Add "Wohnort"
End With
With doc.Bookmarks("Datum").Range
.Text = Tabelle1.Cells(Zeile, 2).Value
.Bookmarks.Add "Datum"
End With
doc.SaveAs2 ThisWorkbook.Path & "\20xx-xx-xx_Geldspende_Geber_" & Tabelle1.Cells(Zeile, 9).Value & ".docx"
Next rw
'Word-Datei abspeichern
'doc.SaveAs2 ThisWorkbook.Path & "\Spendenbescheinigung" & Tabelle1.Cells(Zeile, 8).Value & ".docx"
'Word-Datei schließen
doc.Close SaveChanges:=False
'Word-Datei als PDF abspeichern
'doc.ExportAsFixedFormat ThisWorkbook.Path & "\BelegNr" & Tabelle1.Cells(Zeile, 8).Value & ".pdf", wdExportFormatPDF
'Word-Applikation schließen
wordapp.Quit
End Sub
Natürlich ist auch der Code ungetestet, da ich deine Dokumente nicht vor mir habe. Aber der Teil mit dem With-Block, der funktioniert. Das konnte ich an einem Mini-Beispiel testen.
Gruß Mr. K.
|