Add a dummy implementation of WordBasic.AppCount()

Change-Id: Ia9e78c331d2cb711653ee3e64597ebf2824e0eeb

oovbaapi/ooo/vba/word/XWordBasic.idl

@@ -42,6 +42,7 @@ interface XWordBasic
     long AppMaximize( [in] string WindowName, [in] any State );
     long DocMaximize( [in] any State );
     void AppShow( [in] string WindowName );
+    long AppCount();
 };
 
 }; }; };

sw/source/ui/vba/vbaapplication.cxx

@@ -112,6 +112,7 @@ public:
     virtual sal_Int32 SAL_CALL AppMaximize( const OUString& WindowName, const css::uno::Any& State ) override;
     virtual sal_Int32 SAL_CALL DocMaximize( const css::uno::Any& State ) override;
     virtual void SAL_CALL AppShow(  const OUString& WindowName ) override;
+    virtual sal_Int32 SAL_CALL AppCount() override;
 };
 
 SwVbaApplication::SwVbaApplication( uno::Reference<uno::XComponentContext >& xContext ):
@@ -667,4 +668,13 @@ SwWordBasic::AppShow( const OUString& WindowName )
     // FIXME: Implement if necessary
 }
 
+sal_Int32 SAL_CALL
+SwWordBasic::AppCount()
+{
+    SAL_INFO("sw.vba", "WordBasic.AppCount()");
+
+    // FIXME: Implement if necessary. Return a random number for now.
+    return 2;
+}
+
 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */