Verwalten der Optionen auf der Registerkarte „Rechtschreibung“ von Excel mithilfe von Skripts
VBScript-Beispielskripte, die veranschaulichen, wie die Optionen auf der Registerkarte Rechtschreibung von Microsoft Excel 2003 abgerufen und konfiguriert werden können.
|
Zuordnen des Dialogfelds zum Excel-Objektmodell
Die Optionen, auf die in den folgenden Skripts verwiesen wird, entsprechen den Optionen auf der Registerkarte Rechtschreibung des Dialogfeldes Optionen. Klicken Sie in Microsoft Excel 2003 im Menü Extras auf Optionen und dann auf die Registerkarte Rechtschreibung, wenn Sie auf diese Optionen zugreifen möchten. Die folgende Abbildung enthält die Zuordnung zwischen den in diesem Dialogfeld verfügbaren Optionen und dem Objektmodell von Microsoft Excel.
Die Skripts auf dieser Seite wurden mit Microsoft Excel 2003 getestet. Ein Teil der Funktionalität funktioniert wahrscheinlich auch mit anderen Versionen von Microsoft Excel, die Visual Basic for Applications (VBA) unterstützen. Die Skripts wurden jedoch nicht mit den anderen Funktionen getestet.
Beispielcode für das Abrufen von Werten
Beispielskript, das die Konfigurationsinformationen der Registerkarte Rechtschreibung im Dialogfeld Optionen von Microsoft Excel 2003 abruft.
Set objExcel = CreateObject("Excel.Application")
Wscript.Echo "Dictionary language: " & objExcel.SpellingOptions.DictLang
Wscript.Echo "Add words to:: " & objExcel.SpellingOptions.UserDict
Wscript.Echo "Suggest from main dictionary only: " & _
objExcel.SpellingOptions.SuggestMainOnly
Wscript.Echo "Ignore words in uppercase: " & _
objExcel.SpellingOptions.IgnoreCaps
Wscript.Echo "Ignore words with numbers: " & _
objExcel.SpellingOptions.IgnoreMixedDigits
Wscript.Echo "Ignore Internet and file addresses: " & _
objExcel.SpellingOptions.IgnoreFileNames
Wscript.Echo "German: Use post-reform rules: " & _
objExcel.SpellingOptions.GermanPostReform
Wscript.Echo "Korean: Combine aux verb/adjectives: " & _
objExcel.SpellingOptions.KoreanCombineAux
Wscript.Echo "Korean: Search misused word list: " & _
objExcel.SpellingOptions.KoreanUseAutoChangeList
Wscript.Echo "Korean: Process compound nouns: " & _
objExcel.SpellingOptions.KoreanProcessCompound
Wscript.Echo "Hebrew modes: " & objExcel.SpellingOptions.HebrewModes
Wscript.Echo "Arabic modes: " & objExcel.SpellingOptions.ArabicModes
objExcel.Quit
Beispielcode für das Ändern von Werten
Beispielskript, das Excel so konfiguriert, dass für Rechtschreibkorrekturen nur Wörter aus dem Hauptwörterbuch vorgeschlagen werden.
Set objExcel = CreateObject("Excel.Application")
objExcel.SpellingOptions.SuggestMainOnly = TRUE
objExcel.Quit
Die Beispielskripts werden von keinem Microsoft-Supportprogramm oder Supportdienst unterstützt. Sie stehen Ihnen so, wie sie sind, zur Verfügung – ohne jegliche Garantie und Gewährleistung. Microsoft schließt weiterhin jegliche Gewährleistung für Mängel oder die Funktion der Skripts aus. Das gesamte Risiko der Verwendung der Skripts und der Dokumentation liegt bei Ihnen. Microsoft, seine Autoren oder jede andere Person, die mit der Erstellung, Produktion oder Bereitstellung der Skripts zu tun hat, sind für Schäden egal welcher Art (inklusive, jedoch nicht ausschließlich, Schäden durch entgangene Einnahmen, Störungen des Geschäftsbetriebs, Verlust geschäftlicher Informationen oder Vermögensschäden), die aus der Nutzung oder nicht möglichen Nutzung der Beispielskripts oder der Dokumentation entstehen, nicht verantwortlich – und zwar auch dann nicht, wenn Microsoft die Möglichkeit solcher Schäden bekannt war.