Danke erstmal, aber
http://api.openoffice.org/docs/common/ref/com/sun/star/util/SearchDescriptor.html
hatte ich mir angesehen, und da gibt es keine Option um nach Formaten zu
suchen.
Ich habe mir den SearchDescriptor mal mit XRay angesehen, da gibt es ein
Struct Attributes, das wahrscheinlich den Optionen 'searchAttributes' im
Suchen&Ersetzen Dialog entspricht. Nur leider finde ich dazu wieder keine
Dokumentation, einzig auf einer chinesischen Seite das Beispiel
Dim Doc As Object
Dim Repl As Object
Doc = thisComponent
Repl = Doc.createReplaceDescriptor
Repl.SearchString = "Search"
Repl.ReplaceString = "Replace"
Repl.SearchRegularExpression = True
Dim sa(0) As New com.sun.star.beans.PropertyValue
sa(0).Name = "CharWeight"
sa(0).Value = com.sun.star.awt.FontWeight.BOLD
Dim ra(0) As New com.sun.star.beans.PropertyValue
ra(0).Name = "CharUnderline"
ra(0).Value = com.sun.star.awt.FontUnderline.SINGLE
Repl.SearchAttributes=sa()
Repl.ReplaceAttributes=ra()
Doc.replaceAll(Repl)
Also ausprobieren wie die anderen Optionen für dieses PropertrySet heißen
könnten?
Verena
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
