Emit DocumentChange events less eagerly (to Automation clients)

They are supposed to be emitten when a new document is created, an
existing document opened, or a document is made the active
document. (Hopefully our SfxEventHintId::ActivateDoc matches the last
one semantically.)

Change-Id: Ic53285fc3d1b9a61ababf77f06477081cef20f27

sw/source/uibase/app/docsh2.cxx

@@ -254,10 +254,21 @@ void SwDocShell::Notify( SfxBroadcaster&, const SfxHint& rHint )
     if( xVbaEvents.is() )
         lcl_processCompatibleSfxHint( xVbaEvents, rHint );
 
-    if ( rHint.GetId() == SfxHintId::DocChanged )
+    if ( const SfxEventHint* pSfxEventHint = dynamic_cast<const SfxEventHint*>(&rHint) )
     {
-        uno::Sequence< css::uno::Any > aArgs;
-        SW_MOD()->CallAutomationApplicationEventSinks( "DocumentChange", aArgs );
+        switch( pSfxEventHint->GetEventId() )
+        {
+            case SfxEventHintId::ActivateDoc:
+            case SfxEventHintId::CreateDoc:
+            case SfxEventHintId::OpenDoc:
+            {
+                uno::Sequence< css::uno::Any > aArgs;
+                SW_MOD()->CallAutomationApplicationEventSinks( "DocumentChange", aArgs );
+                break;
+            }
+            default:
+                break;
+        }
     }
 
     sal_uInt16 nAction = 0;