Re: [de-users] Re: Makro : Textstellen finden und formatieren

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.gruber@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+unsubscribe@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