BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> 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

Alles zur Programmierung im LibreOffice.
Antworten
dennisr39
Beiträge: 12
Registriert: Fr 3. Dez 2021, 11:49

fettgedruckt

Beitrag von dennisr39 » Mi 22. Dez 2021, 19:03

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

F3K Total
Beiträge: 2410
Registriert: So 10. Apr 2011, 10:10

Re: fettgedruckt

Beitrag von F3K Total » Do 23. Dez 2021, 12:46

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.
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 ❤️

Antworten