Rappelons que les normes de typographique françaises imposent, avant la double ponctuation, une espace fine (en typographie pure, espace d'un quart de cadratin.

L'espace fine existe bien dans Word. Vous pouvez l'insérer, par exemple, via les caractères spéciaux.

Le problème c'est que cette espace fine n'est pas insécable et, en conséquence, on ne l'utilise pas et on lui préfère l'espace normal insécable. Ne pas oublier que Word n'est qu'un traitement de texte et non un logiciel de PAO (Publication Assistée par Ordinateur).

Il existe pourtant une espace fine insécable qui est un caractère unicode et qui s'insère de deux façons différentes !

  • Alt + 8201
  • taper 2009 suivi de ALt+c

Dans un document qui contient des espaces insécables ordinaires, si l'on est puriste et si l'on tient à cette espace fine, on peut utiliser la fonction Recherche-Remplace afin de remplacer les espaces insécables par cette espace fine :

  • Rechercher : ^s
  • Remplacer par : saisir dans la zone Alt+8201

Le problème est qu'on ne voit pas ces espaces, en mode affichage des marques de format. Si cela est gênant, une solution est de remplacer les espaces insécables ordinaires par les mêmes mais avec une échelle réduite (50% par exemple).

Dans la boîte de dialogue Rechercher et Remplacer (raccourci : Ctrl+H) :

  • Rechercher : ^s
  • Remplacer par ^s
  • Cliquer sur le bouton Plus si la boîte de dialogue n'est pas ouverte dans sa totalité, cliquez sur le bouton Format, puis sur Police. Dans la boîte de dialogue Police, onglet Espacement, choisissez une échelle réduite.
  • Remplacer tout.

    Il est préférable de modifier l'échelle plutôt que de modifier la taille de la police, ainsi ce remplacement sera valable quelle que soit la taille de la police.

Afin d'éviter de recommencer systématiquement à chaque document, on peut créer une macro :

Sub espaces_fines()
With ActiveDocument.Content.Find
    .ClearFormatting
    With .Replacement
        .ClearFormatting
        .Font.Scaling = 50
    End With
    .Execute FindText:="^s", ReplaceWith:="^s", Format:=True, _
        Replace:=wdReplaceAll
End With
End Sub