xref: /aoo42x/main/sw/source/ui/vba/vbafield.hxx (revision 1d2dbeb0)
1 /**************************************************************
2  *
3  * Licensed to the Apache Software Foundation (ASF) under one
4  * or more contributor license agreements.  See the NOTICE file
5  * distributed with this work for additional information
6  * regarding copyright ownership.  The ASF licenses this file
7  * to you under the Apache License, Version 2.0 (the
8  * "License"); you may not use this file except in compliance
9  * with the License.  You may obtain a copy of the License at
10  *
11  *   http://www.apache.org/licenses/LICENSE-2.0
12  *
13  * Unless required by applicable law or agreed to in writing,
14  * software distributed under the License is distributed on an
15  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16  * KIND, either express or implied.  See the License for the
17  * specific language governing permissions and limitations
18  * under the License.
19  *
20  *************************************************************/
21 
22 
23 #ifndef SW_VBA_FIELD_HXX
24 #define SW_VBA_FIELD_HXX
25 #include <vbahelper/vbahelperinterface.hxx>
26 #include <com/sun/star/text/XTextDocument.hpp>
27 #include <com/sun/star/text/XTextField.hpp>
28 #include <ooo/vba/word/XField.hpp>
29 #include <ooo/vba/word/XFields.hpp>
30 #include <vbahelper/vbacollectionimpl.hxx>
31 
32 typedef InheritedHelperInterfaceImpl1< ooo::vba::word::XField > SwVbaField_BASE;
33 
34 class SwVbaField : public SwVbaField_BASE
35 {
36     css::uno::Reference< css::text::XTextDocument > mxTextDocument;
37     css::uno::Reference< css::text::XTextField > mxTextField;
38 public:
39     SwVbaField( const css::uno::Reference< ooo::vba::XHelperInterface >& rParent, const css::uno::Reference< css::uno::XComponentContext >& rContext, const css::uno::Reference< css::text::XTextDocument >& rDocument, const css::uno::Reference< css::text::XTextField >& xTextField) throw ( css::uno::RuntimeException);
40 
41     // XHelperInterface
42     virtual rtl::OUString& getServiceImplName();
43     virtual css::uno::Sequence<rtl::OUString> getServiceNames();
44 };
45 
46 // *** SwVbaFields ***********************************************
47 
48 typedef CollTestImplHelper< ov::word::XFields > SwVbaFields_BASE;
49 
50 class SwVbaFields : public SwVbaFields_BASE
51 {
52     css::uno::Reference< css::frame::XModel > mxModel;
53     css::uno::Reference< css::lang::XMultiServiceFactory > mxMSF;
54 private:
55     css::uno::Reference< css::text::XTextField > Create_Field_FileName( const rtl::OUString _text ) throw (css::uno::RuntimeException);
56 
57 public:
58     SwVbaFields( const css::uno::Reference< ov::XHelperInterface >& xParent, const css::uno::Reference< css::uno::XComponentContext > & xContext, const css::uno::Reference< css::frame::XModel >& xModel );
59     // XFields
60     virtual css::uno::Reference< ::ooo::vba::word::XField > SAL_CALL Add( const css::uno::Reference< ::ooo::vba::word::XRange >& Range, const css::uno::Any& Type, const css::uno::Any& Text, const css::uno::Any& PreserveFormatting ) throw (css::uno::RuntimeException);
61     virtual sal_Int32 SAL_CALL Update() throw (css::uno::RuntimeException);
62     // XEnumerationAccess
63     virtual css::uno::Type SAL_CALL getElementType() throw (css::uno::RuntimeException);
64     virtual css::uno::Reference< css::container::XEnumeration > SAL_CALL createEnumeration() throw (css::uno::RuntimeException);
65     // ScVbaCollectionBaseImpl
66     virtual css::uno::Any createCollectionObject( const css::uno::Any& aSource );
67 
68     // XHelperInterface
69     virtual rtl::OUString& getServiceImplName();
70     virtual css::uno::Sequence<rtl::OUString> getServiceNames();
71 };
72 
73 #endif
74