[Writer] Compter les caractères sans les espaces

[Pascal Brognez]

Une macro qui compte les carctères sauf les espaces et compte les espaces d'un document entier.
Je compte le doc en entier et pas la sélection (ou zones de
sélection). Et si il y a des champs, comme les tables de matières et les
légendes, ou des cadres, la macro fonctionne.
La macro prend aussi les en têtes (et donc autant
d'en-têtes que de pages) mais pas les notes simples (les notes de bas de
page = un cadre spécial sont bien prises en compte).

Code : Tout sélectionner

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