OpenOffice.info

Verfasst: **Di, 11.12.2012 23:02**

Mal ne Frage?

Gibt es eine Möglichkeit nach formatierten Text (z.B. kursiv) zu suchen?

Ich habe folgende Abfrage:

oSuchen2 = oDoc.createSearchDescriptor
	With oSuchen2
		.SearchRegularExpression = True
		.SearchWords = True
		.setSearchString("file:///(.*)\.*")
		.setReplaceString("Importfehler !!! $1")
	end with
		oDoc.replaceAll(oSuchen2)

Es sollte aber nur nach den kursiven " ("file:///(.*)\.*") " gesucht und ersetzt werden!
Weiss das zufällig jemand???

Verfasst: **Mi, 12.12.2012 09:50**

Hab es selber gefunden !

Code: Alles auswählen

 
Function Kursivtext_maskieren
   MarkupTextFunc("CharPosture", com.sun.star.awt.FontSlant.ITALIC, "Importfehler:file:///$1")
End Function
   
Function MarkupTextFunc(SearchAttrName, SearchAttrValue, ReplaceStr)

   Dim oDoc as Object, oReplaceObj as Object
   Dim SearchAttributes(0) As New com.sun.star.beans.PropertyValue
   oDoc = ThisComponent
   SearchAttributes(0).Name = SearchAttrName
   SearchAttributes(0).Value = SearchAttrValue
   oReplaceObj = oDoc.createReplaceDescriptor
   oReplaceObj.SearchRegularExpression = true
   oReplaceObj.searchStyles = false
   oReplaceObj.searchAll = true
   oReplaceObj.SetSearchAttributes(SearchAttributes)
   oReplaceObj.SearchString = "file:///(.*)"
   oReplaceObj.ReplaceString = ReplaceStr
   oDoc.replaceAll(oReplaceObj)
End Function

OpenOffice.info

Suche und Ersetzen nach formatierten Text

Suche und Ersetzen nach formatierten Text

Re: Suche und Ersetzen nach formatierten Text