Add a MailMerge class and object to the Writer VBA API

Just a dummy implementation so far. Needed because customer Automation
client software seems to access it (through the very obsolete
WordBasic API, even). It remains to be seen whether any actual mail
merge functionality is needed.

Change-Id: I40419da544f61173e4bcf759b887997c7f233b02
Reviewed-on: https://gerrit.libreoffice.org/55727
Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Tor Lillqvist <tml@collabora.com>

4 files changed, 60 insertions, 0 deletions

diff --git a/oovbaapi/UnoApi_oovbaapi.mk b/oovbaapi/UnoApi_oovbaapi.mk
index 421dd057a347..400528dd75c6 100644
--- a/oovbaapi/UnoApi_oovbaapi.mk
+++ b/oovbaapi/UnoApi_oovbaapi.mk
@@ -1070,6 +1070,7 @@ $(eval $(call gb_UnoApi_add_idlfiles,oovbaapi,ooo/vba/word,\
 	XListLevels \
 	XListTemplate \
 	XListTemplates \
+	XMailMerge \
 	XOptions \
 	XPageSetup \
 	XPane \
diff --git a/oovbaapi/ooo/vba/word/XDocument.idl b/oovbaapi/ooo/vba/word/XDocument.idl
index b6cb4fc45def..9259fc9fa4a9 100644
--- a/oovbaapi/ooo/vba/word/XDocument.idl
+++ b/oovbaapi/ooo/vba/word/XDocument.idl
@@ -38,6 +38,7 @@ interface XDocument
     [attribute] boolean AutoHyphenation;
     [attribute] long HyphenationZone;
     [attribute] long ConsecutiveHyphensLimit;
+    [attribute, readonly] XMailMerge MailMerge;
 
     XRange Range( [in] any Start, [in] any End ) raises (com::sun::star::script::BasicErrorException);
     any BuiltInDocumentProperties( [in] any Index );
diff --git a/oovbaapi/ooo/vba/word/XMailMerge.idl b/oovbaapi/ooo/vba/word/XMailMerge.idl
new file mode 100644
index 000000000000..203ffe2dfaa6
--- /dev/null
+++ b/oovbaapi/ooo/vba/word/XMailMerge.idl
@@ -0,0 +1,40 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
+/*
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ */
+#ifndef __ooo_vba_word_XMailMerge_idl__
+#define __ooo_vba_word_XMailMerge_idl__
+
+module ooo {  module vba {  module word {
+
+interface XMailMerge : XHelperInterface
+{
+    [attribute] long MainDocumentType;
+
+    void OpenDataSource( [in] string Name,
+                         [in] any Format,
+                         [in] any ConfirmConversions,
+                         [in] any ReadOnly,
+                         [in] any LinkToSource,
+                         [in] any AddToRecentFiles,
+                         [in] any PasswordDocument,
+                         [in] any PasswordTemplate,
+                         [in] any Revert,
+                         [in] any WritePasswordDocument,
+                         [in] any WritePasswordTemplate,
+                         [in] any Connection,
+                         [in] any SQLStatement,
+                         [in] any SQLStatement1,
+                         [in] any OpenExclusive,
+                         [in] any SubType );
+};
+
+}; }; };
+
+#endif
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/oovbaapi/ooo/vba/word/XWordBasic.idl b/oovbaapi/ooo/vba/word/XWordBasic.idl
index 31484c98d445..769d8aad3faf 100644
--- a/oovbaapi/ooo/vba/word/XWordBasic.idl
+++ b/oovbaapi/ooo/vba/word/XWordBasic.idl
@@ -14,9 +14,27 @@ module ooo {  module vba {  module word {
 
 interface XWordBasic
 {
+    [attribute] long MailMergeMainDocumentType;
+
     void FileOpen( [in] string Name, [in] any ConfirmConversions, [in] any ReadOnly, [in] any AddToMru, [in] any PasswordDoc, [in] any PasswordDot, [in] any Revert, [in] any WritePasswordDoc, [in] any WritePasswordDot );
     string WindowName();
     boolean ExistingBookmark( [in] string Name );
+    void MailMergeOpenDataSource( [in] string Name,
+                                  [in] any Format,
+                                  [in] any ConfirmConversions,
+                                  [in] any ReadOnly,
+                                  [in] any LinkToSource,
+                                  [in] any AddToRecentFiles,
+                                  [in] any PasswordDocument,
+                                  [in] any PasswordTemplate,
+                                  [in] any Revert,
+                                  [in] any WritePasswordDocument,
+                                  [in] any WritePasswordTemplate,
+                                  [in] any Connection,
+                                  [in] any SQLStatement,
+                                  [in] any SQLStatement1,
+                                  [in] any OpenExclusive,
+                                  [in] any SubType );
 };
 
 }; }; };