Word) (Application.FeatureInstall 屬性

會傳回或設定 Microsoft Word 如何處理呼叫的方法和屬性尚未安裝的功能。 讀取/寫入 MsoFeatureInstall 。

語法

expression. FeatureInstall

需要 expression。 代表 Application 物件的變數。

註解

使用 msoFeatureInstallOnDemandWithUI 常數，以防止使用者相信應用程式在安裝功能時沒有回應。 如果您想要僅需一個可以安裝功能開發人員，使用 msoFeatureInstallNone 常數。

如果您有將 DisplayAlerts 屬性設定為 False ，即使 FeatureInstall 屬性設為 msoFeatureInstallOnDemand 安裝新功能不會提示使用者。 DisplayAlerts 屬性設為 True ，如果 FeatureInstall 屬性設為 msoFeatureInstallOnDemand 會顯示安裝進度百分比。

範例

本範例會啟動 Microsoft Excel 的新執行個體，並檢查 FeatureInstall 屬性的值。 如果屬性設定為 msoFeatureInstallNone 、 程式碼會顯示訊息方塊，詢問使用者是否要將屬性設定變更。 如果使用者會回應 「 是 」，屬性是設定為 msoFeatureInstallOnDemand 。

注意事項

[!注意事項] 若要讓此範例能正常運作，您必須在「Microsoft Excel 物件程式庫」中加入參照。

Dim ExcelApp As New Excel.Application 
Dim intReply As Integer 
 
With ExcelApp 
 If .FeatureInstall = msoFeatureInstallNone Then 
 intReply = MsgBox("Uninstalled features for " _ 
 & "this application may " & vbCrLf _ 
 & "cause a run-time error when called." _ 
 & vbCrLf & vbCrLf _ 
 & "Would you like to change this setting" & vbCrLf _ 
 & "to automatically install missing features?", _ 
 vbYesNo, "Feature Install Setting") 
 If intReply = vbYes Then 
 .FeatureInstall = msoFeatureInstallOnDemand 
 End If 
 End If 
End With

另請參閱

Application 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。