Verwalten der Weboptionen von Publisher mithilfe von Skripts
Beispiele für VBScript-Skripts zum Abrufen und Konfigurieren der in Microsoft Publisher 2003 unter Web verfügbaren Optionen.
|
Zuordnen des Dialogfelds zum Publisher-Objektmodell
Die in den folgenden Skripts verwendeten Optionen entsprechen den Optionen auf der Registerkarte Web im Dialogfeld Optionen. Um auf diese Optionen in Microsoft Publisher 2003 zuzugreifen, klicken Sie auf Extras, Optionen und anschließend auf die Registerkarte Web. 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 auf der Registerkarte Web im Dialogfeld Optionen von Microsoft Publisher 2003.
Set objPublisher = CreateObject("Publisher.Application")
Set objDoc = objPublisher.NewDocument
Set objOptions = objPublisher.WebOptions
Wscript.Echo "Organize supporting files in a folder: " & _
objOptions.OrganizeInFolder
Wscript.Echo "Enable incremental publish to the Web: " & _
objOptions.EnableIncrementalUpload
Wscript.Echo "Rely on VML for faster graphics downloading: " & _
objOptions.RelyOnVML
Wscript.Echo "Save this publication as: " & objOptions.Encoding
Wscript.Echo "Always save Web pages in the default encoding: " & _
objOptions.AlwaysSaveInDefaultEncoding
Wscript.Echo "Send entire publication page as a single JPEG image: " & _
objOptions.EmailAsImg
objPublisher.Quit
Beispielcode zum Ändern von Werten
Beispielskript zum Deaktivieren der Zusammenfassung von unterstützenden Dateien in einem Ordner in Microsoft Publisher.
Set objPublisher = CreateObject("Publisher.Application")
Set objDoc = objPublisher.NewDocument
Set objOptions = objPublisher.WebOptions
objOptions.OrganizeInFolder = FALSE
objPublisher.Quit
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.