SavedBy Property

Microsoft Word Visual Basic

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