☰

Word 문서에서 숫자를 1씩 늘리는 매크로를 찾고 있습니다.

tag-icon • tag-icon microsoft-word vba microsoft-word-2010
Word 문서에서 숫자를 1씩 늘리는 매크로를 찾고 있습니다.

다른 사용자가 동일한 컴퓨터에서 액세스하고 변경할 수 있는 Word 문서가 있습니다.

해당 문서 상단에 "Version # XXX"라고 표시된 줄이 있습니다.

내가 원하는 것은 XXX를 1씩 늘리고 문서를 저장하는 매크로를 실행하는 것입니다.

그게 가능합니까? 어떻게?

답변1

Revision이라는 문서 속성을 만들 수 있습니다. 그런 다음 필드에 표시할 수 있어야 하며 코드는 다음을 통해 읽고 쓸 수 있습니다.

myDocument.CustomDocumentProperties("Revision").Value

답변2

누군가 관심이 있다면 여기에 내가 찾은 답변이 있습니다.

1/ 필드를 "{ DOCVARIABLE VNUM }"으로 삽입합니다(CTRL+F9).

2/ 다음 코드를 사용하여 매크로를 만듭니다.

    Sub IncrementVersion()

    On Error Resume Next
    With ActiveDocument
        .Variables.Add ("VNUM")
        On Error GoTo 0
        If IsNumeric(.Variables("VNUM")) = False Then
            .Variables("VNUM") = 1
        Else
            If .Saved = False Then
                .Variables("VNUM") = .Variables("VNUM") + 1
                Else
                    If MsgBox("No changes", vbOKCancel) = vbCancel Then
                    Exit Sub
                    Else
                    'nothing
                End If
            End If
        End If
        .Fields.Update
        .Save
        .Close
    End With
    End Sub

내가 찾던 것에 잘 작동합니다.

관련 정보