[Libreoffice-commits] core.git: Branch 'feature/vba-export' - oox/source

[Markus Mohrhard]

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

New commits:
commit cc6eacd2bca5ab3c3e49fbac80ae80e0a00f3c82
Author: Markus Mohrhard <markus.mohrhard at googlemail.com>
Date:   Fri Aug 28 13:34:43 2015 +0200

    also dump the module source code

diff --git a/oox/source/ole/vbaexport.cxx b/oox/source/ole/vbaexport.cxx
index d9d4871..06dc8aa 100644
--- a/oox/source/ole/vbaexport.cxx
+++ b/oox/source/ole/vbaexport.cxx
@@ -641,6 +641,11 @@ void VbaExport::exportVBA(SotStorage* pRootStorage)
         SAL_DEBUG(aElementNames[i]);
         css::script::ModuleInfo aModuleInfo = xModuleInfo->getModuleInfo(aElementNames[i]);
         SAL_DEBUG(aModuleInfo.ModuleType);
+
+        css::uno::Any aCode = xNameContainer->getByName(aElementNames[i]);
+        OUString aSourceCode;
+        aCode >>= aSourceCode;
+        SAL_DEBUG(aSourceCode);
     }
     pVBAProjectStream->Commit();
     pDirStream->Commit();