fettgedruckt

[dennisr39]

Wie kann ich einen SwXParagraph mit Basicbefehl teilweise in fettgedruckt ändern. Zum Beispiel die ersten 10 Zeichen fettgedruckt.

[F3K Total]

Moin,
ich habe dir da mal ein Makro geschrieben:

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

Markiere die Absätze ganz oder teilweise, in denen du die ersten 10 Zeichen fett haben möchtest, und lasse das Makro laufen.
Beispieldatei anbei.
Gruß R
EDIT: 23.12.2021 17:15 Uhr
Ich habe Makro und Beispieldatei nochmal ausgetauscht, war noch ein kleiner Fehler drin.