From 2846de32e6a38023d584dee843230b1806bf8dba Mon Sep 17 00:00:00 2001
From: Markus Mohrhard <markus.mohrhard@googlemail.com>
Date: Sat, 15 Aug 2015 04:28:42 +0200
Subject: also log the module type

---
 oox/source/ole/vbaexport.cxx | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'oox')

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()
-- 
cgit