Verwalten der allgemeinen Optionen von Publisher mithilfe von Scripts

Beispiele für VBScript-Skripts zum Abrufen und Konfigurieren der in Microsoft Publisher 2003 unter Allgemein verfügbaren Optionen.

*
**
**

Zuordnen des Dialogfelds zum Publisher-Objektmodell

Die in den folgenden Skripts verwendeten Optionen entsprechen den Optionen auf der Registerkarte Allgemein im Dialogfeld Optionen. Um auf diese Optionen in Microsoft Publisher 2003 zuzugreifen, klicken Sie auf Extras, Optionen und anschließend auf die Registerkarte Allgemein. Eine Zuordnung zwischen den verfügbaren Optionen in diesem Dialogfeld und dem Microsoft Publisher-Objektmodell wird im Folgenden dargestellt.

Allgemeine Optionen


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.

Zum SeitenanfangZum Seitenanfang

Beispielcode zum Abrufen von Werten

Beispielskript zum Abrufen von Konfigurationsinformationen auf der Registerkarte Allgemein im Dialogfeld Optionen von Microsoft Publisher 2003.

Set objPublisher = CreateObject("Publisher.Application")
Set objDoc = objPublisher.NewDocument

Set objOptions = objPublisher.Options

Wscript.Echo "Show basic colors in color palette: " & _
    objOptions.ShowBasicColors
Wscript.Echo "Measurement units: " & objOptions.MeasurementUnit
Wscript.Echo "Use New Publication task pane at startup: " & _
    objOptions.UseCatalogAtStartup
Wscript.Echo "Publications location: " & objOptions.PathForPublications
Wscript.Echo "Pictures location: " & objOptions.PathForPictures

objPublisher.Quit
Zum SeitenanfangZum Seitenanfang

Beispielcode zum Ändern von Werten

Beispielskript zum Aktivieren der Option zum Anzeigen von Grundfarben in Microsoft Publisher.

Set objPublisher = CreateObject("Publisher.Application")
Set objDoc = objPublisher.NewDocument

Set objOptions = objPublisher.Options

objOptions.ShowBasicColors = TRUE

objPublisher.Quit
Zum SeitenanfangZum Seitenanfang

Die 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.


Zum SeitenanfangZum Seitenanfang