Método SmartDocument.PickSolution (Office)

Apresenta uma caixa de diálogo que permite ao utilizador escolher um pacote de expansão XML disponível para anexar ao documento ativo no Microsoft Word ou a um livro no Microsoft Excel.

Sintaxe

expressão. PickSolution (ConsiderarAllSchemas)

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 devolve um valor para indicar se o utilizador selecionou um pacote de expansão XML ou se 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, veja Smart Document Software Development Kit (SDK).

Exemplo

O exemplo seguinte verifica a propriedade SolutionID para determinar se o documento ativo do Microsoft Word já tem um pacote de expansão XML anexado. Caso contrário, apresenta uma caixa de diálogo que permite ao utilizador escolher 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.