Hallo Klaus,
hier eine Lösung für deine Frage:
Sub pSuchenUndAendern
Dim oDok As Object, oSK As Object, oTK As Object, oSuche As Object,
oFund As Object
Dim i As Integer
Const sSuche = "#"
oDok = ThisComponent
oSK = oDok.CurrentController.ViewCursor
oTK = oSK.Text.CreateTextCursorByRange(oSK)
oSuche = oDok.CreateSearchDescriptor()
oSuche.SearchString = sSuche
oFund = oDok.FindFirst(oSuche)
While Not IsNull(oFund)
oTK.GotoRange(oFund, FALSE)
oTK.GotoStartOfParagraph(FALSE)
oTK.GotoEndOfParagraph(TRUE)
i = oTK.Start.CharHeight
oTK.CharHeight = i + 2
oTK.CharWeight = com.sun.star.awt.FontWeight.BOLD '/ .NORMAL
oFund = oDok.FindNext(oTK.End, oSuche)
Wend
End Sub
Gruß
Andreas
------ Ursprüngliche Nachricht ------
Betreff: [de-users] Makro : Textstellen finden und formatieren
Datum: Sonntag, 04.05.2014, 08.22 Uhr
Von: klaus garen <weselpe...@gmx.de>
An: users@de.libreoffice.org
Hallo,
ich habe schon mal Makros für OO geschrieben, bin aber etwas eingerostet
...
Nun brauche ich etwas Starthilfe.
Ich möchte ein Makro schreiben, dass in einem Writer-Dokument, die mit
'#' markierten Textstellen erkennt, den Text fett macht und die
Schriftgröße um 2 erhöht.
Mein Problem ist : Wie finde ich Textstellen in einem Text?
Ich möchte das nicht mit Textmarken lösen! (Das ist für den, der den
Text schreibt zu umständlich.)
http://www.dannenhoefer.de/faqstarbasic/WiekannichaneineTextmarkespringenundText.html#Zweig250
Vielen Dank für alle Tipps!
lg
Klaus
--
Liste abmelden mit E-Mail an: users+unsubscr...@de.libreoffice.org
Probleme?
http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert
