Für die automatische Nummerierung von Rechnungen usw. unter WinWord 97 ist wie folgt vorzugehen: Zunächst ein leeres Blatt aufrufen und darin nur 001 einfügen. Jetzt dieses Dokument unter dem Namen "Nummer" speichern und verlassen. Nun die Dateivorlage, in welcher die automatische Nummerierung erfolgen soll (Endung "DOT") nicht über "Datei - Neu", sondern über "Datei - Öffnen" laden und darin an der Stelle, wo die Nummer stehen soll eine zweispaltige einzeilige Tabelle einfügen, die gesamte Tabelle markieren und über "Format - Rahmen und Schattierungen" "Ohne" auswählen. Jetzt nur die linke Tabellenzelle markieren und die Schriftfarbe auf "weiß" setzen um diese Zelle, die nur als Berechnungshilfe dient, zu verbergen. Evtl. jetzt noch die beiden Tabellenzellen in der Größe anpassen. Nun im rechten Tabellenfeld über "Tabelle - Formel" die Formel "=Summe(links"+1" einfügen und evtl. noch ein Format vorgeben (für mindestens dreistellige Rechnungsnummern z. B. "#.000". Weiterhin muss jetzt über "Einfügen - Textmarke" im rechten Tabellenfeld die Textmarke "NeueNummer" gesetzt werden. Jetzt "Extras - Makro - Makros" auswählen, hier den Makro-Namen "AutoNew" eingeben und bei "Makros in:" die entsprechende Vorlage-DOT auswählen und auf "Erstellen" klicken. Jetzt hinter "Sub" das nachfolgende Makro (Beginnend bei "AutoNew()" und endend vor "End Sub") eingeben und alles speichern und schließen. Fortan wird bei jedem Öffnen der Vorlage-Datei die Rechnungsnummer um eine "1" hochgezählt.
Sub AutoNew()
'
' AutoNew Makro
' Makro aufgezeichnet am 13.07.98 von Heinrich Krainski
'
Documents.Open FileName:="C:\Eigene Dateien\Nummer.doc", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
Selection.WholeStory
Selection.Copy
Windows(1).Activate
Selection.GoTo What:=wdGoToTable, Which:=wdGoToFirst, Count:=1, Name:=""
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Paste
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeBackspace
Selection.GoTo What:=wdGoToBookmark, Name:="NeueNummer"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Fields.Update
Selection.Copy
Windows(2).Activate
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Paste
ActiveDocument.Save
ActiveWindow.Close
End Sub