• Comment générer du faux texte ?

  • PowerPoint et les fichiers MP3

  • A quoi sert l'ancre qui s'affiche quelquefois dans la marge gauche ?

  • Comment attacher un modèle à un document ?

  • Comment insérer une image en fond de page?

  • Comment créer un bouton qui envoie le fichier en cours ?

  • Comment faire pour qu'une macro démarre toute seule ?

  • Mon clavier perso ou comment personnaliser son clavier

  • Bonjour les Quickparts, adieu les Insertions Auto !

  • L'espace fine existe-t-elle dans Word ?

  • Accentuer les majuscules

 
 

L'espace fine existe-t-elle dans Word ?

Note utilisateur:  / 0
MauvaisTrès bien 

 

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

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 qu'il n'y a pas d'espace fine insécable dans Word 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 PAOPublication Assistée par Ordinateur.

Si l'on est puriste et si l'on tient à cette espace fine, on peut, une fois le document saisi, utiliser un Recherche-Remplace afin de remplacer les espaces insécables 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


 

Nouveau sondage !

Les forums - Outlook ?

 
 
 

Statistiques

2891994
Aujourd'hui96
Hier2266
Cette semaine6653
Ce mois-ci42880
Depuis janvier 20042891994
Compteur d'affichages des articles
5601484

A lire de toute urgence...

Qui est en ligne ?

Nous avons 44 invités et aucun membre en ligne