oox/source/ole/vbaexport.cxx | 6 ++++++ 1 file changed, 6 insertions(+)
New commits: commit 7b7d68795d83822398fc4cf2b4fa097daac12d2c Author: Markus Mohrhard <[email protected]> Date: Sat Aug 15 04:28:42 2015 +0200 also log the module type diff --git a/oox/source/ole/vbaexport.cxx b/oox/source/ole/vbaexport.cxx index 253d43e..4c27603 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() _______________________________________________ Libreoffice-commits mailing list [email protected] http://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
