Classe Browser (Word VBA)

La classe Browser représente l'explorateur utilisé pour déplacer le point d'insertion vers des objets dans un document.

Set

Pour utiliser une variable de classe Browser, elle doit d'abord être instanciée, par exemple

Dim brw as Browser
Set brw = Application.Browser

Les variables du type Browser peuvent être définies à l'aide de la procédure Application.Browser

Next

Déplace la sélection vers l'élément suivant indiqué par la cible de l'Explorateur.

With Application.Browser 
 .Target = wdBrowseComment 
 .Next 
End With

Parent

Renvoie un Object qui représente l'objet parent de l'objet Browser spécifié.

Dim objParent As Object
Set objParent = Application.Browser.Parent

Previous

Déplace la sélection vers l'élément précédent indiqué par la cible de l'Explorateur.

With Application.Browser 
 .Target = wdBrowseTable 
 .Previous 
End With

Target

Cette propriété renvoie ou définit l'élément de document à localiser les méthodes précédent et suivant.

Valeurs possibles sont wdBrowseComment - Place le point d'insertion avant le commentaire suivant ou précédent, wdBrowseEdit - Place le point d'insertion avant la modification suivante ou précédente, wdBrowseEndnote - Place le point d'insertion avant la note de fin suivante ou précédente, wdBrowseField - Place le point d'insertion avant le champ d'exploration suivant ou précédent, wdBrowseFind - Place le point d'insertion avant la recherche/exploration suivante ou précédente, wdBrowseFootnote - Place le point d'insertion avant la note de bas de page suivante ou précédente, wdBrowseGoTo - Place le point d'insertion avant l'élément GoTo suivant ou précédent, wdBrowseGraphic - Place le point d'insertion avant le graphique suivant ou précédent, wdBrowseHeading - Place le point d'insertion avant le titre suivant ou précédent, wdBrowsePage - Place le point d'insertion avant la page suivante ou précédente, wdBrowseSection - Place le point d'insertion avant la section suivante ou précédente, wdBrowseTable - Place le point d'insertion avant le tableau suivant ou précédent.
With Application.Browser 
 .Target = wdBrowseComment 
 .Next 
End With