Word-Makro - Rechnungsnummer und Dateiname beim Speichern automatisch erhöhen

Question

Wir entwickeln eine Rechnungsvorlage für Word, die in einem Feld oben auf der Seite eine Rechnungsnummer enthält.

Wir möchten, dass die Rechnungsnummer automatisch hochgezählt wird (von der letzten Rechnungsnummer an) und dass der Dateiname auf der Rechnungsnummer basiert.

Sie werden alle im selben Verzeichnis gespeichert.

Answer 1

ich fandDaswas meiner Meinung nach das Problem lösen wird:

Verwenden Sie ein Autonew-Makro, um einem Dokument eine fortlaufende Nummer hinzuzufügen und es unter dieser Nummer zu speichern.

Fügen Sie in der Vorlage, auf deren Grundlage Sie das Dokument erstellen, an der Stelle, an der die fortlaufende Nummer erscheinen soll, ein Lesezeichen mit dem Namen „Order“ ein und erstellen Sie in der Vorlage wie folgt ein AutoNew-Makro:

Sub AutoNew()

Order = System.PrivateProfileString("C:\Settings.Txt", _
        "MacroSettings", "Order")

If Order = "" Then
    Order = 1
Else
    Order = Order + 1
End If

System.PrivateProfileString("C:\Settings.txt", "MacroSettings", _
        "Order") = Order

ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Order, "00#")
ActiveDocument.SaveAs FileName:="path" & Format(Order, "00#")

End Sub

Wenn die Anzeige der Nummer im Dokument nicht erforderlich ist, sondern nur eine Speicherung mit fortlaufender Nummer erfolgen soll, kann auf die Anlage des Lesezeichens in der Vorlage verzichtet werden und die vorletzte Zeile des Codes kann anschließend gelöscht werden.

Answer 2

 Sub GoGenInv()
    Selection.GoTo What:=wdGoToBookmark, Name:="BkMrk_InvNum"
    Selection.MoveRight Unit:=wdCharacter, Count:=10, Extend:=wdExtend
    Dim nInvNum As Variant
    nInvNum = Val(Selection.Text)
    nInvNum = nInvNum + 1
    Selection.Text = nInvNum
    Selection.GoTo What:=wdGoToBookmark, Name:="BkMrk_InvNum"
End Sub