Private Sub druck()
    On Error Resume Next
    Set word = GetObject(, "Word.application")
    If Err.Number <> 0 Then
        Err.Clear
        Set word = CreateObject("Word.application")
        If Err.Number <> 0 Then
            strFehlerText = CStr(Err.Number) & " - " & Err.Description
        End If
    End If
    Set doc = word.Documents.Open("z:\vb\kennw\leer.doc")
    word.selection.Font.Name = "Lucida Console"
    word.selection.Font.Size = 11
    word.selection.PageSetup.BottomMargin = 9.07
    word.Application.Visible = True
    word.selection.Font.Size = 8
    word.selection.Font.Bold = False
    word.selection.ParagraphFormat.Alignment = 0
'    word.selection.Font.Name = "Lucida Console"
'    word.selection.Font.Size = 12
'    word.selection.typetext "                        Ausgabe der Kennworte"
'    word.selection.TypeParagraph
'    word.selection.TypeParagraph
    word.selection.Font.Size = 9
'    word.selection.TypeParagraph
    'word.ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=10, NumColumns:=4
'    word.ActiveDocument.tables.Add Range:=word.selection.Range, NumRows:=20, NumColumns:=5
    With selection.tables(1)
        If .Style <> "Tabellengitternetz" Then
            .Style = "Tabellengitternetz"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
    End With
'    word.selection.Font.Size = 8
    word.selection.Font.Name = "Lucida Console"
    
    word.selection.typetext "Netz:"
    word.selection.moveright
    word.selection.typetext Label12(3).Caption
    word.selection.moveright
    word.selection.typetext Text1.Text
    word.selection.moveright
    word.selection.typetext Text21(0).Text
    word.selection.moveright
    word.selection.typetext Label9.Caption
    word.selection.moveright
'    word.selection.TypeParagraph
    word.selection.typetext "RAV:"
    word.selection.moveright
    word.selection.typetext Label12(4).Caption
    word.selection.moveright
    word.selection.typetext Text3.Text
    word.selection.moveright
    word.selection.typetext Text21(1).Text
    word.selection.moveright
    word.selection.typetext Label16.Caption
    word.selection.moveright
'    word.selection.TypeParagraph
    word.selection.typetext "TimeView:"
    word.selection.moveright
    word.selection.typetext Label12(5).Caption
    word.selection.moveright
    word.selection.typetext Text5.Text
    word.selection.moveright
    word.selection.typetext Text21(2).Text
    word.selection.moveright
    word.selection.typetext Label17.Caption
    word.selection.moveright
'    word.selection.TypeParagraph
    word.selection.typetext "EToken:"
    word.selection.moveright
    word.selection.moveright
    word.selection.typetext Text7.Text
    word.selection.moveright
    word.selection.typetext Text21(3).Text
    word.selection.moveright
    word.selection.typetext Label18.Caption
    word.selection.moveright
'    word.selection.TypeParagraph
    word.selection.typetext "ITSM:"
    word.selection.moveright
    word.selection.typetext Label12(6).Caption
    word.selection.moveright
    word.selection.typetext Text9.Text
    word.selection.moveright
    word.selection.typetext Text21(4).Text
    word.selection.moveright
    word.selection.typetext Label19.Caption
    word.selection.moveright
'    word.selection.TypeParagraph
    word.selection.typetext "OTS-Herten:"
    word.selection.moveright
    word.selection.typetext Label12(29).Caption
    word.selection.moveright
    word.selection.typetext Text11.Text
    word.selection.moveright
    word.selection.typetext Text21(6).Text
    word.selection.moveright
    word.selection.typetext Label21.Caption
    word.selection.moveright
'    word.selection.TypeParagraph
    word.selection.typetext "Wg-Datenabgleich:"
    word.selection.moveright
    word.selection.typetext Label12(7).Caption
    word.selection.moveright
    word.selection.typetext Text13.Text
    word.selection.moveright
    word.selection.typetext Text21(7).Text
    word.selection.moveright
    word.selection.typetext Label22.Caption
    word.selection.moveright
'    word.selection.TypeParagraph
    word.selection.typetext "Lokal:"
    word.selection.moveright
    word.selection.typetext Label12(8).Caption
    word.selection.moveright
    word.selection.typetext Text15.Text
    word.selection.moveright
    word.selection.typetext Text21(8).Text
    word.selection.moveright
    word.selection.typetext Label24.Caption
    word.selection.moveright
'    word.selection.TypeParagraph
    word.selection.typetext "FTP:"
    word.selection.moveright
    word.selection.typetext Label12(9).Caption
    word.selection.moveright
    word.selection.typetext Text17.Text
    word.selection.moveright
    word.selection.typetext Text21(9).Text
    word.selection.moveright
    word.selection.typetext Label25.Caption
    word.selection.moveright
'    word.selection.TypeParagraph
    word.selection.typetext "NetViewer:"
    word.selection.moveright
    word.selection.typetext Label12(31).Caption
    word.selection.moveright
    word.selection.typetext Text80.Text
    word.selection.moveright
    word.selection.typetext Text21(10).Text
    word.selection.moveright
    word.selection.typetext Label80.Caption
    word.selection.moveright
'    word.selection.TypeParagraph
    a = InStr(Label12(10).Caption, "- ")
    word.selection.typetext "ABS: " & Left(Label12(10).Caption, a - 1)
    word.selection.moveright
    word.selection.typetext Mid(Label12(10).Caption, a + 3, Len(Label12(10).Caption))
    word.selection.moveright
    word.selection.typetext Text19.Text
    word.selection.moveright
    word.selection.typetext Text21(5).Text
    word.selection.moveright
    word.selection.typetext Label20.Caption
    word.selection.moveright
'    word.selection.TypeParagraph
    a = InStr(Label12(11).Caption, "- ")
    word.selection.typetext "     " & Left(Label12(11).Caption, a - 1)
    word.selection.moveright
    word.selection.typetext Mid(Label12(11).Caption, a + 3, Len(Label12(11).Caption))
    word.selection.moveright
    word.selection.typetext Text23.Text
    word.selection.moveright
    word.selection.typetext Text21(5).Text
    word.selection.moveright
    word.selection.typetext Label26.Caption
    word.selection.moveright
'    word.selection.TypeParagraph
    a = InStr(Label12(12).Caption, "- ")
    word.selection.typetext "     " & Left(Label12(12).Caption, a - 1)
    word.selection.moveright
    word.selection.typetext Mid(Label12(12).Caption, a + 3, Len(Label12(12).Caption))
    word.selection.moveright
    word.selection.typetext Text25.Text
    word.selection.moveright
    word.selection.typetext Text21(5).Text
    word.selection.moveright
    word.selection.typetext Label27.Caption
    word.selection.moveright
    word.selection.TypeParagraph
'    word.selection.TypeParagraph
    a = InStr(Label12(13).Caption, "- ")
    word.selection.typetext "     " & Left(Label12(13).Caption, a - 1)
    word.selection.moveright
    word.selection.typetext Mid(Label12(13).Caption, a + 3, Len(Label12(13).Caption))
    word.selection.moveright
    word.selection.typetext Text27.Text
    word.selection.moveright
    word.selection.typetext Text21(5).Text
    word.selection.moveright
    word.selection.typetext Label28.Caption
    word.selection.moveright
    word.selection.TypeParagraph
'    word.selection.TypeParagraph
    a = InStr(Label12(14).Caption, "- ")
    word.selection.typetext "     " & Left(Label12(14).Caption, a - 1)
    word.selection.moveright
    word.selection.typetext Mid(Label12(14).Caption, a + 3, Len(Label12(14).Caption))
    word.selection.moveright
    word.selection.typetext Text29.Text
    word.selection.moveright
    word.selection.typetext Text21(5).Text
    word.selection.moveright
    word.selection.typetext Label29.Caption
    word.selection.moveright
    word.selection.TypeParagraph
'    word.selection.TypeParagraph
    a = InStr(Label12(15).Caption, "- ")
    word.selection.typetext "     " & Left(Label12(15).Caption, a - 1)
    word.selection.moveright
    word.selection.typetext Mid(Label12(15).Caption, a + 3, Len(Label12(15).Caption))
    word.selection.moveright
    word.selection.typetext Text31.Text
    word.selection.moveright
    word.selection.typetext Text21(5).Text
    word.selection.moveright
    word.selection.typetext Label30.Caption
    word.selection.moveright
    word.selection.TypeParagraph
'    word.selection.TypeParagraph
    a = InStr(Label12(16).Caption, "- ")
    word.selection.typetext "     " & Left(Label12(16).Caption, a - 1)
    word.selection.moveright
    word.selection.typetext Mid(Label12(16).Caption, a + 3, Len(Label12(16).Caption))
    word.selection.moveright
    word.selection.typetext Text33.Text
    word.selection.moveright
    word.selection.typetext Text21(5).Text
    word.selection.moveright
    word.selection.typetext Label31.Caption
    word.selection.moveright
    word.selection.TypeParagraph
'    word.selection.TypeParagraph
    a = InStr(Label12(17).Caption, "- ")
    word.selection.typetext "     " & Left(Label12(17).Caption, a - 1)
    word.selection.moveright
    word.selection.typetext Mid(Label12(17).Caption, a + 3, Len(Label12(17).Caption))
    word.selection.moveright
    word.selection.typetext Text35.Text
    word.selection.moveright
    word.selection.typetext Text21(5).Text
    word.selection.moveright
    word.selection.typetext Label32.Caption
    word.selection.moveright
    word.selection.TypeParagraph
'    word.selection.TypeParagraph
    a = InStr(Label12(18).Caption, "- ")
    word.selection.typetext "     " & Left(Label12(18).Caption, a - 1)
    word.selection.moveright
    word.selection.typetext Mid(Label12(18).Caption, a + 3, Len(Label12(18).Caption))
    word.selection.moveright
    word.selection.typetext Text37.Text
    word.selection.moveright
    word.selection.typetext Text21(5).Text
    word.selection.moveright
    word.selection.typetext Label33.Caption
    word.selection.moveright
    word.selection.TypeParagraph
'    word.selection.TypeParagraph
    a = InStr(Label12(19).Caption, "- ")
    word.selection.typetext "     " & Left(Label12(19).Caption, a - 1)
    word.selection.moveright
    word.selection.typetext Mid(Label12(19).Caption, a + 3, Len(Label12(19).Caption))
    word.selection.moveright
    word.selection.typetext Text39.Text
    word.selection.moveright
    word.selection.typetext Text21(5).Text
    word.selection.moveright
    word.selection.typetext Label34.Caption
    word.selection.moveright
    word.selection.TypeParagraph
'    word.selection.TypeParagraph
    a = InStr(Label12(20).Caption, "- ")
    word.selection.typetext "     " & Left(Label12(20).Caption, a - 1)
    word.selection.moveright
    word.selection.typetext Mid(Label12(20).Caption, a + 3, Len(Label12(20).Caption))
    word.selection.moveright
    word.selection.typetext Text41.Text
    word.selection.moveright
    word.selection.typetext Text21(5).Text
    word.selection.moveright
    word.selection.typetext Label35.Caption
    word.selection.moveright
    word.selection.TypeParagraph
'    word.selection.TypeParagraph
    a = InStr(Label12(21).Caption, "- ")
    word.selection.typetext "     " & Left(Label12(21).Caption, a - 1)
    word.selection.moveright
    word.selection.typetext Mid(Label12(21).Caption, a + 3, Len(Label12(21).Caption))
    word.selection.moveright
    word.selection.typetext Text43.Text
    word.selection.moveright
    word.selection.typetext Text21(5).Text
    word.selection.moveright
    word.selection.typetext Label36.Caption
    word.selection.moveright
    word.selection.TypeParagraph
'    word.selection.TypeParagraph
    a = InStr(Label12(22).Caption, "- ")
    word.selection.typetext "     " & Left(Label12(22).Caption, a - 1)
    word.selection.moveright
    word.selection.typetext Mid(Label12(22).Caption, a + 3, Len(Label12(22).Caption))
    word.selection.moveright
    word.selection.typetext Text45.Text
    word.selection.moveright
    word.selection.typetext Text21(5).Text
    word.selection.moveright
    word.selection.typetext Label37.Caption
    word.selection.moveright
    word.selection.TypeParagraph
'    word.selection.TypeParagraph
    a = InStr(Label12(23).Caption, "- ")
    word.selection.typetext "     " & Left(Label12(23).Caption, a - 1)
    word.selection.moveright
    word.selection.typetext Mid(Label12(23).Caption, a + 3, Len(Label12(23).Caption))
    word.selection.moveright
    word.selection.typetext Text47.Text
    word.selection.moveright
    word.selection.typetext Text21(5).Text
    word.selection.moveright
    word.selection.typetext Label38.Caption
    word.selection.moveright
    word.selection.TypeParagraph
'    word.selection.TypeParagraph
    a = InStr(Label12(24).Caption, "- ")
    word.selection.typetext "     " & Left(Label12(24).Caption, a - 1)
    word.selection.moveright
    word.selection.typetext Mid(Label12(24).Caption, a + 3, Len(Label12(24).Caption))
    word.selection.moveright
    word.selection.typetext Text49.Text
    word.selection.moveright
    word.selection.typetext Text21(5).Text
    word.selection.moveright
    word.selection.typetext Label39.Caption
    word.selection.moveright
    word.selection.TypeParagraph
'    word.selection.TypeParagraph
    a = InStr(Label12(25).Caption, "- ")
    word.selection.typetext "     " & Left(Label12(25).Caption, a - 1)
    word.selection.moveright
    word.selection.typetext Mid(Label12(25).Caption, a + 3, Len(Label12(25).Caption))
    word.selection.moveright
    word.selection.typetext Text51.Text
    word.selection.moveright
    word.selection.typetext Text21(5).Text
    word.selection.moveright
    word.selection.typetext Label40.Caption
    word.selection.moveright
    word.selection.TypeParagraph
'    word.selection.TypeParagraph
    a = InStr(Label12(26).Caption, "- ")
    word.selection.typetext "     " & Left(Label12(26).Caption, a - 1)
    word.selection.moveright
    word.selection.typetext Mid(Label12(26).Caption, a + 3, Len(Label12(26).Caption))
    word.selection.moveright
    word.selection.typetext Text53.Text
    word.selection.moveright
    word.selection.typetext Text21(5).Text
    word.selection.moveright
    word.selection.typetext Label41.Caption
    word.selection.moveright
    word.selection.TypeParagraph
'    word.selection.TypeParagraph
    a = InStr(Label12(27).Caption, "- ")
    word.selection.typetext "     " & Left(Label12(27).Caption, a - 1)
    word.selection.moveright
    word.selection.typetext Mid(Label12(27).Caption, a + 3, Len(Label12(27).Caption))
    word.selection.moveright
    word.selection.typetext Text55.Text
    word.selection.moveright
    word.selection.typetext Text21(5).Text
    word.selection.moveright
    word.selection.typetext Label42.Caption
    word.selection.moveright
    word.selection.TypeParagraph
'    word.selection.TypeParagraph
    a = InStr(Label12(28).Caption, "- ")
    word.selection.typetext "     " & Left(Label12(28).Caption, a - 1)
    word.selection.moveright
    word.selection.typetext Mid(Label12(28).Caption, a + 3, Len(Label12(28).Caption))
    word.selection.moveright
    word.selection.typetext Text57.Text
    word.selection.moveright
    word.selection.typetext Text21(5).Text
    word.selection.moveright
    word.selection.typetext Label43.Caption
    word.selection.moveright
    word.selection.TypeParagraph
'    word.selection.TypeParagraph
    a = InStr(Label12(30).Caption, "- ")
    word.selection.typetext "     " & Left(Label12(30).Caption, a - 1)
    word.selection.moveright
    word.selection.typetext Mid(Label12(30).Caption, a + 3, Len(Label12(30).Caption))
    word.selection.moveright
    word.selection.typetext Text59.Text
    word.selection.moveright
    word.selection.typetext Text21(5).Text
    word.selection.moveright
    word.selection.typetext Label44.Caption
    word.selection.moveright
    word.selection.TypeParagraph
'    With Printer
'        .FontName = "Lucida Console"
'        .FontSize = 14
'        .FontBold = True
'    End With
'    Printer.Print "          Kennwrter   " & Label10.Caption
'    Printer.Print " "
'    Printer.Print " "
'    Printer.FontSize = 12
'    Printer.Print "      Netz:        " & Text1.Text
'    Printer.Print " "
'    Printer.Print "      RAV:         " & Text2.Text
'    Printer.Print " "
'    Printer.Print "      Timeview:    " & Text3.Text
'    Printer.Print " "
'    Printer.Print "      EToken:      " & Text4.Text
'    Printer.Print " "
'    Printer.Print "      ITSM:        " & Text5.Text
'    Printer.Print " "
'    Printer.Print "      ABS:         " & Text6.Text
'    Printer.Print " "
'    Printer.Print "      Fernwartung: " & Text7.Text
'    Printer.Print " "
'    Printer.Print "      ABS2.0:      " & Text16.Text
'    Printer.Print " "
'    Printer.Print "      Lokal:       " & Text17.Text
'    Printer.Print " "
'    Printer.Print "      FTP:         " & Text19.Text
End Sub