☰

Word文書内の数字を1ずつ増やすマクロを探しています

tag-icon • tag-icon microsoft-word vba microsoft-word-2010
Word文書内の数字を1ずつ増やすマクロを探しています

他のユーザーがアクセスして変更できる Word 文書があります (同じコンピューター上)。

そのドキュメントの上部には、「バージョン # XXX」という行があります。

私が望んでいるのは、XXX を 1 増やしてドキュメントを保存するマクロを実行できるようにすることです。

それは可能ですか？どうやって？

答え1

たとえば、「Revision」というドキュメント プロパティを作成できます。その後、それをフィールドに表示できるようになり、コードで次の方法で読み書きできるようになります。

myDocument.CustomDocumentProperties("Revision").Value

答え2

誰かが興味を持った場合に備えて、私が見つけた答えをここに示します。

1/ フィールドを挿入 (CTRL+F9) して「{ DOCVARIABLE VNUM }」とする

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

私が探していたものに対してはうまく機能します。

関連情報