VBScript-Beispielskripts, mit denen veranschaulicht wird, wie die Optionen auf der Registerkarte Ansicht von Microsoft Word 2003 abgerufen und konfiguriert werden können.
Die Optionen, auf die in den folgenden Skripts verwiesen wird, entsprechen den Optionen auf der Registerkarte Ansicht des Dialogfeldes Optionen. Klicken Sie in Microsoft Word 2003 im Menü Extras auf Optionen und dann auf die Registerkarte Ansicht, 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 Word.

Die Skripts auf dieser Seite wurden mit Microsoft Word 2003 getestet. Ein Teil der Funktionen kann wahrscheinlich auch in Verbindung mit anderen Versionen von Microsoft Word eingesetzt werden, die Visual Basic for Applications (VBA) unterstützen. Die Skripts wurden jedoch nicht mit irgendwelchen anderen Versionen getestet.
Beispielskript, mit dem die Konfigurationsinformationen der Registerkarte Ansicht im Dialogfeld Optionen von Microsoft Word 2003 abgerufen werden.
On Error Resume Next
Set objWord = CreateObject("Word.Application")
Set objOptions = objWord.Options
Set objDoc = objWord.Documents.Add()
Set objWindow = objWord.ActiveDocument.ActiveWindow
Set objView = objWord.ActiveDocument.ActiveWindow.View
Set objComments = objDoc.Comments
Wscript.Echo "Startup Task Pane: " & objWord.ShowStartupDialog
Wscript.Echo "Status bar: " & objWord.DisplayStatusBar
Wscript.Echo "Windows in Taskbar: " & _
objWord.ShowWindowsInTaskbar
Wscript.Echo "Highlight: " & objView.ShowHighlight
Wscript.Echo "Bookmarks: " & objView.ShowBookmarks
Wscript.Echo "Tab characters: " & objView.ShowTabs
Wscript.Echo "Spaces: " & objView.ShowSpaces
Wscript.Echo "Paragraph marks: " & objView.ShowParagraphs
Wscript.Echo "Drawings: " & objView.ShowDrawings
Wscript.Echo "Object anchors: " & objView.ShowObjectAnchors
Wscript.Echo "Text boundaries: " & objView.ShowTextBoundaries
Wscript.Echo "Wrap to window: " & objView.WrapToWindow
Wscript.Echo "Animated text: " & objView.ShowAnimation
Wscript.Echo "Smart tags: " & objView.DisplaySmartTags
Wscript.Echo "Picture placeholders: " & _
objView.ShowPicturePlaceholders
Wscript.Echo "All: " & objView.ShowAll
Wscript.Echo "Field codes: " & objView.ShowFieldCodes
Wscript.Echo "Hidden text: " & objView.ShowHiddenText
Wscript.Echo "Optional hyphens: " & objView.ShowHyphens
Wscript.Echo "Background colors and images: " & _
objView.DisplayBackgrounds
Wscript.Echo "Field shading: " & objView.FieldShading
For Each strComment in objComments
Wscript.Echo "Screen tips: " & strComment.ShowTip
Next
Wscript.Echo "Horizontal scroll bar: " & _
objWindow.DisplayHorizontalScrollBar
Wscript.Echo "Vertical scroll bar: " & _
objWindow.DisplayVerticalScrollBar
Wscript.Echo "Vertical ruler: " & _
objWindow.DisplayVerticalRuler
objWord.Quit
Beispielskript, mit dem die Option Startaufgabenbereich in Microsoft Word auf "TRUE" (WAHR) festgelegt wird.
On Error Resume Next
Set objWord = CreateObject("Word.Application")
objWord.ShowStartupDialog = TRUE
objWord.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.