I think the following will work, BUT I'm not a word vba person, nor have I seen your database.
1.- Adjust the sub you showed earlier to become
Code:
Public Sub ExportNameToWord(sSelectedPerson as String)
Dim wApp As Word.Application
Dim wDoc As Word.Document
Dim rs As DAO.Recordset
Set wApp = New Word.Application
Set wDoc = wApp.Documents.Open("C:\Users\Desktop\Testdocument.docx")
'Set rs = CurrentDb.OpenRecordset("tbl_Daten") '''' THIS LINE IS REPLACED WITH THE NEXT LINE
Set rs = CurrentDb.OpenRecordset(sSelectedPerson)
'sSelectedPerson is thevalue you selected from the combobox and your related SQL (Person)
If Not rs.EOF Then rs.MoveFirst
Do Until rs.EOF
wDoc.Bookmarks("Name").Range.Text = Nz(rs!Nachname, "")
wDoc.Bookmarks("Firstname").Range.Text = Nz(rs!Firstname, "")
wDoc.Bookmarks("Birthday").Range.Text = Nz(rs!Birthday, "")
wDoc.SaveAs2 "C:\Users\Desktop\" & rs!Name & rs!Firstname & "_Testdocument.docx"
wDoc.Bookmarks("Name").Range.Delete wdCharacter, Len(Nz(rs!Name, ""))
wDoc.Bookmarks("Firstname").Range.Delete wdCharacter, Len(Nz(rs!Firstname, ""))
wDoc.Bookmarks("Birthday").Range.Delete wdCharacter, Len(Nz(rs!Birthday, ""))
rs.MoveNext
Loop
wDoc.Close False
wApp.Quit
Set wDoc = Nothing
Set wApp = Nothing
Set rs = Nothing
End Sub
2. Add the last line below to your AfterUpdate to invoke the Export to word.
Code:
private Sub cboVorname_AfterUpdate()
Dim Person as String
Person = "Select * from tbl_Stammdaten where ([ID] = " & Me.cboVorname & ")"
Me.Dateneingabe_Subform.Form.RecordSource = Person
Me.Dateneingabe_Subform.Form.Requery
Call ExportNameToWord(Person) 'Add this line to invoke the Export to word !!!!!!!!!!
Note: Try this on a copy of your database. Do a backup first -just in case I've misunderstood.
It appears that you are only selecting 1 person at a time --is this correct?