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+unsubscr...@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
