Je vroudrais pouvoir formatter (couleur, taille, police..) le texte sélectionné dans une cellule (pas tout le texte)
Actuellement par exemple si ma cellule contient "ABCD" et que je veux "exponentier" les lettres "BC", je sélectionne BC et clique sur un bouton qui applique la routine suivante (macro enregistrée)
Code : Tout sélectionner
Sub exposant
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SuperScript", "", 0, Array())
end Sub
Quelqu'un peut-il m'aider ?
Merci