expression.SavedBy
expression Required. An expression that returns a Version object.
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