共用方式為

(Office) 的 SmartDocument.PickSolution 方法

  • 發行項

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