OOobbs/8
質問writerで画面に入りきらないような縦長の画像を使用すると 解決には、ビューカーソルオブジェクトの .screenUp() メソッドを '==================================== ' 先頭ページの一番上を画面に表示する '==================================== Sub SubViewDocumentTop() dim document as Object ' 対象となる文書 dim oText as Object ' 文書内のテキスト dim oCursor as Object ' テキストカーソル dim oViewCursor as Object ' 表示位置のカーソル dim ix as integer ' カウンタ '------------------------------ ' 各カーソルオブジェクトを取得 '------------------------------ document = ThisComponent oText = document.Text oCursor = oText.createTextCursor oViewCursor = document.CurrentController.getViewCursor() '------------------------ ' カーソル表示位置の修正 '------------------------ oCursor.gotoStart(false) oViewCursor.jumpToFirstPage '------------------------------------------------------------------ ' 画面をページの先頭にスクロールアップ ' (スクロールアップできなくなるまで .screenUp() メソッドを実行) '------------------------------------------------------------------ while oViewCursor.screenUp() and ix<50 ix = ix + 1 wend End Sub 回答 |