1*cdf0e10cSrcweir /*************************************************************************
2*cdf0e10cSrcweir  *
3*cdf0e10cSrcweir  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4*cdf0e10cSrcweir  *
5*cdf0e10cSrcweir  * Copyright 2000, 2010 Oracle and/or its affiliates.
6*cdf0e10cSrcweir  *
7*cdf0e10cSrcweir  * OpenOffice.org - a multi-platform office productivity suite
8*cdf0e10cSrcweir  *
9*cdf0e10cSrcweir  * This file is part of OpenOffice.org.
10*cdf0e10cSrcweir  *
11*cdf0e10cSrcweir  * OpenOffice.org is free software: you can redistribute it and/or modify
12*cdf0e10cSrcweir  * it under the terms of the GNU Lesser General Public License version 3
13*cdf0e10cSrcweir  * only, as published by the Free Software Foundation.
14*cdf0e10cSrcweir  *
15*cdf0e10cSrcweir  * OpenOffice.org is distributed in the hope that it will be useful,
16*cdf0e10cSrcweir  * but WITHOUT ANY WARRANTY; without even the implied warranty of
17*cdf0e10cSrcweir  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18*cdf0e10cSrcweir  * GNU Lesser General Public License version 3 for more details
19*cdf0e10cSrcweir  * (a copy is included in the LICENSE file that accompanied this code).
20*cdf0e10cSrcweir  *
21*cdf0e10cSrcweir  * You should have received a copy of the GNU Lesser General Public License
22*cdf0e10cSrcweir  * version 3 along with OpenOffice.org.  If not, see
23*cdf0e10cSrcweir  * <http://www.openoffice.org/license.html>
24*cdf0e10cSrcweir  * for a copy of the LGPLv3 License.
25*cdf0e10cSrcweir  *
26*cdf0e10cSrcweir  ************************************************************************/
27*cdf0e10cSrcweir #include "vbainformationhelper.hxx"
28*cdf0e10cSrcweir #include <com/sun/star/text/XPageCursor.hpp>
29*cdf0e10cSrcweir #include <com/sun/star/beans/XPropertySet.hpp>
30*cdf0e10cSrcweir #include "wordvbahelper.hxx"
31*cdf0e10cSrcweir #include <docsh.hxx>
32*cdf0e10cSrcweir #include <doc.hxx>
33*cdf0e10cSrcweir #include <vbahelper/vbahelper.hxx>
34*cdf0e10cSrcweir #include <swtypes.hxx>
35*cdf0e10cSrcweir #include <viewsh.hxx>
36*cdf0e10cSrcweir 
37*cdf0e10cSrcweir using namespace ::ooo::vba;
38*cdf0e10cSrcweir using namespace ::com::sun::star;
39*cdf0e10cSrcweir 
40*cdf0e10cSrcweir static const sal_Int32 DEFAULT_PAGE_DISTANCE = 500;
41*cdf0e10cSrcweir 
42*cdf0e10cSrcweir sal_Int32 SwVbaInformationHelper::handleWdActiveEndPageNumber( const css::uno::Reference< css::text::XTextViewCursor >& xTVCursor ) throw( css::uno::RuntimeException )
43*cdf0e10cSrcweir {
44*cdf0e10cSrcweir     uno::Reference< text::XPageCursor > xPageCursor( xTVCursor, uno::UNO_QUERY_THROW );
45*cdf0e10cSrcweir     return xPageCursor->getPage();
46*cdf0e10cSrcweir }
47*cdf0e10cSrcweir 
48*cdf0e10cSrcweir sal_Int32 SwVbaInformationHelper::handleWdNumberOfPagesInDocument( const css::uno::Reference< css::frame::XModel >& xModel ) throw( css::uno::RuntimeException )
49*cdf0e10cSrcweir {
50*cdf0e10cSrcweir     return word::getPageCount( xModel );
51*cdf0e10cSrcweir }
52*cdf0e10cSrcweir 
53*cdf0e10cSrcweir double SwVbaInformationHelper::handleWdVerticalPositionRelativeToPage( const css::uno::Reference< css::frame::XModel >& xModel, const css::uno::Reference< css::text::XTextViewCursor >& xTVCursor ) throw( css::uno::RuntimeException )
54*cdf0e10cSrcweir {
55*cdf0e10cSrcweir     xTVCursor->collapseToStart();
56*cdf0e10cSrcweir     uno::Reference< beans::XPropertySet > xStyleProps( word::getCurrentPageStyle( xModel ), uno::UNO_QUERY_THROW );
57*cdf0e10cSrcweir     sal_Int32 nTopMargin = 0;
58*cdf0e10cSrcweir     xStyleProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("TopMargin") ) ) >>= nTopMargin;
59*cdf0e10cSrcweir     sal_Int32 nCurrentPos = xTVCursor->getPosition().Y;
60*cdf0e10cSrcweir 
61*cdf0e10cSrcweir     sal_Int32 nCurrentPage = handleWdActiveEndPageNumber( xTVCursor );
62*cdf0e10cSrcweir     SwDoc* pDoc = word::getDocShell( xModel )->GetDoc();
63*cdf0e10cSrcweir     ViewShell* pViewSh = pDoc->GetCurrentViewShell();
64*cdf0e10cSrcweir     sal_Int32 nPageHeight = pViewSh ? pViewSh->GetPageSize( nCurrentPage, sal_False ).Height() : 0;
65*cdf0e10cSrcweir     // FIXME: handle multipul page style
66*cdf0e10cSrcweir     // it is very strange that the curros position is incorrect when open Word file.
67*cdf0e10cSrcweir     // e.g. if current cursor in the top left of the text body of the first page without header,
68*cdf0e10cSrcweir     // the top value of current position should be 0, but is 201 when open a Word file.
69*cdf0e10cSrcweir     nCurrentPos = nCurrentPos + nTopMargin - ( DEFAULT_PAGE_DISTANCE + TWIP_TO_MM100( nPageHeight ) ) * (  nCurrentPage - 1  );
70*cdf0e10cSrcweir     return Millimeter::getInPoints( nCurrentPos );
71*cdf0e10cSrcweir }
72