039 Automatische Nummerierung mit WinWord 97

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

Zurück zur vorherigen Seite

Zurück zur Titelseite