Fortlaufende Rechnungsnummern

Sie haben bereits einiges zum Thema Rechnungsstellung geschrieben. Ich habe jedoch noch keinen Hinweis gefunden, wie ich mit Winword 7.0 fortlaufende Rechnungsnummern automatisch vergeben kann. Gibt es fⁿr dieses Problem eine L÷sung?

Ja, mit Hilfe eines Tricks ist es in Winword m÷glich, automatisch fortlaufende Nummern zu vergeben. Das Problem stellt bei dieser Aufgabe allerdings das Merken der bisherigen Nummern dar. Sie ben÷tigen eine Art Speicher, um auf die letzte Nummer zugreifen zu k÷nnen. Vor dem Anlegen eines neuen Dokuments lesen Sie dann die Nummer aus diesem Speicher und schreiben sie dann um 1 erh÷ht in den Speicher zurⁿck. Das neue Dokument speichern Sie unter der so erzeug- ten Nummer. Als Speicher bietet sich ein spezielles Dokument an. Um jede weitere Rechnerei zu vermeiden, benutzen Sie einfach eine Anzahl von Buchstaben zur Darstellung der Nummer. Wenn Sie die Buchstaben zΣhlen lassen und jeweils ein Zeichen hinzufⁿgen, erhalten Sie jedesmal eine Folgenummer. Um diese Aufgabe beim Anlegen einer neuen Rechnung durch- zufⁿhren, verwenden Sie fⁿr die Rechnungen eine Formatvorlage mit einem Makro namens AutoNew. Word fⁿhrt Makros mit diesem Namen automatisch beim Neu- anlegen eines Dokuments aus. ╓ffnen Sie Ihre Rechnungsvorlage und wΣhlen Sie den Befehl Extras û Makro. Geben Sie in das Feld Makroname die Bezeichnung AutoNew ein und klicken auf den Button Erstellen. Im Makro-Editor geben Sie nun folgende Zeilen ein: 

Sub MAIN
Dim Dlg As DateiDateiInfo╢
Datei╓ffnen .Name =  äC:\lfdNr.docô╢
Einfⁿgen  äaô╢
GetCurValues Dlg╢
NeueNr$ = Dlg.AnzZeichen╢
DateiSchlie▀en 1╢
BearbeitenGeheZu .Ziel =  äMarkeô╢
Einfⁿgen NeueNr$╢
DateiSpeichernUnter .Name = NeueNr$ +  ä.docô╢
End Sub╢
Word startet das Makro, sobald Sie eine neue Rechnung mit dem Befehl Datei û Neu und der Auswahl der entsprechenden Formatvorlage anlegen. Die dritte Zeile des Makros ÷ffnet eine Datei LFDNR.DOC û sie simuliert den Speicher. Mit dem Befehl Einfⁿgen äaô erh÷hen Sie die Rechnungsnummer um 1. Das verhindert gleichzeitig, da▀ Sie beim ersten Start des Makros mit einer 0 beginnen. Die nΣchste Anweisung liest sΣmtliche Datei-Informationen aus. Da Sie sich nur fⁿr die Anzahl der Zeichen im Dokument interessieren, weist die sechste Anweisung diese Information der Variablen NeueNr zu. Allerdings sind die Angaben aus der Datei-Information alle vom Typ Zeichen. Daher ist kein Rechnen ohne Typ-Umwandlungen m÷glich. Zeile 7 speichert das um ein Zeichen ergΣnzte Dokument, und Zeile 8 wechselt in der neuen Rechnung zur Textmarke Marke, die Sie in der Vorlage dort anlegen sollten, wo Sie spΣter die Rechnungsnummer haben wollen. Die nΣchste Anweisung schreibt schlie▀lich die neue Rechnungsnummer in das Rechnungsdokument und speichert es gleich unter dieser Nummer. Dieses Verfahren l÷st zwar prinzipiell das Problem der fortlaufenden Numerierung. Doch beachten Sie: Laufende Nummern sind normalerweise Datenbanken vorbehalten, die fⁿr die Datensicherheit sorgen k÷nnen. Wenn jemand Zeichen aus der Datei LFDNR.DOC entfernt, kann dies durch die automa- tische Sicherung am Ende des Makros zu Datenverlusten fⁿhren.