Derek a besoin d’un moyen de trouver, dans un document, la prochaine fois que la police (nom de la police) change. Par exemple, si le point d’insertion se trouve au milieu du document, il aimerait que Word lui fasse savoir, à partir de ce point, où se produit la prochaine modification. Derek se demande s’il existe un moyen d’accomplir une telle tâche.

Il n’existe aucun moyen intégré d’accomplir cette tâche, bien que vous puissiez savoir visuellement quand la police a changé. Je peux souvent le dire en augmentant simplement le facteur de zoom du document (par exemple, à 200% ou 250%), puis en numérisant visuellement le document pour rechercher des changements d’apparence. Bien entendu, cela dépendra de la disparité visuelle entre les deux polices adjacentes.

Si vous préférez une solution basée sur des macros, vous pouvez en créer une qui enregistre le nom de la police à l’emplacement du point d’insertion actuel, puis parcourt chaque caractère restant du document. Si la police diffère de celle d’origine, vous pouvez en informer l’utilisateur. Voici un exemple d’une telle macro:

Sub ChangeOfFont()

Dim fntName As String     Dim aRange As Range

Set aRange = Selection.Range     aRange.Collapse Direction:=wdCollapseStart     aRange.MoveEnd Unit:=wdCharacter     fntName = aRange.Font.Name     Do         aRange.MoveEnd Unit:=wdCharacter         aRange.MoveStart Unit:=wdCharacter     Loop Until aRange.Font.Name <> fntName Or _       aRange.Bookmarks.Exists("\EndOfDoc")

aRange.Select     If aRange.Bookmarks.Exists("\EndOfDoc") Then         MsgBox "End of document"

Else         MsgBox "Font change from " & fntName & " to " & aRange.Font.Name     End If End Sub

La majorité du travail est effectuée dans la boucle Do, où la police de chaque caractère est vérifiée pour voir si elle a changé. Notez que la boucle vérifie également si la fin du document est atteinte, à quel point vous souhaitez que la macro s’arrête.

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