21 #include <com/sun/star/text/XParagraphCursor.hpp>
28 SwVbaAutoTextEntry::SwVbaAutoTextEntry(
const uno::Reference< ooo::vba::XHelperInterface >& rParent,
const uno::Reference< uno::XComponentContext >& rContext,
const uno::Reference< text::XAutoTextEntry >& xEntry ) :
42 uno::Reference< text::XTextRange > xTextRange = pWhere->
getXTextRange();
43 xTextRange->setString(
"x" );
44 uno::Reference< text::XTextRange > xEndMarker = xTextRange->getEnd();
45 xEndMarker->setString(
"x" );
46 uno::Reference< text::XText > xText = pWhere->
getXText();
47 mxEntry->applyTo( xEndMarker->getStart() );
48 uno::Reference< text::XTextCursor > xTC = xText->createTextCursorByRange( xTextRange->getStart() );
49 xTC->goRight( 1,
true );
57 uno::Reference< text::XParagraphCursor > xParaCursor( xTC, uno::UNO_QUERY_THROW );
58 if( xParaCursor->isStartOfParagraph() && xParaCursor->isEndOfParagraph() )
63 uno::Reference< text::XTextRange > xCurrentRange( xTC->getEnd(), uno::UNO_SET_THROW );
64 xTVCursor->gotoRange( xCurrentRange,
false );
66 xTVCursor->gotoRange( xEndMarker->getEnd(),
false );
69 xEndMarker->setString(
"" );
70 xTC = xText->createTextCursorByRange( xEndMarker->getEnd() );
73 return uno::Reference< word::XRange >( pWhere );
79 return "SwVbaAutoTextEntry";
82 uno::Sequence< OUString >
87 "ooo.vba.word.AutoTextEntry"
102 uno::Reference< container::XEnumeration >
105 throw uno::RuntimeException(
"Not implemented" );
111 uno::Reference< text::XAutoTextEntry > xEntry( aSource, uno::UNO_QUERY_THROW );
118 return "SwVbaAutoTextEntries";
121 css::uno::Sequence<OUString>
124 static uno::Sequence< OUString >
const sNames
126 "ooo.vba.word.AutoTextEntries"
virtual css::uno::Sequence< OUString > getServiceNames() override
virtual OUString getServiceImplName() override
Sequence< OUString > aServiceNames
const css::uno::Reference< css::text::XText > & getXText() const
virtual OUString getServiceImplName() override
virtual css::uno::Reference< css::text::XTextRange > SAL_CALL getXTextRange() override
uno::Reference< text::XTextViewCursor > getXTextViewCursor(const uno::Reference< frame::XModel > &xModel)
virtual ~SwVbaAutoTextEntry() override
void setXTextCursor(const css::uno::Reference< css::text::XTextCursor > &xTextCursor)
uno::Reference< frame::XModel > getCurrentWordDoc(const uno::Reference< uno::XComponentContext > &xContext)
css::uno::Reference< css::text::XAutoTextEntry > mxEntry
css::uno::Type const & get()
virtual css::uno::Reference< css::container::XEnumeration > SAL_CALL createEnumeration() override
css::uno::Reference< css::uno::XComponentContext > mxContext
virtual css::uno::Type SAL_CALL getElementType() override
virtual css::uno::Sequence< OUString > getServiceNames() override
SwVbaAutoTextEntries(const css::uno::Reference< ov::XHelperInterface > &xParent, const css::uno::Reference< css::uno::XComponentContext > &xContext, const css::uno::Reference< css::container::XIndexAccess > &xIndexAccess)
virtual css::uno::Any createCollectionObject(const css::uno::Any &aSource) override
Reference< XModel > xModel
SwVbaAutoTextEntry(const css::uno::Reference< ooo::vba::XHelperInterface > &rParent, const css::uno::Reference< css::uno::XComponentContext > &rContext, const css::uno::Reference< css::text::XAutoTextEntry > &xEntry)
virtual css::uno::Reference< ooo::vba::word::XRange > SAL_CALL Insert(const css::uno::Reference< ooo::vba::word::XRange > &_where, const css::uno::Any &_richtext) override
void dispatchRequests(const uno::Reference< frame::XModel > &xModel, const OUString &aUrl, const uno::Sequence< beans::PropertyValue > &sProps)
bool m_bDetectedRangeSegmentation false