Comment Property Example

This example displays the comment text for the first version of the active document.

If ActiveDocument.Versions.Count >= 1 Then
    MsgBox Prompt:=ActiveDocument.Versions(1).Comment, _
        Title:="First Version Comment"
End If

This example saves a version of the document with the user's comment and then displays the comment.

Set myVersions = ActiveDocument.Versions
aComment = InputBox("Type a comment")
myVersions.Save Comment:=aComment
last = myVersions.Count
MsgBox Prompt:=myVersions(last).Comment, _
    Title:=myVersions(last).SavedBy