Language.ActiveThesaurusDictionary-Eigenschaft (Word)

Gibt ein Dictionary-Objekt zurück, das das aktive Thesauruswörterbuch für die angegebene Sprache darstellt.

Syntax

Ausdruck. ActiveThesaurusDictionary

Ausdruck Ein Ausdruck, der ein Language-Objekt zurückgibt.

HinwBemerkungeneise

Wenn für die angegebene Sprache kein Thesauruswörterbuch installiert ist, gibt diese Eigenschaft Nothing zurück.

Beispiel

In diesem Beispiel werden der vollständige Pfad- und Dateiname des aktiven Thesauruswörterbuchs zurückgegeben.

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

Siehe auch

Language-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.