En supposant que le point d’insertion se trouve dans un signet, John se demande comment il peut utiliser VBA pour découvrir le nom de ce signet et pour sélectionner tout le texte dans le signet.

Il y a quelques astuces à garder à l’esprit lorsque vous travaillez avec des signets. Premièrement, il est préférable de ne pas supposer que le point d’insertion se trouve dans un signet. Au lieu de cela, vous pouvez vérifier s’il se trouve dans un signet en utilisant le code suivant:

BkMkCount = Selection.Bookmarks.Count

Une fois exécuté, BkMkCount contiendra une valeur indiquant le nombre de signets. Si vous n’attendez qu’un seul signet, vous pouvez vérifier que la variable est égale à 1 avant de poursuivre votre code.

Si vous voulez trouver le nom du signet, vous pouvez utiliser ce qui suit:

BkMkName = Selection.Bookmarks(1).Name

Si vous souhaitez ensuite sélectionner tout le texte du signet, utilisez ce qui suit:

Selection.Bookmarks(1).Select

Pour rassembler tous ces concepts, vous pouvez utiliser une structure telle que la suivante:

BkMkCount = Selection.Bookmarks.Count If BkMkCount = 1 Then     With Selection.Bookmarks(1)

BkMkName =.Name         .Select     End With End If

_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 (6557) 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-Getting_Bookmark_Information_in_VBA [Obtenir des informations sur les signets dans VBA].