Verwalten der Optionen unter "Speicherort für Dateien" von Word mithilfe von Skripts
VBScript-Beispielskripts, mit denen veranschaulicht wird, wie die Optionen auf der Registerkarte Speicherort für Dateien von Microsoft Word 2003 abgerufen und konfiguriert werden können.
|
Zuordnen des Dialogfeldes zum Word-Objektmodell
Die Optionen, auf die in den folgenden Skripts verwiesen wird, entsprechen den Optionen auf der Registerkarte Speicherort für Dateien des Dialogfeldes Optionen. Klicken Sie in Microsoft Word 2003 im Menü Extras auf Optionen und dann auf die Registerkarte Speicherort für Dateien, 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.
Beispielcode für das Abrufen von Werten
Beispielskript, mit dem die Konfigurationsinformationen der Registerkarte Speicherort für Dateien im Dialogfeld Optionen von Microsoft Word 2003 abgerufen werden.
On Error Resume Next
Const wdAutoRecoverPath = 5
Const wdBorderArtPath = 19
Const wdCurrentFolderPath = 14
Const wdDocumentsPath = 0
Const wdGraphicsFiltersPath = 10
Const wdPicturesPath = 1
Const wdProgramsPath = 9
Const wdProofingToolsPath = 12
Const wdStartupPath = 8
Const wdStyleGalleryPath = 15
Const wdTempFilesPath = 13
Const wdTextConvertersPath = 11
Const wdToolsPath = 6
Const wdTutorialPath = 7
Const wdUserOptionsPath = 4
Const wdUserTemplatesPath = 2
Const wdWorkgroupTemplatesPath = 3
Set objWord = CreateObject("Word.Application")
Set objOptions = objWord.Options
Wscript.Echo "AutoRecovery path: " & _
objOptions.DefaultFilePath(wdAutoRecoverPath)
Wscript.Echo "Border art path: " & _
objOptions.DefaultFilePath(wdBorderArtPath)
Wscript.Echo "Current folder path: " & _
objOptions.DefaultFilePath(wdCurrentFolderPath)
Wscript.Echo "Documents path: " & _
objOptions.DefaultFilePath(wdDocumentsPath)
Wscript.Echo "Graphics filters path: " & _
objOptions.DefaultFilePath(wdGraphicsFiltersPath)
Wscript.Echo "Pictures path: " & _
objOptions.DefaultFilePath(wdPicturesPath)
Wscript.Echo "Programs path: " & _
objOptions.DefaultFilePath(wdProgramsPath)
Wscript.Echo "Proofing tools path: " & _
objOptions.DefaultFilePath(wdProofingToolsPath)
Wscript.Echo "Startup path: " & _
objOptions.DefaultFilePath(wdStartupPath)
Wscript.Echo "Style gallery path: " & _
objOptions.DefaultFilePath(wdStyleGalleryPath)
Wscript.Echo "Temporary files path: " & _
objOptions.DefaultFilePath(wdTempFilesPath)
Wscript.Echo "Text converters path: " & _
objOptions.DefaultFilePath(wdTextConvertersPath)
Wscript.Echo "Tools path: " & _
objOptions.DefaultFilePath(wdToolsPath)
Wscript.Echo "Tutorial path: " & _
objOptions.DefaultFilePath(wdTutorialPath)
Wscript.Echo "User options path: " & _
objOptions.DefaultFilePath(wdUserOptionsPath)
Wscript.Echo "User templates path: " & _
objOptions.DefaultFilePath(wdUserTemplatesPath)
Wscript.Echo "Workgroup tenmplates path: " & _
objOptions.DefaultFilePath(wdWorkgroupTemplatesPath)
objWord.Quit
Beispielcode für das Ändern von Werten
Beispielskript, mit dem der Wert für Autostart in Microsoft Word auf C:\Scripts festgelegt wird.
On Error Resume Next
Set objWord = CreateObject("Word.Application")
Set objOptions = objWord.Options
objOptions.DefaultFilePath(wdStartupPath) = "C:\Scripts"
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.