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
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| ConsiderarAllSchemas | Opcional | Boolean | True exibe todos os pacotes de expansão para XML disponíveis instalados no computador do usuário. False exibe apenas pacotes de expansão para XML aplicáveis ao documento ativo. Valor padrão é False. |
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
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.