SavedBy Property Example

This example displays the name of the user who saved the first version of the active document.

If ActiveDocument.Versions.Count >= 1 Then
    MsgBox ActiveDocument.Versions(1).SavedBy
End If

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

ActiveDocument.Versions.Save Comment:="Added client information"
last = ActiveDocument.Versions.Count
MsgBox ActiveDocument.Versions(last).SavedBy