Espacement cohérent (Microsoft Word)
Il existe une règle non écrite dans la composition selon laquelle il ne doit y avoir qu’un espace après la fin d’une phrase. Cela offre la meilleure apparence visuelle sur une page imprimée, en particulier lors de l’utilisation de polices proportionnelles. Le problème est qu’il est facile d’ajouter des espaces supplémentaires à la fin d’une phrase sans même s’en rendre compte. La macro suivante, CheckSpaces, est un outil que vous pouvez utiliser pour vérifier la fin de vos phrases:
Sub CheckSpaces() Call MakeChanges("Normal", ".") Call MakeChanges("Normal", "!") Call MakeChanges("Normal", ":") End Sub
Sub MakeChanges(StyName As String, PuncMark As String) Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Style = ActiveDocument.Styles(StyName) Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = PuncMark & " " .Replacement.Text = PuncMark & " " .Forward = True .Wrap = wdFindContinue .Format = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Text = PuncMark & " " Selection.Find.Execute Replace:=wdReplaceAll End Sub
CheckSpaces ne prendra que des espaces supplémentaires sur les paragraphes formatés avec le style Normal. Cela garantit que vous ne gâcherez pas le formatage des tableaux ou d’autres éléments de conception où vous voudrez peut-être des espaces supplémentaires après les points. Si vous souhaitez modifier le type de ponctuation recherché ou rechercher dans des paragraphes de style différents, ajoutez des appels supplémentaires à MakeChanges après la quatrième ligne de la macro.
_Note: _
Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.
lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur]
.
WordTips est votre source pour une formation Microsoft Word rentable.
(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (262) s’applique à Microsoft Word 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban de Word (Word 2007 et plus tard) ici:
link: / wordribbon-Consistent_Spacing [Espacement cohérent]
.