Private Sub schreiben_Click()
 
If Lnr1 = "17101" Then
' Word-Objekt erzeugen
Set wApp = CreateObject("Word.Application.8")
 
 
With wApp
  ' Word anzeigen
wApp.Application.Visible = True
 
  ' Word-Dokument laden und anzeigen
  .Documents.Open "C:\Schule\anfragen\17101 - Elba.doc"
 
        wApp.ActiveDocument.Bookmarks("Datum").Range.Text = txtdatum.Text
 
        wApp.ActiveDocument.Bookmarks("Name").Range.Text = txtname.Text
 
        wApp.ActiveDocument.Bookmarks("Name2").Range.Text = txtname.Text
 
        wApp.ActiveDocument.Bookmarks("Telefon").Range.Text = txttel.Text
 
        If optherr.Value = True Then
                wApp.ActiveDocument.Bookmarks("ANREDE").Range.Text = "Herr"
        End If
 
        If optfrau.Value = True Then
                wApp.ActiveDocument.Bookmarks("ANREDE").Range.Text = "Frau"
        End If
 
        wApp.ActiveDocument.Bookmarks("ANZAHL").Range.Text = txtanzahl.Text
 
        wApp.ActiveDocument.Bookmarks("NK").Range.Text = txtnk.Text
 
        wApp.ActiveDocument.Bookmarks("BESCHREIBUNG").Range.Text = _
          txtBeschreibung.Text
 
        wApp.ActiveDocument.Bookmarks("ABTEIL").Range.Text = txtabteilung.Text
 
        wApp.ActiveDocument.Bookmarks("VGNR").Range.Text = txtvgnr.Text
 
        wApp.ActiveDocument.Bookmarks("NR").Range.Text = txtnr.Text
 
        wApp.ActiveDocument.Bookmarks("LEER").Range.Text = "  "
 
        wApp.ActiveDocuments.SaveAs "C:\Schule\" & Nr & "-" & Datum & ".doc"
 
        'wApp.ActiveDocument.Close
 
        End With