Classe Research - serviço de pesquisa (Word VBA)

Oferece acesso ao recurso de serviço de pesquisa do Microsoft Word. Para usar uma variável de classe Research, ela primeiro precisa ser instanciada por exemplo

Dim rsr as Research
Set rsr = ActiveDocument.Research

FavoriteService

Retorna ou define um String que especifica o serviço de pesquisa favorito.

A String que é definida ou retornada para esta propriedade especifica a GUID do serviço de pesquisa favorito. A definição dessa propriedade tem o mesmo efeito que escolher um serviço de pesquisa favorito através da caixa de diálogo opções de pesquisa no Word.

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

IsResearchService

Indica se o GUID especificado no parâmetro ServiceID corresponde a um serviço atualmente configurado.

IsResearchService (ServiceID)

ServiceID: Especifica o GUID que identifica o serviço de pesquisa.

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

Query

Especifica uma consulta de pesquisa.

Query (ServiceID, QueryString, QueryLanguage, UseSelection, LaunchQuery)

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

Arguments

O seguinte argumento é necessário

ServiceID (String) - Especifica o GUID que identifica o serviço de pesquisa.

Optional arguments

Os seguintes argumentos são opcionais

QueryString (String) - Especifica a sequência de caracteres da consulta.

QueryLanguage (WdLanguageID) - Especifica o idioma de consulta da sequência de caracteres da consulta.

Aqui você pode encontrar os valores possíveis para WdLanguageID

UseSelection (Boolean) - True para usar a seleção atual como a cadeia de caracteres de consulta. Isso substitui o parâmetro QueryString, se definida. Valor padrão é False.

LaunchQuery (Boolean) - True para iniciar a consulta. False exibe o painel de tarefas Pesquisar com escopo para pesquisar o serviço de pesquisa especificado.

SetLanguagePair

Define os idiomas do serviço de tradução.

SetLanguagePair (LanguageFrom, LanguageTo)

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

Arguments

O seguinte argumento é opcional

LanguageFrom (WdLanguageID) - Especifica o idioma de origem.

Aqui você pode encontrar os valores possíveis para WdLanguageID

LanguageTo (WdLanguageID) - Especifica o idioma a ser traduzido.

Aqui você pode encontrar os valores possíveis para WdLanguageID