missing part of fix for fdo#54721

commit id cea414bf for
"fix vba not tracking currently selected doc correctly" was missing necessary
change in sfx2

Change-Id: I1697c005374b3d26dc63c78702a46c6d9879adaa

sfx2/source/doc/objxtor.cxx

@@ -135,7 +135,7 @@ static VBAConstantNameMap s_aRegisteredVBAConstants;
     if( xProps.is() ) try
     {
         ::rtl::OUString aConstName;
-        xProps->getPropertyValue( ::rtl::OUString( "VBAGlobalConstantName"  ) ) >>= aConstName;
+        xProps->getPropertyValue( ::rtl::OUString( "ThisVBADocObj"  ) ) >>= aConstName;
         return ::rtl::OUStringToOString( aConstName, RTL_TEXTENCODING_ASCII_US );
     }
     catch (const uno::Exception&) // not supported