sw/source/ui/vba/vbamailmerge.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4; fill-column:100 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  */
   9
  10 #include "vbamailmerge.hxx"
  11
  12 #include <ooo/vba/word/WdMailMergeMainDocType.hpp>
  13
  14 SwVbaMailMerge::SwVbaMailMerge(const css::uno::Reference<ooo::vba::XHelperInterface>& xParent,
  15                                const css::uno::Reference<css::uno::XComponentContext>& xContext)
  16     : SwVbaMailMerge_BASE(xParent, xContext)
  17     , m_nMainDocType(ooo::vba::word::WdMailMergeMainDocType::wdNotAMergeDocument)
  18 {
  19 }
  20
  21 SwVbaMailMerge::~SwVbaMailMerge() {}
  22
  23 rtl::Reference<SwVbaMailMerge> const&
  24 SwVbaMailMerge::get(const css::uno::Reference<ooo::vba::XHelperInterface>& xParent,
  25                     const css::uno::Reference<css::uno::XComponentContext>& xContext)
  26 {
  27     static rtl::Reference<SwVbaMailMerge> xInstance(new SwVbaMailMerge(xParent, xContext));
  28
  29     return xInstance;
  30 }
  31
  32 sal_Int32 SAL_CALL SwVbaMailMerge::getMainDocumentType() { return m_nMainDocType; }
  33
  34 void SAL_CALL SwVbaMailMerge::setMainDocumentType(sal_Int32 _maindocumenttype)
  35 {
  36     m_nMainDocType = _maindocumenttype;
  37 }
  38
  39 // Completely dummy, no-op.
  40 void SAL_CALL SwVbaMailMerge::OpenDataSource(
  41     const OUString&, const css::uno::Any&, const css::uno::Any&, const css::uno::Any&,
  42     const css::uno::Any&, const css::uno::Any&, const css::uno::Any&, const css::uno::Any&,
  43     const css::uno::Any&, const css::uno::Any&, const css::uno::Any&, const css::uno::Any&,
  44     const css::uno::Any&, const css::uno::Any&, const css::uno::Any&, const css::uno::Any&)
  45 {
  46 }
  47
  48 OUString SwVbaMailMerge::getServiceImplName() { return "SwVbaMailMerge"; }
  49
  50 css::uno::Sequence<OUString> SwVbaMailMerge::getServiceNames()
  51 {
  52     static css::uno::Sequence<OUString> const aServiceNames{ "ooo.vba.word.MailMerge" };
  53     return aServiceNames;
  54 }
  55
  56 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */