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

hallo,

so klappt es !


die stellen, die formatiert werden sollen beginnen mit einem '<' und
enden mit einem leerzeichen!

lg
jochen

code:

Option Explicit
public const VON as string = "<"
public const BIS as string = " "

Sub formatiereMyTextstellen
GlobalScope.BasicLibraries.LoadLibrary("Tools")
    dim oDoc as object 'xDocument
    dim osdStart as object 'xSearchDescriptor
    dim otrStart as object 'xTextRange
    dim osdEnd as object 'xSearchDescriptor
    dim otrEnd as object 'xTextRange
    dim i as integer
    dim otxt as String
       
    oDoc = thisComponent
   

    osdStart = oDoc.createSearchDescriptor()
    osdStart.setSearchString(VON)
    otrStart = oDoc.findFirst(osdStart)
    if IsNull(otrStart) then exit sub 'stop wenn kein ergebnis

    osdEnd = oDoc.createSearchDescriptor()   
    osdEnd.setSearchString(BIS)
    otrEnd = oDoc.findFirst(osdEnd)
    if IsNull(otrEnd) then exit sub 'stop, wenn kein

    otrStart.gotoRange(oDoc.findnext(otrStart.End, osdEnd).End,true)
    i = otrStart.Start.CharHeight
    otrStart.CharHeight = i + 4
    otrStart.CharWeight = com.sun.star.awt.FontWeight.BOLD
       otrStart.CharPosture= com.sun.star.awt.FontSlant.NONE
    otxt = otrStart.getString()
    otrStart.setString(DeleteStr(otxt,VON))
   
    do until isNull(otrStart)
        otrStart=oDoc.findNext(otrStart.End,osdStart)
        if IsNull(otrStart) then exit sub 'stop wenn kein ergebnis
        otrStart.gotoRange(oDoc.findnext(otrStart.End, osdEnd).End,true)
   
        otrStart.CharHeight = i + 4
        otrStart.CharWeight = com.sun.star.awt.FontWeight.BOLD
        otrStart.CharPosture= com.sun.star.awt.FontSlant.NONE
        otxt = otrStart.getString()
        otrStart.setString(DeleteStr(otxt,VON))
        'msgbox otrStart.getString()
    loop

End Sub

-- 
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