Save Method Example

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