1*efeef26fSAndrew Rist /************************************************************** 2cdf0e10cSrcweir * 3*efeef26fSAndrew Rist * Licensed to the Apache Software Foundation (ASF) under one 4*efeef26fSAndrew Rist * or more contributor license agreements. See the NOTICE file 5*efeef26fSAndrew Rist * distributed with this work for additional information 6*efeef26fSAndrew Rist * regarding copyright ownership. The ASF licenses this file 7*efeef26fSAndrew Rist * to you under the Apache License, Version 2.0 (the 8*efeef26fSAndrew Rist * "License"); you may not use this file except in compliance 9*efeef26fSAndrew Rist * with the License. You may obtain a copy of the License at 10cdf0e10cSrcweir * 11*efeef26fSAndrew Rist * http://www.apache.org/licenses/LICENSE-2.0 12cdf0e10cSrcweir * 13*efeef26fSAndrew Rist * Unless required by applicable law or agreed to in writing, 14*efeef26fSAndrew Rist * software distributed under the License is distributed on an 15*efeef26fSAndrew Rist * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16*efeef26fSAndrew Rist * KIND, either express or implied. See the License for the 17*efeef26fSAndrew Rist * specific language governing permissions and limitations 18*efeef26fSAndrew Rist * under the License. 19cdf0e10cSrcweir * 20*efeef26fSAndrew Rist *************************************************************/ 21*efeef26fSAndrew Rist 22*efeef26fSAndrew Rist 23cdf0e10cSrcweir #include "vbainformationhelper.hxx" 24cdf0e10cSrcweir #include <com/sun/star/text/XPageCursor.hpp> 25cdf0e10cSrcweir #include <com/sun/star/beans/XPropertySet.hpp> 26cdf0e10cSrcweir #include "wordvbahelper.hxx" 27cdf0e10cSrcweir #include <docsh.hxx> 28cdf0e10cSrcweir #include <doc.hxx> 29cdf0e10cSrcweir #include <vbahelper/vbahelper.hxx> 30cdf0e10cSrcweir #include <swtypes.hxx> 31cdf0e10cSrcweir #include <viewsh.hxx> 32cdf0e10cSrcweir 33cdf0e10cSrcweir using namespace ::ooo::vba; 34cdf0e10cSrcweir using namespace ::com::sun::star; 35cdf0e10cSrcweir 36cdf0e10cSrcweir static const sal_Int32 DEFAULT_PAGE_DISTANCE = 500; 37cdf0e10cSrcweir 38cdf0e10cSrcweir sal_Int32 SwVbaInformationHelper::handleWdActiveEndPageNumber( const css::uno::Reference< css::text::XTextViewCursor >& xTVCursor ) throw( css::uno::RuntimeException ) 39cdf0e10cSrcweir { 40cdf0e10cSrcweir uno::Reference< text::XPageCursor > xPageCursor( xTVCursor, uno::UNO_QUERY_THROW ); 41cdf0e10cSrcweir return xPageCursor->getPage(); 42cdf0e10cSrcweir } 43cdf0e10cSrcweir 44cdf0e10cSrcweir sal_Int32 SwVbaInformationHelper::handleWdNumberOfPagesInDocument( const css::uno::Reference< css::frame::XModel >& xModel ) throw( css::uno::RuntimeException ) 45cdf0e10cSrcweir { 46cdf0e10cSrcweir return word::getPageCount( xModel ); 47cdf0e10cSrcweir } 48cdf0e10cSrcweir 49cdf0e10cSrcweir double SwVbaInformationHelper::handleWdVerticalPositionRelativeToPage( const css::uno::Reference< css::frame::XModel >& xModel, const css::uno::Reference< css::text::XTextViewCursor >& xTVCursor ) throw( css::uno::RuntimeException ) 50cdf0e10cSrcweir { 51cdf0e10cSrcweir xTVCursor->collapseToStart(); 52cdf0e10cSrcweir uno::Reference< beans::XPropertySet > xStyleProps( word::getCurrentPageStyle( xModel ), uno::UNO_QUERY_THROW ); 53cdf0e10cSrcweir sal_Int32 nTopMargin = 0; 54cdf0e10cSrcweir xStyleProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("TopMargin") ) ) >>= nTopMargin; 55cdf0e10cSrcweir sal_Int32 nCurrentPos = xTVCursor->getPosition().Y; 56cdf0e10cSrcweir 57cdf0e10cSrcweir sal_Int32 nCurrentPage = handleWdActiveEndPageNumber( xTVCursor ); 58cdf0e10cSrcweir SwDoc* pDoc = word::getDocShell( xModel )->GetDoc(); 59cdf0e10cSrcweir ViewShell* pViewSh = pDoc->GetCurrentViewShell(); 60cdf0e10cSrcweir sal_Int32 nPageHeight = pViewSh ? pViewSh->GetPageSize( nCurrentPage, sal_False ).Height() : 0; 61cdf0e10cSrcweir // FIXME: handle multipul page style 62cdf0e10cSrcweir // it is very strange that the curros position is incorrect when open Word file. 63cdf0e10cSrcweir // e.g. if current cursor in the top left of the text body of the first page without header, 64cdf0e10cSrcweir // the top value of current position should be 0, but is 201 when open a Word file. 65cdf0e10cSrcweir nCurrentPos = nCurrentPos + nTopMargin - ( DEFAULT_PAGE_DISTANCE + TWIP_TO_MM100( nPageHeight ) ) * ( nCurrentPage - 1 ); 66cdf0e10cSrcweir return Millimeter::getInPoints( nCurrentPos ); 67cdf0e10cSrcweir } 68