• Comment attacher un modèle à un document ?

  • PowerPoint et les fichiers MP3

  • Bonjour les Quickparts, adieu les Insertions Auto !

  • Mon clavier perso ou comment personnaliser son clavier

  • Accentuer les majuscules

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

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

  • Comment générer du faux texte ?

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

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

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

 
 

 

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

2856690
Aujourd'hui802
Hier1163
Cette semaine11736
Ce mois-ci7576
Depuis janvier 20042856690
Compteur d'affichages des articles
5528266

A lire de toute urgence...

Qui est en ligne ?

Nous avons 133 invités et aucun membre en ligne