☰

Макрос Word — автоматическое увеличение номера счета-фактуры и имени файла при сохранении

tag-icon • tag-icon microsoft-word microsoft-word-2007 macros
Макрос Word — автоматическое увеличение номера счета-фактуры и имени файла при сохранении

Мы разрабатываем шаблон счета-фактуры для Word, который содержит номер счета-фактуры в поле в верхней части страницы.

Мы хотим, чтобы номер счета-фактуры увеличивался автоматически (начиная с номера последнего счета-фактуры), а также чтобы имя файла основывалось на номере счета-фактуры.

Все они будут сохранены в одном каталоге.

решение1

я нашелэтотчто, я думаю, решит проблему:

Используйте макрос Autonew, чтобы добавить порядковый номер к документу и сохранить его под этим номером.

В шаблоне, из которого вы создаете документ, вставьте закладку с именем 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

Связанный контент