BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!
> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗
fettgedruckt
fettgedruckt
Wie kann ich einen SwXParagraph mit Basicbefehl teilweise in fettgedruckt ändern. Zum Beispiel die ersten 10 Zeichen fettgedruckt.
Re: fettgedruckt
Moin,
ich habe dir da mal ein Makro geschrieben:
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.
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
Beispieldatei anbei.
Gruß R
EDIT: 23.12.2021 17:15 Uhr
Ich habe Makro und Beispieldatei nochmal ausgetauscht, war noch ein kleiner Fehler drin.
- Dateianhänge
-
- FETT.odt
- (15.98 KiB) 84-mal heruntergeladen
Windows 10: AOO, LO Linux Mint: AOO, LO
An alle, die das LibreOffice-Forum nutzen:
Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.
❤️ Vielen lieben Dank für Ihre Unterstützung ❤️