Verwalten der Bearbeitungsoptionen von Publisher mithilfe von Skripts
Beispiele für VBScript-Skripts zum Abrufen und Konfigurieren der Bearbeitungsoptionen von Microsoft Publisher 2003.
|
Zuordnen des Dialogfelds zum Publisher-Objektmodell
Die in den folgenden Skripts verwendeten Optionen entsprechen den Optionen auf der Registerkarte Bearbeiten im Dialogfeld Optionen. Um auf diese Optionen in Microsoft Publisher 2003 zuzugreifen, klicken Sie auf Extras, Optionen und dann auf die Registerkarte Bearbeiten. Eine Zuordnung zwischen den verfügbaren Optionen in diesem Dialogfeld und dem Microsoft Publisher-Objektmodell wird im Folgenden dargestellt.
Die auf dieser Seite aufgeführten Skripts wurden mit Microsoft Publisher 2003 getestet. Es ist anzunehmen, dass jede Version von Microsoft Publisher, die Visual Basic für Applikationen (VBA) unterstützt, zumindest einen Teil der Funktionen ausführen kann. Die Skripts wurden jedoch in keiner dieser Versionen getestet.
Beispielcode zum Abrufen von Werten
Beispielskript zum Abrufen der Konfigurationsinformationen von der Registerkarte Bearbeiten im Dialogfeld Optionen von Microsoft Publisher 2003.
Set objPublisher = CreateObject("Publisher.Application")
Set objDoc = objPublisher.NewDocument
Set objOptions = objPublisher.Options
Wscript.Echo "Drag-and-drop text editing: " & objOptions.DragAndDropText
Wscript.Echo "When selecting, automatically select entire word: " & _
objOptions.AutoSelectWord
Wscript.Echo "When formatting, automatically format entire word: " & _
objOptions.AutoFormatWord
Wscript.Echo "Automatically substitute font for missing East Asian characters: " _ &
objOptions.TypeNReplace
Wscript.Echo "Auto-Keyboard switching: " & objOptions.AutoKeyboardSwitching
Wscript.Echo "Automatically hyphenate in new text boxes: " & _
objOptions.AutoHyphenate
Wscript.Echo "Hyphenation zone: " & objOptions.HyphenationZone
objPublisher.QuitBeispielcode zum Ändern von Werten
Beispielskript zum Deaktivieren der Drag & Drop-Option in Microsoft Publisher.
Set objPublisher = CreateObject("Publisher.Application")
Set objDoc = objPublisher.NewDocument
Set objOptions = objPublisher.Options
objOptions.DragAndDropText = FALSE
objPublisher.QuitDie Beispielskripts werden nicht durch die Standardsupportprogramme und -dienste von Microsoft unterstützt. Die Beispielskripts werden im gegenwärtigen Zustand und ohne jegliche Gewährleistung zur Verfügung gestellt. Microsoft schließt darüber hinaus jede konkludente Gewährleistung aus, einschließlich und ohne Einschränkung jeglicher konkludenten Gewährleistung der Handelsüblichkeit oder Eignung für einen bestimmten Zweck. Alle Risiken, die aus der Verwendung oder Ausführung der Beispielskripts und der Dokumentation entstehen, unterliegen vollständig Ihrer Verantwortung. In keinem Fall können Microsoft, ihre Autoren oder andere an der Erstellung, Produktion oder Bereitstellung der Skripts Beteiligte für irgendwelche Schäden haftbar gemacht werden (einschließlich und ohne Einschränkung aller Schäden durch Geschäftsverluste, Geschäftsausfälle, den Verlust von Geschäftsinformationen oder andere finanzielle Verluste), die aus der Verwendung oder der Nichteignung zur Verwendung der Beispielskripts oder der Dokumentation entstehen, auch wenn Microsoft über die Möglichkeit solcher Schäden unterrichtet worden ist.