20 #include <ooo/vba/word/WdHeaderFooterIndex.hpp>
21 #include <com/sun/star/beans/XPropertySet.hpp>
22 #include <com/sun/star/text/XText.hpp>
23 #include <com/sun/star/text/XTextDocument.hpp>
24 #include <com/sun/star/drawing/XDrawPageSupplier.hpp>
31 SwVbaHeaderFooter::SwVbaHeaderFooter(
const uno::Reference< ooo::vba::XHelperInterface >& rParent,
const uno::Reference< uno::XComponentContext >& rContext,
const uno::Reference< frame::XModel >& xModel,
const uno::Reference< beans::XPropertySet >& rProps,
bool isHeader, sal_Int32 index ) :
SwVbaHeaderFooter_BASE( rParent, rContext ),
mxModel( xModel ), mxPageStyleProps( rProps ), mbHeader( isHeader ),
mnIndex( index )
53 OUString sPropsNameText;
56 sPropsNameText =
"HeaderText";
60 sPropsNameText =
"FooterText";
62 if(
mnIndex == word::WdHeaderFooterIndex::wdHeaderFooterEvenPages )
64 sPropsNameText +=
"Left";
67 uno::Reference< text::XText > xText(
mxPageStyleProps->getPropertyValue( sPropsNameText ), uno::UNO_QUERY_THROW );
68 uno::Reference< text::XTextDocument > xDocument(
mxModel, uno::UNO_QUERY_THROW );
69 return uno::Reference< word::XRange >(
new SwVbaRange(
this,
mxContext, xDocument, xText->getStart(), xText->getEnd(), xText ) );
76 uno::Reference< drawing::XDrawPageSupplier > xDrawPageSupplier(
mxModel, uno::UNO_QUERY_THROW );
78 uno::Reference< container::XIndexAccess > xIndexAccess( xDrawPageSupplier->getDrawPage(), uno::UNO_QUERY_THROW );
81 return xCol->Item( index,
uno::Any() );
88 return "SwVbaHeaderFooter";
91 uno::Sequence< OUString >
css::uno::Reference< css::frame::XModel2 > mxModel
Sequence< OUString > aServiceNames
css::uno::Reference< css::uno::XComponentContext > mxContext