Classe Research (Word VBA)

Fournit l'accès à la fonctionnalité de service de recherche de Microsoft Word.

Set

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

Dim rsr as Research
Set rsr = ActiveDocument.Research

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

FavoriteService

Cette propriété renvoie ou définit une chaîne qui spécifie le service de recherche favori.

La valeur de type String qui est définie ou renvoyée pour cette propriété spécifie le GUID du service de recherche favori. Définir cette propriété équivaut à choisir un service de recherche favori dans la boîte de dialogue Options de recherche de Word.

Dim objResearch As Research 
 
Sub MyFunction() 
 
Set objResearch = Research 
 
'Set the favorite service 
objResearch.FavoriteService = "FEF89077-4F4D-4803-A8BF-228083F70EAA" 
 
End Sub

IsResearchService

Indique si le GUID spécifié dans le paramètre ServiceID correspond à un service actuellement configuré.

Syntaxe : expression.IsResearchService (ServiceID)

ServiceID: Spécifie un GUID qui identifie le service de recherche.

Dim strServiceID As String: strServiceID =  
Dim booIsResearchService As Boolean
booIsResearchService = ActiveDocument.Research.IsResearchService(ServiceID:=strServiceID)

Parent

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

Dim objParent As Object
Set objParent = ActiveDocument.Research.Parent

Query

Spécifie une requête de recherche.

Syntaxe : expression.Query (ServiceID, QueryString, QueryLanguage, UseSelection, LaunchQuery)

Dim strServiceID As String: strServiceID =  
Dim varQuery As Variant
varQuery = ActiveDocument.Research.Query(ServiceID:=strServiceID)

Arguments

Un argument nommé

ServiceID (String) - Spécifie un GUID qui identifie le service de recherche.

Les arguments suivants sont facultatifs

QueryString (String) - Spécifie la chaîne de requête.

QueryLanguage (WdLanguageID) - Spécifie la langue de requête pour la chaîne de requête.

Ici on trouve valeurs possible pour WdLanguageID.

UseSelection (Boolean) - True pour utiliser la sélection actuelle comme chaîne de requête.

LaunchQuery (Boolean) - True lance la requête.

SetLanguagePair

Définit les langues pour le service de traduction.

Syntaxe : expression.SetLanguagePair (LanguageFrom, LanguageTo)

ActiveDocument.Research.SetLanguagePair LanguageFrom:=wdAfrikaans, LanguageTo:=wdAfrikaans

Arguments

Les arguments nommés :

LanguageFrom (WdLanguageID) - Spécifie la langue source.

Ici on trouve valeurs possible pour WdLanguageID.

LanguageTo (WdLanguageID) - Spécifie la langue de traduction.

Ici on trouve valeurs possible pour WdLanguageID.