Hallo, mein Problem ist folgendes:
Ich möchte gerne ein word Dokument Drucken und zwar ohne eine Grafik welche ich in der Kopf- und Fußzeile eingefügt habe. Hierzu habe ich folgendes Makro:
Sub Kopf_fußzeile()
' Aufrufen der Kopfzeile oder Schliessen wenn offen
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
' Alles makieren
Selection.WholeStory
' Makierung löschen
Selection.Cut
Dialogs(wdDialogFilePrint).Show
Selection.Paste
' Kopf/Fußzeile verlassen
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
Mein eigentliches Problem ist nun, dass immer nur auf der Seite auf welcher der Cursor ist der Inhalt der Kopf - und Fußzeile gelöscht bzw. ausgeschnitten wird. Ich hätte aber gerne auf allen word-Seiten den Inhalt bzw. die Grafiken ausgeschnitten.
Ich sollte noch erwähnen, dass ich unter "Seite einrichten" von der Option "erste Seite" anders gebrauch mache, da ich dort eine andere Grafik im HIntergrund habe als auf den anderen Seiten.
Für EURE Hilfe wäre ich euch wirklich dankbar.
Mit freundlichen Grüßen Ruben
Ich möchte gerne ein word Dokument Drucken und zwar ohne eine Grafik welche ich in der Kopf- und Fußzeile eingefügt habe. Hierzu habe ich folgendes Makro:
Sub Kopf_fußzeile()
' Aufrufen der Kopfzeile oder Schliessen wenn offen
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
' Alles makieren
Selection.WholeStory
' Makierung löschen
Selection.Cut
Dialogs(wdDialogFilePrint).Show
Selection.Paste
' Kopf/Fußzeile verlassen
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
Mein eigentliches Problem ist nun, dass immer nur auf der Seite auf welcher der Cursor ist der Inhalt der Kopf - und Fußzeile gelöscht bzw. ausgeschnitten wird. Ich hätte aber gerne auf allen word-Seiten den Inhalt bzw. die Grafiken ausgeschnitten.
Ich sollte noch erwähnen, dass ich unter "Seite einrichten" von der Option "erste Seite" anders gebrauch mache, da ich dort eine andere Grafik im HIntergrund habe als auf den anderen Seiten.
Für EURE Hilfe wäre ich euch wirklich dankbar.
Mit freundlichen Grüßen Ruben
