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.