Méthode SmartDocument.PickSolution (Office)
Affiche une boîte de dialogue qui permet à l’utilisateur de choisir un pack d’extension XML disponible à joindre au document actif dans Microsoft Word ou à un classeur dans Microsoft Excel.
Syntaxe
expression. PickSolution (ConsiderAllSchemas)
Expression Variable qui représente un objet SmartDocument .
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| ConsiderAllSchemas | Facultatif | Boolean | La valeur True affiche tous les kits d'extension XML disponibles installés sur l'ordinateur de l'utilisateur. La valeur False n'affiche que les kits d'extension XML applicables au document actif. Valeur par défaut est False. |
Remarques
Utilisez la méthode PickSolution pour permettre à l'utilisateur de sélectionner un kit d'extension XML dans une liste. Le schéma attaché au document ou au classeur actif détermine les kits d'extension XML applicables.
La méthode PickSolution ne retourne pas de valeur pour indiquer si l’utilisateur a sélectionné un pack d’extension XML ou choisi Annuler dans la boîte de dialogue. Vérifiez la propriété SolutionID après avoir appelé PickSolution pour déterminer si un kit d'extension XML a été attaché.
Si le développeur de documents intelligents n’a pas pu spécifier « targetApplication » dans le fichier manifeste du pack d’extension XML, la liste affichée par PickSolution peut inclure des packs d’extension XML qui ne sont pas ciblés sur l’application active. Par exemple, un utilisateur Excel peut voir des packs d’extension XML ciblant exclusivement Word. Dans ces circonstances, il peut sélectionner un kit d'extension XML qui n'est pas approprié pour l'application active.
Pour plus d’informations sur les documents intelligents ou les packs d’extension XML pour les documents intelligents, consultez le Kit de développement logiciel (SDK) Smart Document.
Exemple
L’exemple suivant vérifie la propriété SolutionID pour déterminer si le document Microsoft Word actif possède déjà un pack d’extension XML attaché ; Si ce n’est pas le cas, il affiche une boîte de dialogue qui permet à l’utilisateur de choisir un pack d’extension XML disponible. Il affiche ensuite les propriétés du document actif.
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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.