Implement WordBasic.FileSave()

Change-Id: Iafb5be16ebb23aa09e0300a77c2f2dbe29b85cad

sw/source/ui/vba/vbaapplication.cxx

@@ -533,7 +533,8 @@ SwWordBasic::FileOpen( const OUString& Name, const uno::Any& ConfirmConversions,
 void SAL_CALL
 SwWordBasic::FileSave()
 {
-    // FIXME save it
+    uno::Reference< frame::XModel > xModel( mpApp->getCurrentDocument(), uno::UNO_SET_THROW );
+    dispatchRequests(xModel,".uno:Save");
 }
 
 void SAL_CALL

sw/source/ui/vba/vbaapplication.hxx

@@ -111,7 +111,6 @@ public:
     // XSinkCaller
     virtual void SAL_CALL CallSinks( const OUString& Method, css::uno::Sequence< css::uno::Any >& Arguments ) override;
 
-protected:
     virtual css::uno::Reference< css::frame::XModel > getCurrentDocument() override;
 };
 #endif // INCLUDED_SW_SOURCE_UI_VBA_VBAAPPLICATION_HXX