Private Sub btnOK_Click()
Dim Datum As String
 
    Selection.GoTo What:=wdGoToBookmark, Name:="IhrZeichen"
    Selection.TypeText Text:=Me.txtYourRef.Value
    Selection.GoTo What:=wdGoToBookmark, Name:="UnserZeichen"
    Selection.TypeText Text:=Me.txtOurRef.Value
    Selection.GoTo What:=wdGoToBookmark, Name:="Telephon"
    Selection.TypeText Text:=Me.txtPhone.Value
    Selection.GoTo What:=wdGoToBookmark, Name:="Fax"
    Selection.TypeText Text:=Me.txtFax.Value
    Selection.GoTo What:=wdGoToBookmark, Name:="Datum"
    Selection.TypeText Text:=Me.txtDatum.Value
    Selection.GoTo What:=wdGoToBookmark, Name:="Adresse"
    Selection.TypeText Text:=Me.txtAddress.Value
 
    Selection.GoTo What:=wdGoToBookmark, Name:="smalltel"
    Selection.TypeText Text:=Me.txtPhone.Value
    Selection.GoTo What:=wdGoToBookmark, Name:="smallfax"
    Selection.TypeText Text:=Me.txtFax.Value
 
    Selection.GoTo What:=wdGoToBookmark, Name:="Titel"
    Selection.TypeText Text:=Me.txtTitel.Value
 
 
    If Anrede <> "" Then
        Selection.GoTo What:=wdGoToBookmark, Name:="Anrede"
        Selection.TypeText Text:=Anrede
    End If
 
    WordBasic.FileSummaryInfo Title:="", _
        Subject:="", Keywords:="", _
        Author:=Me.txtOurRef.Text, _
        Comments:=""
 
    'Persönliche Einstellungen speichern
     SaveSetting "WordTemplate", "Personal", "OurRef", Me.txtOurRef
 
    Unload Me
 
 
 
End Sub