This example saves the active document if it's changed since it was last saved.
If ActiveDocument.Saved = False Then ActiveDocument.Save
This example saves each document in the Documents collection without first prompting the user.
Documents.Save NoPrompt:=True, _
OriginalFormat:=wdOriginalDocumentFormat
If Sales.doc is open, this example saves a version of Sales.doc, with a comment.
For Each doc in Documents
If Instr(1, doc.Name, "Sales.doc", 1) > 0 Then
doc.Versions.Save Comment:="Minor changes to intro"
End If
Next doc