George aimerait condenser uniquement l’espace entre les mots dans un texte qu’il sélectionne dans un document. Il peut changer la taille en points de chaque espace, un à la fois. Il peut également le faire en recherchant l’espace et en le remplaçant par un espace d’une taille de police plus petite. Cependant, il aimerait diminuer progressivement la taille des espaces. (Par exemple, 0,1 point à chaque étape.)

Il n’est pas possible de faire exactement ce que George veut car Word vous permet uniquement d’ajuster la taille de la police par incréments d’un demi-point, pas par incréments de dixième. Si la décrémentation d’un demi-point à la fois suffit, la meilleure approche consiste à utiliser une macro:

Sub StepSpaceFontSize()

Dim F As Double     Dim C As Long

For C = 1 To Len(Selection)

If Asc(Mid(Selection, C, 1)) = 32 Then             F = Selection.Range.Characters(C).Font.Size             If F > 5 Then                 Selection.Range.Characters(C).Font.Size = (F - 0.5)

End If         End If     Next C End Sub

La macro parcourt chaque caractère du texte sélectionné et, si le caractère est un espace, diminue la taille en points de cet espace uniquement. La macro applique une limite inférieure sur la taille de la police, car elle ne descendra qu’à 5 points.

_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 (13717) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365.