Makro beim Wordstart ausfuehren!
30.10.2003 12:40:07
Harald
Ich hab mir ein Makro gebastelt, dass eine eingebette Grafik in der Kopfzeile, in einem Word Dokument loeschen sollte.
Tut es auch, aber nur wenn ich es per Hand ausfuehre.
Ich moechte aber dass es aktiv wird, sobald ich das Word Dokument oeffne.
Sinn: Habe zig Word Dateien mit einer eingebetteten Grafik in der Kopfzeile und der Benutzer sollte beim oeffnen nicht mitbekommen, dass in diesem Dokument je eine Grafik war.
Vorgang: Doku oeffnen - Grafik loeschen - Doku speichern
Sub AutoExec()
On Error GoTo Fehler
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Shapes("Text Box 1").Select
Selection.ShapeRange.Delete
Selection.Delete Unit:=wdCharacter, Count:=1
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
ActiveDocument.Save
Fehler:
If Err.Number = 9 Then
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End If
End Sub
Ich hoffe Ihr koennt mir helfen!
Danke Harry
Anzeige