☰

Word 巨集 - 儲存時自動增加發票編號和檔名

tag-icon • tag-icon microsoft-word microsoft-word-2007 macros
Word 巨集 - 儲存時自動增加發票編號和檔名

我們正在開發 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

相關內容