Dim oPara38 As Word.Paragraph = oDoc.Content.Paragraphs.Add( _
                  oDoc.Bookmarks.Item("\endofdoc").Range)
                oPara38.Range.Font.Bold = True
                oPara38.Range.Font.Size = 10
                oPara38.Range.Font.ColorIndex = FARBE
                oPara38.Range.Text = "Modul: Schwere Krankheiten Vorsorge (" & _
                  "Absicherung von Schlüsselpersonen des Unternehmens)"
                'oPara38.Range.ListFormat.ApplyListTemplate( 
                ' ListTemplate:=oWord.ListGalleries(1).ListTemplates(1))
                oPara38.Format.Alignment = _
                  Word.WdParagraphAlignment.wdAlignParagraphJustify
                oPara38.Range.InsertParagraphAfter()
                Dim oPara39 As Word.Paragraph = oDoc.Content.Paragraphs.Add( _
                  oDoc.Bookmarks.Item("\endofdoc").Range)
                oPara39.Range.Font.Bold = False
                oPara39.Range.Font.Size = 10
                oPara39.Range.Font.ColorIndex = Word.WdColorIndex.wdBlack
                oPara39.Range.Text = "Ziel: Absicherung des Unternehmens gegen" & _
                  "die finanziellen Risiken eines krankheitsbedingten Ausfalls" & _
                  "des/der Keyperson sowie Absicherung der Mitarbeiter gegen" & _
                  "das finanzielle Risiko einer schweren Erkrankung oder gar" & _
                  "Tod"
                'oPara39.Range.ListFormat.ApplyListTemplate( 
                ' ListTemplate:=oWord.ListGalleries(1).ListTemplates(1))
                oPara39.Format.Alignment = _
                  Word.WdParagraphAlignment.wdAlignParagraphJustify
                oPara39.Range.InsertParagraphAfter()
            End If
 
            Dim oPara40 As Word.Paragraph = oDoc.Content.Paragraphs.Add( _
              oDoc.Bookmarks.Item("\endofdoc").Range)
            oPara40.Range.Font.Name = "Arial"
            oPara40.Range.Font.Bold = True
            oPara40.Range.Font.Size = 10
            oPara40.Range.Font.ColorIndex = FARBE
            oPara40.Range.Text = "Unser Konzept zur Umsetzung enthält die" & _
              "folgenden Bausteine:"
            oPara40.Format.Alignment = _
            Word.WdParagraphAlignment.wdAlignParagraphJustify
            oPara40.Range.InsertParagraphAfter()
            Dim oPara41 As Word.Paragraph = oDoc.Content.Paragraphs.Add( _
              oDoc.Bookmarks.Item("\endofdoc").Range)
            oPara41.Range.Font.Bold = False
            oPara41.Range.Font.Size = 10
            oPara41.Range.Font.ColorIndex = Word.WdColorIndex.wdBlack
            oPara41.Range.Text = "Gespräche mit der Geschäftsführung (Ziele der" & _
              "bAV; Durchführungswege; Partner)"
            oPara41.Range.ListFormat.ApplyListTemplate( _
            ListTemplate:=oWord.ListGalleries(1).ListTemplates(1))
            oPara41.Format.Alignment = _
            Word.WdParagraphAlignment.wdAlignParagraphJustify
            oPara41.Range.InsertParagraphAfter()
            oPara41.Range.Text = "Erstellung einer Versorgungsordnung (i.d.R." & _
              "mit juristischem Bestätigungsvermerk)"
            oPara41.Range.ListFormat.ApplyListTemplate( _
            ListTemplate:=oWord.ListGalleries(1).ListTemplates(1))
            oPara41.Format.Alignment = _
            Word.WdParagraphAlignment.wdAlignParagraphJustify
            oPara41.Range.InsertParagraphAfter()
            oPara41.Range.Text = "Einbindung des Betriebsrates  (soweit" & _
              "vorhanden)"
            oPara41.Range.ListFormat.ApplyListTemplate( _
            ListTemplate:=oWord.ListGalleries(1).ListTemplates(1))
            oPara41.Format.Alignment = _
            Word.WdParagraphAlignment.wdAlignParagraphJustify
            oPara41.Range.InsertParagraphAfter()
            oPara41.Range.Text = "Mitarbeiterinformation (Konzeptmappe;" & _
              "Aushang; Belegschaftsversammlung)"
            oPara41.Range.ListFormat.ApplyListTemplate( _
            ListTemplate:=oWord.ListGalleries(1).ListTemplates(1))
            oPara41.Format.Alignment = _
            Word.WdParagraphAlignment.wdAlignParagraphJustify
            oPara41.Range.InsertParagraphAfter()
            oPara41.Range.Text = "Feste 'Sprechzeiten' in der Firma;" & _
              "Einzelberatung mit Beratungsdokumentation"