[enjoy2]

argl, wenn man weiß wie, wird es wohl sehr einfach sein ...

ein guter Freund zeigte mir per Mail einen Lösungsansatz (mitdenken war aber dafür notwendig )

was zu diesem Code führte

    .Destination = wdSendToNewDocument
    For i = 1 To Anzahl
      .DataSource.ActiveRecord = i
      
ds_name = .DataSource.DataFields(Schluessel)
      
cleanname = Replace(ds_name, "\", "")
cleanname = Replace(cleanname, "/", "")
cleanname = Replace(cleanname, """", "")
cleanname = Replace(cleanname, "*", "")
cleanname = Replace(cleanname, "?", "")
cleanname = Replace(cleanname, "<", "")
cleanname = Replace(cleanname, ">", "")
cleanname = Replace(cleanname, "|", "")
      
      dsname = Verzeichnis & "\" & cleanname & ".doc"
      .DataSource.FirstRecord = i
      .DataSource.LastRecord = i
      .Execute
      
      ActiveDocument.Range.Find.Execute FindText:="^b", ReplaceWith:=""
      ActiveDocument.SaveAs FileName:=dsname, AddToRecentFiles:=False
      ActiveDocument.Close
     Next i
    .DataSource.FirstRecord = 1 'be smart
  End With
End Sub

jetzt klappts auch mit dem Speichern bei Namen mit Sonderzeichen

thx nochmals auch auf diesem Weg