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: [email protected]
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
