共用方式為

SmartDocument.PickSolution 方法 (Office)

顯示一個對話框，讓使用者選擇可用的 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 支援與意見反應。

  • Last updated on