Clase Research - servicio de búsqueda (Word VBA)
Proporciona acceso a la característica del servicio de búsqueda de Microsoft Word. Para usar una variable de clase Research, primero debe ser instanciado, por ejemplo
Dim rsr as Research
Set rsr = ActiveDocument.Research
FavoriteService
Devuelve o establece un valor de tipo String que especifica el servicio de referencia favorito.
El valor String que se establece o devuelve para esta propiedad especifica el GUID del servicio de referencia favorito. Establecer esta propiedad tiene el mismo efecto que elegir un servicio de referencia favorito a través del cuadro de diálogo Opciones de referencia 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
Este método indica si el identificador global único (GUID) especificado en el parámetro ServiceID se corresponde con un servicio configurado actualmente.
IsResearchService (ServiceID)
ServiceID: Especifica un GUID que identifica el servicio de referencia.
Dim strServiceID As String: strServiceID =
Dim booIsResearchService As Boolean
booIsResearchService = ActiveDocument.Research.IsResearchService(ServiceID:=strServiceID)
Query
Este método especifica una consulta de referencia.
Query (ServiceID, QueryString, QueryLanguage, UseSelection, LaunchQuery)
Dim strServiceID As String: strServiceID =
Dim varQuery As Variant
varQuery = ActiveDocument.Research.Query(ServiceID:=strServiceID)
Arguments
Un argumento con nombre
ServiceID (String) - Especifica un GUID que identifica el servicio de referencia.
Optional arguments
Los siguientes argumentos son opcionales
QueryString (String) - Especifica la cadena de consulta.
QueryLanguage (WdLanguageID) - Especifica el lenguaje de consulta de la cadena de consulta.
Aquí puede ver valores posibles para
UseSelection (Boolean) - True para utilizar la selección actual como la cadena de consulta.
LaunchQuery (Boolean) - True inicia la consulta.
SetLanguagePair
Este método establece los idiomas para el servicio de traducción.
SetLanguagePair (LanguageFrom, LanguageTo)
ActiveDocument.Research.SetLanguagePair LanguageFrom:=wdAfrikaans, LanguageTo:=wdAfrikaans
Arguments
Estos son los argumentos con nombre :
LanguageFrom (WdLanguageID) - Especifica el idioma desde el que se traduce.
Aquí puede ver valores posibles para
LanguageTo (WdLanguageID) - Especifica el idioma al que se va a traducir.
Aquí puede ver valores posibles para