|
| |
VB Skript (VBS)| Fusszeile automatisch ändern | |  | | Autor: achillix | | Datum: 29.09.08 19:08 |
| Hallo.
Ich bin neu hier und hoffe das mir jemand helfen kann in Bezug eines Word Macros.
Ich habe vor kurzem ein Script entwickelt mit welchem ich Fusszeilen in Word automatisch ändern kann.
Das geschieht wie folgt.
In der Normal.dot füge ich im Visual Basic Editor folgendes Script hinzu.:
Sub pp()
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
' MsgBox (ActiveDocument.FullName)
Selection.WholeStory
If Selection.StoryLength > 1 Then
Selection.PasteAndFormat (wdPasteDefault)
Selection.Delete Unit:=wdCharacter, Count:=1
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
ActiveDocument.SaveAs FileName:= _
ActiveDocument.Name _
, FileFormat:=wdFormatTemplate, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", _
ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, _
SaveFormsData _
:=False, SaveAsAOCELetter:=False
End If
ActiveDocument.Close (wdDoNotSaveChanges)
Application.Quit
End SubWas passiert hier.
Zuerst kopiere ich eine vorformatierte Fusszeile in die Zwischenablage. Anschliessend starte ich via DOS Modus dieses Batch Script - nennen wir es change.bat:
FOR %%I IN (*.doc) DO "C:\Program Files\Microsoft Office\Office10\winword" /mpp _
"%%I" Er soll nun alle Word Dateien die sich im selben Verzeichniss befinden wie diese change.bat. In diesem Verzeichnis befinden sich 100 Word Dateien, die er alle nacheinander zuerst öffnet, die Fusszeile aus der zwischenablage herausliesst und diese in die Fusszeile der soebend ge¨ffneten Word Datei hinzufügt, die Datei sofort abspeichert und wieder schliesst. Dies macht er 100 mal ohne probleme.
Nun, fast ohne Probleme. Das Problem hier ist, wenn es sich um eine .dot Datei handelt funktioniert dies tadellos, wenn ich im change.bat script in den Klammern .dot eingebe. Wie ihr aber seht steht da .doc drinn und er ändert nicht.
Ausserdem ändert er nur die erste Fusszeile in den .dot Dateien und nicht die Nachfolgenden Seiten.
Habt ihr eine Idee wie ich es also schaffe das er es in .doc ändert und das er auch die nachfolgenden Zeilen ändert.
Vielen Dank im voraus
gruss
Chris | |
 Fusszeile automatisch ändern | 2.426 | achillix | 29.09.08 19:08 |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
sevOutBar 4.0 
Vertikale Menüleisten
á la Outlook
Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Weitere InfosTipp des Monats TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.