☰

Word Macro - 저장 시 송장 번호 및 파일 이름 자동 증가

tag-icon • tag-icon microsoft-word microsoft-word-2007 macros
Word Macro - 저장 시 송장 번호 및 파일 이름 자동 증가

페이지 상단의 필드에 송장 번호가 포함된 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

관련 정보