Is there a macro for Writer which can find italic text in a particular style? [closed]

edit

I'm not sure that I clearly understand your question

Sub RemoveItalic
Dim oSearch  As Variant ' Search Descriptor'
Dim oFound As Variant   ' All Results of findAll'
Dim SrchAttributes(0) As New com.sun.star.beans.PropertyValue
Dim oFRange As Variant  ' One range with CharPosture=ITALIC'
Dim i&
    oSearch = ThisComponent.createSearchDescriptor()
    oSearch.SearchString = ".*"           'Regular expression. Match any text'
    oSearch.SearchRegularExpression=True  'Use regular expressions'
REM This is the attribute to find
    SrchAttributes(0).Name = "CharPosture"
    SrchAttributes(0).Value =com.sun.star.awt.FontSlant.ITALIC
    oSearch.SetSearchAttributes(SrchAttributes())
    oFound = ThisComponent.findAll(oSearch) 
    If not IsNull(oFound) Then
    For i = 0 To oFound.getCount()-1
    oFRange = oFound.getByIndex(i)
    oFRange.CharStyleName = "eItal" ' For example - set for Italic chars style with name eItal...'
    Next i
    EndIf
End Sub