Private Sub CmdSchreiben_Click() 
    Dim WordX As New Word.Application 
    Dim D As Word.Document 
    Dim R As Range 
    Dim Dateiname As String 
    Dateiname = Pfad + "DatenbankUrkunde.doc" 
    WordX.Documents.Open FileName:=Dateiname 
 
    Set R = ActiveDocument.Paragraphs(6).Range 
 
    With R 
        .Delete 'löscht die 6.Zeile 
        .InsertParagraphAfter ' fügt eine Leerzeile ein 
        .Font.Size = 42 ' Schriftgröße 
        .Font.Bold = False 'Normal, nicht fett 
        .InsertBefore Zeile1$ 'fügt den String in die 6.Zeile ein 
   End With 
 
   R.Application.Visible = True  '<----???
 
End Sub