Dim wdShape2 As Word.Shape
            wdShape2 = oDoc.Shapes.AddTextbox( _
              Microsoft.Office.Core.MsoTextOrientation.msoTextOrientationHorizo_
              ntal, oWord.CentimetersToPoints(16), oWord.CentimetersToPoints( _
              12.9), oWord.CentimetersToPoints(4.5), oWord.CentimetersToPoints( _
              2.52), oPara48.Range)
            With wdShape2
                .WrapFormat.Type = Word.WdWrapType.wdWrapNone
                .Line.Visible = Microsoft.Office.Core.MsoTriState.msoFalse
                .TextFrame.TextRange.Text = "Zusatzbausteine" & vbCrLf & " -" & _
                  "Versorgungsordnung" & vbCrLf & " - Lohnkostenmanagement" & _
                  vbCrLf & " - Keypersonabsicherung" & vbCrLf & " - BU" & _
                  "Absicherung"
                .TextFrame.TextRange.Paragraphs.SpaceAfter = 1
                .TextFrame.TextRange.Font.Name = "Arial"
                .TextFrame.TextRange.Font.Size = 8
                .TextFrame.TextRange.Font.Bold = False
                .TextFrame.VerticalAnchor = _
                  Microsoft.Office.Core.MsoVerticalAnchor.msoAnchorBottom
                .TextFrame.MarginBottom = oWord.CentimetersToPoints(0)
            End With
            Dim strSuchBegriff1 As String
            strSuchBegriff1 = "Zusatzbausteine"
            Dim rngSuchBereich1 As Word.Range
            rngSuchBereich1 = wdShape2.TextFrame.TextRange
            With rngSuchBereich1.Find
                .Text = strSuchBegriff1
                .Forward = True
                .Execute()
                If .Found = True Then
                    rngSuchBereich1.Font.Size = 10
                    rngSuchBereich1.Font.Bold = True
                End If
            End With