![]() TheParEnum = theCell.GetText(). TheCell = Sheet.GetCellByPosition(pX, pY) Maybe someone can improve it) Sub replace_italico_sobrescrito_por_tag()ĭim theCell As Object, rText As String, textSlice As String, textItalic As Long, textSup As Integerĭim theParEnum As Object, theParElement As Objectĭim theSubEnum As Object, theSubElement As Objectĭim pX as integer, pY as integer, maxcol as integer, maxrow as integer My solution which replaces strings in italic and superscript to tags. Result of Find All when search value is '6'. All cells containing the digit '6' are highlighted. My test shows that this finds multiple occurrences of the space character and then replaces them with a single paragraph character. ![]() ![]() Select More Options and ensure the Regular expressions is checked. Click Find All to highlight all occurrences of the item. In the Find
0 Comments
Leave a Reply. |