Dateinamen durchnummerieren mit Word

Wie kann ich Word-2000-Dokumente automatisch unter einem fortlaufenden numerischen Dateinamen speichern?

Dafür gibt es verschiedene Lösungen. Wenn es auf eine lückenlose Nummerierung ankommt, wie es etwa bei Rechnungsnummern der Fall ist, brauchen Sie ein Makro, das die jeweils letzte Nummer aus einer Dokumentvariablen oder der Systemregistrierung liest, diese um 1 erhöht und beim Speichern des Dokuments wiederum in einer Dokumentvariablen oder der Systemregistrierung ablegt. Einfacher ist es, wenn die Nummerierung zwar fortlaufend, aber nicht lückenlos sein muss. Dann können Sie den Dateinamen aus dem aktuellen Tagesdatum bilden, wie es das folgende Makro demonstriert:

Sub DateiSpeichern()
 On Error Resume Next
 With Dialogs _
 (wdDialogFileSaveAs)
  .Name = Year(Now) _
  & Format(Month(Now), "00") _
  & Format(Day(Now), "00") _
  & ".doc"
  If .Display = -1 Then
   ActiveDocument.SaveAs _
   FileName:=.Name
  End If
 End With
End Sub

In der globalen Dokumentvorlage Normal.dot abgelegt, ersetzt das Makro den Word-internen Speichern-Befehl. Es ruft das reguläre Datei-Speichern-Dialogfeld auf und übergibt ihm einen Dateinamensvorschlag, der aus der vierstelligen Jahreszahl, der zweistelligen Monatszahl sowie der ebenfalls zweistelligen Tageszahl des aktuellen Datums besteht. Die Reihenfolge der Datumselemente sorgt für eine korrekte chronologische Sortierung der Dateinamen im Windows-Explorer. (Ralf Nebelo/se) (ha)