20 #include <com/sun/star/text/XTextDocument.hpp>
21 #include <com/sun/star/container/XEnumerationAccess.hpp>
24 #include <rtl/ref.hxx>
29 #include <osl/file.hxx>
34 getDocument( uno::Reference< uno::XComponentContext >
const & xContext,
const uno::Reference< text::XTextDocument > &xDoc,
const uno::Any& aApplication )
41 return uno::Any( uno::Reference< word::XDocument > (pWb) );
51 DocumentEnumImpl(
const uno::Reference< XHelperInterface >& xParent,
const uno::Reference< uno::XComponentContext >& xContext,
const uno::Reference< container::XEnumeration >& xEnumeration,
const uno::Any& aApplication ) :
EnumerationHelperImpl( xParent, xContext, xEnumeration ), m_aApplication( aApplication ) {}
53 virtual uno::Any SAL_CALL nextElement( )
override
55 uno::Reference< text::XTextDocument > xDoc( m_xEnumeration->nextElement(), uno::UNO_QUERY_THROW );
56 return getDocument( m_xContext, xDoc, m_aApplication );
71 uno::Reference< container::XEnumeration >
78 uno::Reference< container::XEnumerationAccess > xEnumerationAccess( m_xIndexAccess, uno::UNO_QUERY_THROW );
85 uno::Reference< text::XTextDocument > xDoc( aSource, uno::UNO_QUERY_THROW );
93 if( Template.
hasValue() && ( Template >>= sFileName ) )
95 return Open( sFileName,
uno::Any(),
uno::Any(),
uno::Any(),
uno::Any(),
uno::Any(),
uno::Any(),
uno::Any(),
uno::Any(),
uno::Any(),
uno::Any(),
uno::Any(),
uno::Any(),
uno::Any(),
uno::Any(),
uno::Any());
97 uno::Reference <text::XTextDocument> xTextDoc( createDocument() , uno::UNO_QUERY_THROW );
110 SwVbaDocuments::Open(
const OUString& Filename,
const uno::Any& ,
const uno::Any& ReadOnly,
const uno::Any& ,
const uno::Any& ,
const uno::Any& ,
const uno::Any& ,
const uno::Any& ,
const uno::Any& ,
const uno::Any& ,
const uno::Any& ,
const uno::Any& ,
const uno::Any& ,
const uno::Any& ,
const uno::Any& ,
const uno::Any& )
112 SAL_INFO(
"sw.vba",
"Documents.Open(Filename:=" << Filename <<
",ReadOnly:=" << ReadOnly <<
")");
118 bool bIsURL = aObj.
GetProtocol() != INetProtocol::NotValid;
122 osl::FileBase::getFileURLFromSystemPath( Filename, aURL );
124 uno::Reference <text::XTextDocument> xSpreadDoc( openDocument( Filename, ReadOnly, {}), uno::UNO_QUERY_THROW );
126 uno::Reference< word::XDocument > xDocument( aRet, uno::UNO_QUERY );
127 if ( xDocument.is() )
128 xDocument->Activate();
133 SwVbaDocuments::OpenNoRepairDialog(
const OUString& Filename,
const uno::Any& ConfirmConversions,
const uno::Any& ReadOnly,
const uno::Any& AddToRecentFiles,
const uno::Any& PasswordDocument,
const uno::Any& PasswordTemplate,
const uno::Any& Revert,
const uno::Any& WritePasswordDocument,
const uno::Any& WritePasswordTemplate,
const uno::Any& Format,
const uno::Any& Encoding,
const uno::Any& Visible,
const uno::Any& OpenAndRepair,
const uno::Any& DocumentDirection,
const uno::Any& NoEncodingDialog,
const uno::Any& XMLTransform )
135 return Open( Filename, ConfirmConversions, ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format, Encoding, Visible, OpenAndRepair, DocumentDirection, NoEncodingDialog, XMLTransform );
141 return Open( FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format,
uno::Any(),
uno::Any(),
uno::Any(),
uno::Any(),
uno::Any(),
uno::Any() );
147 return "SwVbaDocuments";
150 uno::Sequence<OUString>
153 static uno::Sequence< OUString >
const sNames
155 "ooo.vba.word.Documents"
virtual css::uno::Any createCollectionObject(const css::uno::Any &aSource) override
virtual void SAL_CALL Close(const css::uno::Any &SaveChanges, const css::uno::Any &OriginalFormat, const css::uno::Any &RouteDocument) override
WeakReference< XInterface > mxParent
virtual css::uno::Sequence< OUString > getServiceNames() override
virtual css::uno::Type SAL_CALL getElementType() override
virtual css::uno::Reference< css::container::XEnumeration > SAL_CALL createEnumeration() override
virtual css::uno::Any SAL_CALL OpenOld(const OUString &FileName, const css::uno::Any &ConfirmConversions, const css::uno::Any &ReadOnly, const css::uno::Any &AddToRecentFiles, const css::uno::Any &PasswordDocument, const css::uno::Any &PasswordTemplate, const css::uno::Any &Revert, const css::uno::Any &WritePasswordDocument, const css::uno::Any &WritePasswordTemplate, const css::uno::Any &Format) override
css::uno::Type const & get()
SwVbaDocuments(const css::uno::Reference< ov::XHelperInterface > &xParent, const css::uno::Reference< css::uno::XComponentContext > &xContext)
virtual css::uno::Any SAL_CALL Add(const css::uno::Any &Template, const css::uno::Any &NewTemplate, const css::uno::Any &DocumentType, const css::uno::Any &Visible) override
bool SetURL(std::u16string_view rTheAbsURIRef, EncodeMechanism eMechanism=EncodeMechanism::WasEncoded, rtl_TextEncoding eCharset=RTL_TEXTENCODING_UTF8)
static uno::Any getDocument(uno::Reference< uno::XComponentContext > const &xContext, const uno::Reference< text::XTextDocument > &xDoc, const uno::Any &aApplication)
#define SAL_INFO(area, stream)
INetProtocol GetProtocol() const
virtual css::uno::Any SAL_CALL Open(const OUString &Filename, const css::uno::Any &ConfirmConversions, const css::uno::Any &ReadOnly, const css::uno::Any &AddToRecentFiles, const css::uno::Any &PasswordDocument, const css::uno::Any &PasswordTemplate, const css::uno::Any &Revert, const css::uno::Any &WritePasswordDocument, const css::uno::Any &WritePasswordTemplate, const css::uno::Any &Format, const css::uno::Any &Encoding, const css::uno::Any &Visible, const css::uno::Any &OpenAndRepair, const css::uno::Any &DocumentDirection, const css::uno::Any &NoEncodingDialog, const css::uno::Any &XMLTransform) override
virtual css::uno::Any SAL_CALL OpenNoRepairDialog(const OUString &Filename, const css::uno::Any &ConfirmConversions, const css::uno::Any &ReadOnly, const css::uno::Any &AddToRecentFiles, const css::uno::Any &PasswordDocument, const css::uno::Any &PasswordTemplate, const css::uno::Any &Revert, const css::uno::Any &WritePasswordDocument, const css::uno::Any &WritePasswordTemplate, const css::uno::Any &Format, const css::uno::Any &Encoding, const css::uno::Any &Visible, const css::uno::Any &OpenAndRepair, const css::uno::Any &DocumentDirection, const css::uno::Any &NoEncodingDialog, const css::uno::Any &XMLTransform) override
virtual OUString getServiceImplName() override
cppu::ImplInheritanceHelper< VbaDocumentsBase, ov::word::XDocuments > SwVbaDocuments_BASE