Partager via

Objet SearchScope (Office)

  • Article

Correspond à un type d’arborescence de dossiers dans laquelle vous pouvez effectuer des recherches.

Remarques

Chaque objet SearchScope contient un seul objet ScopeFolder qui correspond au dossier racine de l’étendue de recherche.

Utilisez la propriété Item de la collection SearchScopes pour renvoyer un objet SearchScope ; par exemple :

Dim ss As SearchScope 
Set ss = SearchScopes.Item(1)

En fin de compte, l’objet SearchScope est destiné à fournir l’accès aux objets ScopeFolder qui peuvent être ajoutés à la collection SearchFolders . Pour obtenir un exemple montrant comment cela s’effectue, consultez la rubrique relative à la collection SearchFolders .

Consultez la rubrique objet ScopeFolder pour voir un exemple simple de retour d’un objet ScopeFolder à partir d’un objet SearchScope .

Exemple

L’exemple suivant affiche tous les objets SearchScope actuellement disponibles.

Sub DisplayAvailableScopes() 
 
 'Declare a variable that references a 
 'SearchScope object. 
 Dim ss As SearchScope 
 
 'Loop through the SearchScopes collection. 
 For Each ss In SearchScopes 
 Select Case ss.Type 
 Case msoSearchInMyComputer 
 MsgBox "My Computer is an available search scope." 
 Case msoSearchInMyNetworkPlaces 
 MsgBox "My Network Places is an available search scope." 
 Case msoSearchInOutlook 
 MsgBox "Outlook is an available search scope." 
 Case msoSearchInCustom 
 MsgBox "A custom search scope is available." 
 Case Else 
 MsgBox "Can't determine search scope." 
 End Select 
 Next ss 
 
End Sub

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.