共用方式為


Word) (Language.ActiveSpellingDictionary 屬性

會傳回代表指定語言之使用中拼字檢查字典的 Dictionary 物件。

語法

expressionActiveSpellingDictionary

表達 會傳回 'Language' 物件的運算式。

註解

如果沒有安裝指定語言的拼字檢查字典,這個屬性會傳回 Nothing

範例

本範例會傳回使用中拼字檢查字典的檔案路徑及檔案名稱。

Dim lngLanguage As Long 
Dim dicSpelling As Dictionary 
 
lngLanguage = Selection.LanguageID 
Set dicSpelling = Languages(lngLanguage).ActiveSpellingDictionary 
If dicSpelling Is Nothing Then 
 MsgBox "No spelling dictionary installed!" 
Else 
 MsgBox dicSpelling.Path & Application.PathSeparator _ 
 & dicSpelling.Name 
End If 

另請參閱

Language 物件

支援和意見反應

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