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

[Rosemary]

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

New commits:
commit 091ed8e0cfe6c8be5dee0586cc0ef43a20853cdf
Author: Rosemary <rosemaryseb8 at gmail.com>
Date:   Sun Aug 9 10:57:54 2015 +0530

    PROJECTLCID record
    
    Change-Id: Ib672f479785fc20002e5905ebe7c02c31e6e9964
    Reviewed-on: https://gerrit.libreoffice.org/17599
    Tested-by: Jenkins <ci at libreoffice.org>
    Reviewed-by: Markus Mohrhard <markus.mohrhard at googlemail.com>
    Tested-by: Markus Mohrhard <markus.mohrhard at googlemail.com>

diff --git a/oox/source/ole/vbaexport.cxx b/oox/source/ole/vbaexport.cxx
index b5141b1..d075ffe 100644
--- a/oox/source/ole/vbaexport.cxx
+++ b/oox/source/ole/vbaexport.cxx
@@ -26,6 +26,14 @@ VbaExport::VbaExport(css::uno::Reference<css::frame::XModel> xModel):
 
 namespace {
 
+// section 2.3.4.2.1.2
+void writePROJECTLCID(SvStream& rStrm)
+{
+    rStrm.WriteUInt16(0x0002); // id
+    rStrm.WriteUInt32(0x00000004); // size
+    rStrm.WriteUInt32(0x00000409); // Lcid
+}
+
 // section 2.3.4.2.1.1
 void writePROJECTSYSKIND(SvStream& rStrm)
 {
@@ -38,6 +46,7 @@ void writePROJECTSYSKIND(SvStream& rStrm)
 void writePROJECTINFORMATION(SvStream& rStrm)
 {
     writePROJECTSYSKIND(rStrm);
+    writePROJECTLCID(rStrm);
 }
 
 // section 2.3.4.2
@@ -51,7 +60,7 @@ void exportDirStream(SvStream& rStrm)
 void VbaExport::exportVBA()
 {
     // start here with the VBA export
-    const OUString aDirFileName("/home/moggi/Documents/temp/vba_dir_out.bin");
+    const OUString aDirFileName("/tmp/vba_dir_out.bin");
     SvFileStream aDirStream(aDirFileName, StreamMode::WRITE);
 
     // export