OpenOffice.info

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

Code: Alles auswählen

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