Comment éxécuter une macro sur open office?

Bonjour,
j'ai trouvé sur le forum officiel de Open office une macro pour compter le nombre de caractères sans les espaces. Je n'ai jamais utilisé les macros et j'aimerais savoir comment ça marche : instinctivement, j'ai enregistré la macro, mais lorsque je clique sur éxécuter la macro, la commande s'affiche dans le document mais ne s'exécute pas, et je ne trouve pas comment l'éxécuter réellement.

La commande est la suivante:
Sub CompteCaract
Dim oTrouve_space As Object
Dim oTrouve_non_space As Object


oTrouve_space = ThisComponent.createSearchDescriptor
With oTrouve_space
.SearchString = " " ' ou un autre caractère de ton choix
.SearchWords = false
End With

oTrouve_non_space = ThisComponent.createSearchDescriptor
With oTrouve_non_space
.SearchString = "[^ ]" ' ou un autre caractère de ton choix
.SearchWords = false
.SearchRegularExpression=True
End With

MsgBox "Il y a " & ThisComponent.findAll(oTrouve_non_space).count & "
caractères sans compter les espaces et il y a " &
ThisComponent.findAll(oTrouve_space).count & " espaces"

End Sub


Comment l'exécuter ?

Merci d'avance.


PS: en fait, je me suis rendu compte que lorsque j'ai enregistré la macro, le seul truc qui a été enregistré a été mon ctrl+V lorsque j'ai collé la commande que j'avais copié sur le forum officiel. La macro est donc juste l'action de coller le contenu du presse-papiers. comment faire pour créer une macro qui exécuterait le contenu de la commande ?