我們正在開發 Word 發票模板,其中在頁面頂部的欄位中包含發票編號。
我們希望發票號碼自動遞增(從最後一個發票號碼開始),並且我們希望文件名稱基於發票號碼。
它們都將保存在同一目錄中。
答案1
我發現這我認為這會解決問題:
使用自動新建巨集將序號新增至文件並使用該編號儲存。
在建立文件的範本中,在您想要顯示序號的位置插入一個名為 Order 的書籤,並在範本中建立一個 AutoNew 宏,如下所示:
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
如果您不需要在文件中顯示編號,而只想將其儲存為連續編號,則無需在範本中建立書籤,然後應刪除程式碼的倒數第二行。
答案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