LibreOffice-Forum

Code: Alles auswählen

Sub Fett
     'nAmount = inputbox("Anzahl","Bitte Anzahl der fett zu formatierdenden Zeichen eingeben",10)
     nAmount = 10 'Anzahl der Zeichen
     oSelection = ThisComponent.CurrentController.Selection'Ermittle die aktuell markierten Bereiche
     oTextCursor = ThisComponent.Text.createTextCursor' Erzeuge den TextCursor, mit dem man den Text verändern kann
     for i = 0 to oSelection.Count - 1'Durchlaufe die markierten Bereiche
         oRange = oSelection(i)
         oRE = oRange.CreateEnumeration'Ermittle alle Absätze in einem der markierten Bereiche
         while oRE.hasmoreelements' Durchlaufe die Absätze dieses markierten Bereiches
            oPara = oRE.NextElement
            oTextCursor.gotoRange(oPara.Anchor, false)'Setzte den Textcursor auf den aktuellen Absatz
            oTextCursor.gotoStartOfParagraph(false)' gehe an den Anfang des Absatzes, ohne den Text zu markieren -> false
            oTextCursor.goRight(nAmount,true)'Markiere jetzt die ersten "nAmaont" Zeichen des aktuellen Absatzes
            oTextCursor.CharWeight = 200' Ändere die Strichstärke der markierten Zeichen zu Fett (200), Standard ist 100
        wend
     next i
end sub