Date: prev next · Thread: first prev next last
2014 Archives by date, by thread · List index


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

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.