I created a Writer document and then set some text to have a CharEscapement of
25 (this means that I set it to be superscript). I then ran the following code
to verify that the CharEscapement is indeed 25. I verified this in version 1.1.1
and 1.1.2.


Sub blech
dim mainEnum, para, paraEnum, inpara
  Dim mainDoc
   mainDoc = ThisComponent
   mainEnum = mainDoc.Text.createEnumeration
   
   While mainEnum.hasMoreElements
      para = mainEnum.nextElement
      If para.supportsService("com.sun.star.text.Paragraph") Then
         paraEnum = para.createEnumeration
         While paraEnum.hasMoreElements
            inpara = paraEnum.nextElement
            if inpara.CharEscapement=25 then
            inpara.String="<#>" & inpara.string & "<$>"
            end if
         Wend
      End If
   Wend 
End Sub

I am able to search for the super script text from the GUI, but I am not able to
search for the text from Basic. Note that I can find a CharEscapement of 0, but
not 25.

Sub ReplaceFormatting()
  Dim oDocument As Object
  Dim oReplace As Object
  Dim SrchAttributes(0) as new com.sun.star.beans.PropertyValue
  Dim ReplAttributes(0) as new com.sun.star.beans.PropertyValue

  oDocument = ThisComponent
  oReplace = oDocument.createReplaceDescriptor
   
  oReplace.SearchString = ".*"           'Regular expression. Match any text
  oReplace.ReplaceString = "<#>&<$>"     'Note the & places the found text back
  oReplace.SearchRegularExpression=True  'Use regular expressions
  oReplace.searchStyles=True             'We want to search styles
  oReplace.searchAll=True                'Do the entire document

  REM This is the attribute to find
  SrchAttributes(0).Name = "CharEscapement"
  SrchAttributes(0).Value = 25

  REM This is the attribute to replace it with
  ReplAttributes(0).Name = "CharEscapement"
  ReplAttributes(0).Value = 0

  REM Set the attributes in the replace descriptor
  oReplace.SetSearchAttributes(SrchAttributes())
  'oReplace.SetReplaceAttributes(ReplAttributes())

  REM Now do the work!
  oDocument.replaceAll(oReplace)
End Sub