Dim wdShape As Word.Shape
            wdShape = oDoc.Shapes.AddTextbox( _
              Microsoft.Office.Core.MsoTextOrientation.msoTextOrientationHorizo_
              ntal, oWord.CentimetersToPoints(1.5), oWord.CentimetersToPoints( _
              15), oWord.CentimetersToPoints(3.88), oWord.CentimetersToPoints( _
              2.52), oPara48.Range)
            With wdShape
                .TextFrame.TextRange.Text = "Basisabsicherung"
                .TextFrame.TextRange.Font.Bold = True
                .TextFrame.TextRange.Text = "Zweite Zeile"
                .TextFrame.TextRange.Collapse( _
                  Word.WdCollapseDirection.wdCollapseEnd)
 
                .TextFrame.TextRange.Select()
            End With