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

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 <weselpesel@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+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