顯示對話方塊，允許使用者選擇可用的 XML 擴充套件，以附加到 Microsoft Word 中的使用中文件或 Microsoft Excel 中的活頁簿。
語法
運算式。PickSolution (ConsiderAllSchemas)
運算式 代表 SmartDocument 物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| ConsiderAllSchemas | 選用 | Boolean | True 會顯示所有可用的 XML 擴充套件安裝在使用者電腦上。 僅限 XML 擴充套件適用於使用中文件會顯示 為 false 。 預設值為 False 。 |
註解
使用 PickSolution 方法可讓使用者從清單中選取 [XML 擴充套件。 結構描述附加至使用中文件或活頁簿會決定哪些 XML 擴充套件所適用。
PickSolution 方法不會傳回值來指出使用者是選取 XML 擴充套件，還是在對話方塊中選擇 [取消]。 檢查 SolutionID 屬性之後呼叫 PickSolution 來判斷是否已附加 XML 擴充套件。
如果智慧文件開發人員故障 XML 擴充套件資訊清單檔 PickSolution 所顯示的清單中指定"targetApplication"可能包含不目標對使用中的應用程式; 的 XML 擴充套件例如，Excel 使用者可能會看到以獨佔方式針對 Word XML 擴充套件。 在下列情況中，使用者可能會選取 [XML 擴充套件不是適當的使用中應用程式。
如需智慧型文件或智慧型文件的 XML 擴充套件的詳細資訊，請參閱 Smart Document Software Development Kit (SDK) 。
範例
下列範例會檢查 SolutionID 屬性，以判斷使用中的 Microsoft Word 文件是否已有附加的 XML 擴充套件;如果沒有，則會顯示一個對話方塊，讓使用者選擇可用的 XML 擴充套件。 然後會顯示智慧文件的屬性。
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
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。