How to get/read the selected string/text in a cell by macro

I want change by macro the format (color, font …) of the selected string in a cell.
I know read the string/text of the active cell ( sCellString = ThisComponent.CurrentSelection.String) but i don’t find how to get the selected string.
Is it possible ? Can you help me?
Thank a lot.