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

Hallo,

mit Hilfe von :
http://www.wollmux.net/wiki/images/f/f9/Makro_Kochbuch.pdf (seite 176)


ich finde nun prinzipiell die Textstelle.

Code s.u.

Ich verstehe aber findnext(xtextrange).End nicht

Was soll dieses ".End" bedeuten?

Danke für jeden Tipp!

lG
Klaus




REM  *****  BASIC  *****

Option Explicit
public const VON as string = "*"
public const BIS as string = "~"

Sub formatiereMyTextstellen
        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
                
        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)
        msgbox otrStart.getString()

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