Hallo Stefan,
so müsste es gehen (siehe die Änderungen zwichen "'#>>" und "'<<#":
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)
'#>> Geändert:
'oTK.GotoEndOfParagraph(TRUE)
oSK.GotoRange(oTK, FALSE)
oSK.GotoEndOfLine(TRUE)
oTK.GotoRange(oSK, FALSE)
'<<#
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
Alternativ könntest du auch nach dem manuell eingefügten Zeilenumbruch
(= Chr(13)) suchen lassen.
Gruß
Andreas
------ Ursprüngliche Nachricht ------
Betreff: [de-users] Re: Makro : Textstellen finden und formatieren
Datum: Donnerstag, 08.05.2014, 10.04 Uhr
Von: Stefan Gruber <st.gru...@t-online.de>
An: users@de.libreoffice.org
A Dreier schrieb:
Sub pSuchenUndAendern
[...]
Schöne Lösung, siehe auch mein anderes Posting...
Hiermit wird der ganze Absatz, in dem die Suchkennung steht,
formatiert.
Gibt es hier die Möglichkeit, nur die betreffende Zeile (hier mit
manuellem Zeilenbruch versehen) auszuwählen?
Stefan
--
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
