related to #fdo71248 - ActiveDocument not tracking ThisWordDoc

Making the same change that fixed ThisExcelDoc in 2012
(commit cea414bf),
but matching the current code structure
(commit 191bf989)

Change-Id: I0a5c1a006d5a73b8e3be1b6b407e62927d49c36a
Reviewed-on: https://gerrit.libreoffice.org/11842Reviewed-by: Samuel Mehrbrodt <s.mehrbrodt@gmail.com>
Tested-by: Samuel Mehrbrodt <s.mehrbrodt@gmail.com>

sw/source/core/unocore/unomap.cxx

@@ -1795,7 +1795,7 @@ const SfxItemPropertyMapEntry* SwUnoPropertyMapProvider::GetPropertyMapEntries(s
                     { OUString(UNO_NAME_CHAR_LOCALE), RES_CHRATR_LANGUAGE ,   cppu::UnoType<css::lang::Locale>::get(), PropertyAttribute::MAYBEVOID,  MID_LANG_LOCALE },
                     { OUString(UNO_NAME_CHARACTER_COUNT), WID_DOC_CHAR_COUNT,           cppu::UnoType<sal_Int32>::get(),   PropertyAttribute::READONLY,   0},
                     { OUString(UNO_NAME_DIALOG_LIBRARIES), WID_DOC_DIALOG_LIBRARIES,  cppu::UnoType<css::script::XLibraryContainer>::get(), PropertyAttribute::READONLY, 0},
-                    { OUString(UNO_NAME_VBA_DOCOBJ), WID_DOC_VBA_DOCOBJ,  cppu::UnoType< cppu::UnoSequenceType<css::beans::PropertyValue> >::get(), PropertyAttribute::READONLY, 0},
+                    { OUString(UNO_NAME_VBA_DOCOBJ), WID_DOC_VBA_DOCOBJ,  cppu::UnoType<OUString>::get(), PropertyAttribute::READONLY, 0},
                     { OUString(UNO_NAME_INDEX_AUTO_MARK_FILE_U_R_L), WID_DOC_AUTO_MARK_URL, cppu::UnoType<OUString>::get(),    PROPERTY_NONE,   0},
                     { OUString(UNO_NAME_PARAGRAPH_COUNT), WID_DOC_PARA_COUNT,           cppu::UnoType<sal_Int32>::get(),   PropertyAttribute::READONLY,   0},
                     { OUString(UNO_NAME_RECORD_CHANGES), WID_DOC_CHANGES_RECORD,        cppu::UnoType<bool>::get(), PROPERTY_NONE,   0},

sw/source/uibase/uno/unotxdoc.cxx

@@ -2124,10 +2124,12 @@ Any SwXTextDocument::getPropertyValue(const OUString& rPropertyName)
         break;
         case WID_DOC_VBA_DOCOBJ:
         {
-            beans::PropertyValue aProp;
-            aProp.Name = "ThisWordDoc";
-            aProp.Value <<= pDocShell->GetModel();
-            aAny <<= aProp;
+            /* #i111553# This property provides the name of the constant that
+               will be used to store this model in the global Basic manager.
+               That constant will be equivalent to 'ThisComponent' but for
+               each application, so e.g. a 'ThisExcelDoc' and a 'ThisWordDoc'
+               constant can co-exist, as required by VBA. */
+            aAny <<= OUString( "ThisWordDoc" );
         }
         break;
         case WID_DOC_RUNTIME_UID: