'HEADLINE 2
            Dim oPara19 As Word.Paragraph = oDoc.Content.Paragraphs.Add( _
              oDoc.Bookmarks.Item("\endofdoc").Range)
            oPara19.Range.Font.Name = "Arial"
            oPara19.Range.Font.Bold = True
            oPara19.Range.Font.Size = 24
            oPara19.Format.Alignment = _
              Word.WdParagraphAlignment.wdAlignParagraphLeft
            oPara19.Range.Font.ColorIndex = FARBE
            oPara19.Range.Text = "Vorwort"
            oPara19.Format.SpaceAfter = 20
            oPara19.Range.InsertParagraphAfter()
            Dim oPara20 As Word.Paragraph = oDoc.Content.Paragraphs.Add( _
              oDoc.Bookmarks.Item("\endofdoc").Range)
            oPara20.Range.Font.Bold = False
            oPara20.Range.Font.Size = 10
            oPara20.Range.Font.ColorIndex = Word.WdColorIndex.wdBlack
            oPara20.Range.InsertAfter("Kleine und mittelständische Unternehmen" & _
              "stehen in Deutschland schon heute vor einigen großen" & _
              "Herausforderungen:")
            oPara20.Range.InsertParagraphAfter()
            Dim oPara21 As Word.Paragraph = oDoc.Content.Paragraphs.Add( _
              oDoc.Bookmarks.Item("\endofdoc").Range)
            oPara21.Range.ListFormat.ApplyListTemplate( _
            ListTemplate:=oWord.ListGalleries(1).ListTemplates(1))
            oPara21.Range.Font.Bold = False
            oPara21.Range.Font.Size = 10
            oPara21.Range.Font.ColorIndex = Word.WdColorIndex.wdBlack
            oPara21.Range.InsertAfter("Durch den Bevölkerungswandel werden die" & _
              "Mitarbeiter immer älter")
            oPara21.Format.Alignment = _
            Word.WdParagraphAlignment.wdAlignParagraphJustify
            oPara21.Range.InsertParagraphAfter()
            oPara21.Range.InsertAfter("Durch den Fachkräftemangel steigt der" & _
              "Wettbewerb um qualifizierte Arbeitskräfte  weiter an")
            oPara21.Range.InsertParagraphAfter()
            oPara21.Range.InsertAfter("Hoher Kostendruck durch globalen" & _
              "Wettbewerb")
            oPara21.Range.InsertParagraphAfter()
            oPara21.Range.InsertAfter("Flexibilisierung von Produktion und" & _
              "Arbeitszeiten")
            oPara21.Range.InsertParagraphAfter()
            oPara21.Range.InsertAfter("Rechtssichere und verwaltungsarme" & _
              "Umsetzung des Rechtsanspruchs auf Entgeltumwandlung")
            oPara21.Range.Select()