If TypeName(m_objWDDoc) = "Document" Then
            AddTextToBookmarks "tmKdNr", txtDummy.Text
            AddTextToBookmarks "tmPfad", Speicherpfad
        End If

Sub FileSaveAs()
'Sub Demo()
 
Dim strPath As String 'Pfad
Dim strFileName As String 'Dateiname
Dim lngFormat As Long 'Dateiformat
Dim lngRetVal As Long 'Rückgabe Display-Methode
Dim nPos As Long
Dim pfad As String
Dim Kunde As String
 
'die beiden Textmarken werden ausgelesen
'und zugeordnet.
pfad = ActiveDocument.Bookmarks("tmPfad").Range 'Textmarke tmPfad auslesen
Kunde = ActiveDocument.Bookmarks("tmKdNr").Range 'Textmarke tmKdNr auslesen
On Error GoTo err_Handler
strPath = pfad 'Pfad
strFileName = "Besuchsprotokoll" & "_" & Kunde & "_" & Format(Date, "dd_mm_yy") _
  & "_" & fOSUserName  'Dateiname o h n e Endung
lngFormat = wdFormatDocument 'ei-Format
'Ggf. Backslash beim übergebenen Pfad hinzufügen:
 
'Wenn Dateiname (ohne Endung) > 50 Zeichen...
If Len(strFileName) > 50 Then
MsgBox "Sorry... der Dateiname darf nicht " & _
"länger als 50 Zeichen sein !", _
vbOKOnly + vbInformation
GoTo exit_Sub
End If
usw....