Hallo ihr Profis , meine Frage hört sich vielleicht ein bissel blöd an hat aber seinen Grund hoffe ihr könnt mir helfen 
Wenn ich mit Word 2003 einen Text erstellt , abgespeichert habe der auf ein einziges Blatt Papier passt und möchte diesen Text z.B. 200 mal drucken , wie bekomme ich bei Word eine automatische fortlaufende Nummerierung für jedes einzelne Blatt hin also 1,2,3... usw obwohl die Abgespeicherte Datei nicht Nummeriert ist .
Danke
du müsstest den text 200 mal in einem Dokument "kopieren" dann oben in der Leiste mal nach Setitenzahlen oder Nummerierung suchen dann werden die Seiten durch nummeriert
Hoffe das ist richtig so, wenn nicht bitte verbessern
MfG
Hi,
versuche es mal mit Ansicht -> Kopf & Fußzeile.
Ich hoffe das Du das meintest.
mfg Jagger
Zitat von Jagger;368711Hi,
versuche es mal mit Ansicht -> Kopf & Fußzeile.
Ich hoffe das Du das meintest.mfg Jagger
Dein Gedankengang war schon richtig...;)
ANSICHT -> Kopf- und Fußzeile -
Autotext einfügen: über das Feld Autotext einfügen in der Symbolleiste Kopf- und Fußleiste -> da entweder Seite z.B steht dann da -1- oder - 2 - usw.
oder über Seite x von y. dann steht dort Beispiel: Seite 1 von 2
Hi,
ist aber auch falsch, wie ich dachte. Er will ja 200x drucken und da käme immer Seite 1. Ok, es geht mit Visual Basic (VBA):
Sub Makro1()
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
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
'Hier stellt man die Anzahl der Drucke ein:
' For x= 1 to 5 bedeutet 5 Ausdrucke
For X = 1 To 5
Selection.TypeText Text:=""
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
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
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
' Hier wird die Fußzeile erzeugt
Selection.TypeText Text:="Seite " & X
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
' Achtung: es wird 5 mal direkt gedruckt
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
Next X
End SubDas geht, hab ich getestet. Im Anhang die Doc mit dem Code.
Ist nur aufgezeichnet und bissel angepasst.
mfg Jagger
Danke Jagger
Visual Basic ist ein Macro oder wie muss ich das verstehen ?
hab keinen Plan 
Hi,
genau. Die test.doc enthält ein Makro. Deshalb beim Öffnen Makros aktivieren zulassen. In diese Datei kopierst Du Deinen Text (löschst mein "Test") und drückst bei Makro auf Play. Damit wird diese Seite 5x auf dem Standarddrucker ausgegeben. Der Text ist immer der gleiche und in der Fußzeile steht dann Seite 1, Seite 2 ... Seite 5. Wenn Du bis 200 willst, dann änderst Du im Makro diese Zeile: "For X = 1 To 5" in "For X = 1 To 200" und fertig. Ich kann Dir auch ein Menü machen, dass Dich fragt wieviel Seiten Du drucken möchtest usw.
mfg Jagger
Hi Jagger
erst mal Danke für deine Hilfe , das mit dem Menu wäre echt klasse von dir wenns dir nix ausmacht .
Hi,
ok, Du hast es so gewollt. 
Wenn Du die angehängte Test.doc öffnest, geht ein Druckformular auf.
Falls nicht, bitte unter "Extras -> Optionen -> Sicherheit -> Makrosicherheit"
auf "Niedrig" setzen und Test.doc erneut öffnen. Keine Angst, ist virenfrei.
Das Formular möchte die Nummer der Startseite (falls Du nicht bei 1 anfangen möchtest) und die Anzahl der zu druckenden Seiten wissen.
Beispiel: bei "Nummer der Startseite" gibst Du 20500 ein und bei "Druckanzahl" 5.
Ergebnis: 20500, 20501, 20502, 20503, 20504
Achtung: Wenn Du "Drucken" anklickst, wird das gnadenlos an den eingestellten Standarddrucker abgesendet. Wenn Du also bei Druckanzahl "2000000" eingibst...wirst Du Papier brauchen. 
Du musst also auf der Seite nur meinen Text mit Deinem austauschen.
mfg Jagger
Tausend Dank
werds morgen probieren schönes Wochenende wünsch ich dir 
Du hast noch kein Benutzerkonto auf unserer Seite? Registriere dich kostenlos und nimm an unserer Community teil!