Sub PressThisRibbonBarButton() On Error Resume Next If Word.Application.Documents.Count = 0 Then Exit Sub ' Press the Save button Word.Application.CommandBars.ExecuteMso "FileSave"End Sub