☰

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 行目を削除する必要があります。

答え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

関連情報