1*b1cdbd2cSJim Jagielski<?xml version="1.0" encoding="UTF-8"?> 2*b1cdbd2cSJim Jagielski<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3*b1cdbd2cSJim Jagielski<!--*********************************************************** 4*b1cdbd2cSJim Jagielski * 5*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one 6*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file 7*b1cdbd2cSJim Jagielski * distributed with this work for additional information 8*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file 9*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the 10*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance 11*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at 12*b1cdbd2cSJim Jagielski * 13*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0 14*b1cdbd2cSJim Jagielski * 15*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing, 16*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an 17*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 18*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the 19*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations 20*b1cdbd2cSJim Jagielski * under the License. 21*b1cdbd2cSJim Jagielski * 22*b1cdbd2cSJim Jagielski ***********************************************************--> 23*b1cdbd2cSJim Jagielski<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Find" script:language="StarBasic">' *** MODULE FIND *** 24*b1cdbd2cSJim Jagielski 25*b1cdbd2cSJim JagielskiDim oDialog AS Object 26*b1cdbd2cSJim JagielskiDim document AS Object 27*b1cdbd2cSJim JagielskiDim Found(0) As Object 28*b1cdbd2cSJim JagielskiDim nPos As Integer 29*b1cdbd2cSJim Jagielski 30*b1cdbd2cSJim Jagielski'======================================================= 31*b1cdbd2cSJim Jagielski' Main 32*b1cdbd2cSJim Jagielski'------------------------------------------------------- 33*b1cdbd2cSJim Jagielski' Calls the Find routine to search in fields 34*b1cdbd2cSJim Jagielski'======================================================= 35*b1cdbd2cSJim JagielskiSub Main 36*b1cdbd2cSJim Jagielski 37*b1cdbd2cSJim Jagielski If not IsHelpFile Then 38*b1cdbd2cSJim Jagielski msgbox(strErr_NoHelpFile) 39*b1cdbd2cSJim Jagielski Exit Sub 40*b1cdbd2cSJim Jagielski End If 41*b1cdbd2cSJim Jagielski 42*b1cdbd2cSJim Jagielski BasicLibraries.LoadLibrary("HelpAuthoring") 43*b1cdbd2cSJim Jagielski oDialog = LoadDialog("HelpAuthoring", "dlgFind") 44*b1cdbd2cSJim Jagielski 45*b1cdbd2cSJim Jagielski oDoc = StarDesktop.CurrentComponent 46*b1cdbd2cSJim Jagielski Enum = oDoc.Text.createEnumeration 47*b1cdbd2cSJim Jagielski 48*b1cdbd2cSJim Jagielski LastSearchTerm = ReadConfig("SearchTerm") 49*b1cdbd2cSJim Jagielski If LastSearchTerm <> "" Then 50*b1cdbd2cSJim Jagielski oTxtFind = oDialog.GetControl("txtFind") 51*b1cdbd2cSJim Jagielski oTxtFind.Text = LastSearchTerm 52*b1cdbd2cSJim Jagielski End If 53*b1cdbd2cSJim Jagielski 54*b1cdbd2cSJim Jagielski If oDialog.execute() = 1 Then 55*b1cdbd2cSJim Jagielski oTxtFind = oDialog.GetControl("txtFind") 56*b1cdbd2cSJim Jagielski sFind = oTxtFind.Text 57*b1cdbd2cSJim Jagielski WriteConfig("SearchTerm",sFind) 58*b1cdbd2cSJim Jagielski 59*b1cdbd2cSJim Jagielski Do While Enum.hasMoreElements 60*b1cdbd2cSJim Jagielski TE = Enum.nextElement 61*b1cdbd2cSJim Jagielski If TE.supportsService("com.sun.star.text.Paragraph") Then 62*b1cdbd2cSJim Jagielski TP = TE.createEnumeration 63*b1cdbd2cSJim Jagielski While TP.hasmoreElements 64*b1cdbd2cSJim Jagielski TPE = TP.nextElement 65*b1cdbd2cSJim Jagielski If TPE.supportsService("com.sun.star.text.TextField") Then 66*b1cdbd2cSJim Jagielski If Instr(TPE.String, sFind) Then 67*b1cdbd2cSJim Jagielski sDim = ubound(Found())+1 68*b1cdbd2cSJim Jagielski Redim Preserve Found(sDim) As Object 69*b1cdbd2cSJim Jagielski Found(sDim) = TPE.TextField.getAnchor.getText.createTextCursorbyRange(TPE.TextField.getAnchor) 70*b1cdbd2cSJim Jagielski End If 71*b1cdbd2cSJim Jagielski End If 72*b1cdbd2cSJim Jagielski Wend 73*b1cdbd2cSJim Jagielski ElseIf TE.supportsService("com.sun.star.text.TextTable") Then 74*b1cdbd2cSJim Jagielski CellName = "A1" 75*b1cdbd2cSJim Jagielski Cell = TE.getCellByName(CellName) 76*b1cdbd2cSJim Jagielski tmpCellEnum = Cell.createEnumeration 77*b1cdbd2cSJim Jagielski tmpCellElement = tmpCellEnum.nextElement 78*b1cdbd2cSJim Jagielski 79*b1cdbd2cSJim Jagielski Rows = TE.getRows 80*b1cdbd2cSJim Jagielski Cols = TE.getColumns 81*b1cdbd2cSJim Jagielski 82*b1cdbd2cSJim Jagielski For RowIndex = 1 to Rows.getCount() 83*b1cdbd2cSJim Jagielski For ColIndex = 1 to Cols.getCount() 84*b1cdbd2cSJim Jagielski CellName = Chr(64 + ColIndex) & RowIndex 85*b1cdbd2cSJim Jagielski Cell = TE.getCellByName(CellName) 86*b1cdbd2cSJim Jagielski CellEnum = Cell.createEnumeration 87*b1cdbd2cSJim Jagielski 88*b1cdbd2cSJim Jagielski Do While CellEnum.hasMoreElements 89*b1cdbd2cSJim Jagielski 90*b1cdbd2cSJim Jagielski CellElement = CellEnum.nextElement 91*b1cdbd2cSJim Jagielski 92*b1cdbd2cSJim Jagielski If CellElement.supportsService("com.sun.star.text.Paragraph") Then 93*b1cdbd2cSJim Jagielski TP = CellElement.createEnumeration 94*b1cdbd2cSJim Jagielski While TP.hasmoreElements 95*b1cdbd2cSJim Jagielski TPE = TP.nextElement 96*b1cdbd2cSJim Jagielski If TPE.supportsService("com.sun.star.text.TextField") Then 97*b1cdbd2cSJim Jagielski If Instr(TPE.String, sFind) Then 98*b1cdbd2cSJim Jagielski sDim = ubound(Found())+1 99*b1cdbd2cSJim Jagielski Redim Preserve Found(sDim) As Object 100*b1cdbd2cSJim Jagielski Found(sDim) = TPE.TextField.getAnchor.getText.createTextCursorbyRange(TPE.TextField.getAnchor) 101*b1cdbd2cSJim Jagielski End If 102*b1cdbd2cSJim Jagielski End If 103*b1cdbd2cSJim Jagielski Wend 104*b1cdbd2cSJim Jagielski EndIf 105*b1cdbd2cSJim Jagielski 106*b1cdbd2cSJim Jagielski Loop 107*b1cdbd2cSJim Jagielski 108*b1cdbd2cSJim Jagielski Next 109*b1cdbd2cSJim Jagielski Next 110*b1cdbd2cSJim Jagielski 111*b1cdbd2cSJim Jagielski EndIf 112*b1cdbd2cSJim Jagielski Loop 113*b1cdbd2cSJim Jagielski 114*b1cdbd2cSJim Jagielski If ubound(Found()) < 1 Then 115*b1cdbd2cSJim Jagielski msgbox "Nothing found" 116*b1cdbd2cSJim Jagielski ElseIf ubound(Found()) > 1 Then 117*b1cdbd2cSJim Jagielski nPos = 1 118*b1cdbd2cSJim Jagielski thiscomponent.getcurrentcontroller.select(Found(1)) 119*b1cdbd2cSJim Jagielski oDialog = LoadDialog("HelpAuthoring", "dlgRepeatFind") 120*b1cdbd2cSJim Jagielski oPrev = oDialog.GetControl("butPrev") 121*b1cdbd2cSJim Jagielski oPrev.Enable = FALSE 122*b1cdbd2cSJim Jagielski oDialog.Execute() 123*b1cdbd2cSJim Jagielski Else 124*b1cdbd2cSJim Jagielski thiscomponent.getcurrentcontroller.select(Found(1)) 125*b1cdbd2cSJim Jagielski End If 126*b1cdbd2cSJim Jagielski End If 127*b1cdbd2cSJim JagielskiEnd Sub 128*b1cdbd2cSJim Jagielski 129*b1cdbd2cSJim Jagielski'======================================================= 130*b1cdbd2cSJim Jagielski' FindNext 131*b1cdbd2cSJim Jagielski'------------------------------------------------------- 132*b1cdbd2cSJim Jagielski' Goes to the next search result position. 133*b1cdbd2cSJim Jagielski'======================================================= 134*b1cdbd2cSJim JagielskiSub FindNext 135*b1cdbd2cSJim Jagielski If nPos < ubound(Found()) Then 136*b1cdbd2cSJim Jagielski nPos = nPos + 1 137*b1cdbd2cSJim Jagielski thiscomponent.getcurrentcontroller.select(Found(nPos)) 138*b1cdbd2cSJim Jagielski If nPos = ubound(Found()) Then 139*b1cdbd2cSJim Jagielski oNext = oDialog.GetControl("butNext") 140*b1cdbd2cSJim Jagielski oNext.Enable = FALSE 141*b1cdbd2cSJim Jagielski End If 142*b1cdbd2cSJim Jagielski If nPos > 1 Then 143*b1cdbd2cSJim Jagielski oPrev = oDialog.GetControl("butPrev") 144*b1cdbd2cSJim Jagielski oPrev.Enable = TRUE 145*b1cdbd2cSJim Jagielski End If 146*b1cdbd2cSJim Jagielski End If 147*b1cdbd2cSJim JagielskiEnd Sub 148*b1cdbd2cSJim Jagielski 149*b1cdbd2cSJim Jagielski'======================================================= 150*b1cdbd2cSJim Jagielski' FindPrev 151*b1cdbd2cSJim Jagielski'------------------------------------------------------- 152*b1cdbd2cSJim Jagielski' Goes to the previous search result position. 153*b1cdbd2cSJim Jagielski'======================================================= 154*b1cdbd2cSJim JagielskiSub FindPrev 155*b1cdbd2cSJim Jagielski If nPos > 1 Then 156*b1cdbd2cSJim Jagielski nPos = nPos - 1 157*b1cdbd2cSJim Jagielski thiscomponent.getcurrentcontroller.select(Found(nPos)) 158*b1cdbd2cSJim Jagielski If nPos = 1 Then 159*b1cdbd2cSJim Jagielski oPrev = oDialog.GetControl("butPrev") 160*b1cdbd2cSJim Jagielski oPrev.Enable = FALSE 161*b1cdbd2cSJim Jagielski End If 162*b1cdbd2cSJim Jagielski If nPos < ubound(Found()) Then 163*b1cdbd2cSJim Jagielski oNext = oDialog.GetControl("butNext") 164*b1cdbd2cSJim Jagielski oNext.Enable = TRUE 165*b1cdbd2cSJim Jagielski End If 166*b1cdbd2cSJim Jagielski End If 167*b1cdbd2cSJim JagielskiEnd Sub 168*b1cdbd2cSJim Jagielski 169*b1cdbd2cSJim Jagielski</script:module> 170