diff options
| -rw-r--r-- | oox/source/ole/vbaexport.cxx | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/oox/source/ole/vbaexport.cxx b/oox/source/ole/vbaexport.cxx index 253d43e64348..4c276036aa42 100644 --- a/oox/source/ole/vbaexport.cxx +++ b/oox/source/ole/vbaexport.cxx @@ -12,6 +12,7 @@ #include <tools/stream.hxx> #include <com/sun/star/script/XLibraryContainer.hpp> +#include <com/sun/star/script/vba/XVBAModuleInfo.hpp> #include <com/sun/star/frame/XModel.hpp> #include <oox/helper/binaryoutputstream.hxx> @@ -611,10 +612,15 @@ void VbaExport::exportVBA() css::uno::Reference<css::container::XNameContainer> xNameContainer = getBasicLibrary(); css::uno::Sequence<OUString> aElementNames = xNameContainer->getElementNames(); sal_Int32 n = aElementNames.getLength(); + css::uno::Reference<css::script::vba::XVBAModuleInfo> xModuleInfo(xNameContainer, css::uno::UNO_QUERY); + assert(xModuleInfo.is()); for (sal_Int32 i = 0; i < n; ++i) { SAL_DEBUG(aElementNames[i]); + css::script::ModuleInfo aModuleInfo = xModuleInfo->getModuleInfo(aElementNames[i]); + SAL_DEBUG(aModuleInfo.ModuleType); } + } css::uno::Reference<css::container::XNameContainer> VbaExport::getBasicLibrary() |