Método SmartDocument.PickSolution (Office)

Exibe uma caixa de diálogo que permite que o usuário escolha um pacote de expansão XML disponível para anexar ao documento ativo no Microsoft Word ou a uma pasta de trabalho no Microsoft Excel.

Sintaxe

expressão. PickSolution (ConsidereAllSchemas)

Expressão Uma variável que representa um objeto SmartDocument .

Parâmetros

Comentários

Use o método PickSolution para permitir que o usuário selecione um pacote de expansão XML em uma lista. O esquema anexado ao documento ativo ou à pasta de trabalho determina quais pacotes de expansão para XML são aplicáveis.

O método PickSolution não retorna um valor para indicar se o usuário selecionou um pacote de expansão XML ou escolheu Cancelar na caixa de diálogo. Verifique a propriedade SolutionID depois de chamar PickSolution para determinar se um pacote de expansão XML tiver sido anexado.

Se o desenvolvedor do documento inteligente falhou especificar "targetApplication" no arquivo XML de expansão pack manifesto, a lista exibida pelo PickSolution pode incluir pacotes de expansão para XML que não são direcionados para o aplicativo ativo; Por exemplo, um usuário do Excel pode ver pacotes de expansão para XML destinados exclusivamente ao Word. Nesse caso, o usuário pode selecionar um pacote de expansão XML que não é apropriado para o aplicativo ativo.

Para obter mais informações sobre documentos inteligentes ou pacotes de expansão XML para documentos inteligentes, consulte o SDK (Smart Document Software Development Kit).

Exemplo

O exemplo a seguir verifica a propriedade SolutionID para determinar se o documento ativo do Microsoft Word já tem um pacote de expansão XML anexado; se não, ele exibe uma caixa de diálogo que permite que o usuário escolha um pacote de expansão XML disponível. Em seguida, ele exibe as propriedades do documento inteligente.

 Dim objSmartDoc As Office.SmartDocument 
 Dim strSmartDocInfo As String 
 Set objSmartDoc = ActiveDocument.SmartDocument 
 If objSmartDoc.SolutionID = "None" Or objSmartDoc.SolutionID = "" Then 
 objSmartDoc.PickSolution True 
 End If 
 If objSmartDoc.SolutionID > "None" And objSmartDoc.SolutionID > "" Then 
 strSmartDocInfo = "SolutionID: " & objSmartDoc.SolutionID & vbCrLf & _ 
 "SolutionURL: " & objSmartDoc.SolutionURL 
 MsgBox strSmartDocInfo, vbInformation + vbOKOnly, "Smart Doc Properties" 
 Else 
 MsgBox "The user clicked Cancel." 
 End If 
 Set objSmartDoc = Nothing 
 

Confira também

• Membros do objeto SmartDocument

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.