如何使用OObasic在電子表格中查找文本？

Question

在OpenOffice文檔[1]中，我找到了一個替換示例。但我沒有找到一個搜索範例。

，更好的：我在哪裏可以找到列出的範圍內/單元的可能方法的文檔？

[1] http://wiki.openoffice.org/wiki/Documentation/BASIC_Guide/Editing_Spreadsheet_Documents

Answer 1

首先：https://wiki.openoffice.org/wiki/Extensions_development_basic是一個很好的起點。特別是XRAY工具非常有用。

下面的代碼顯示了搜索例如：

Dim oDoc As Object 
Dim oSheet As Object 
Dim oSearchDescriptor As Object 
Dim i As Integer 

oDoc = ThisComponent 
oSheet = oDoc.Sheets(0) 

oSearchDescriptor = oSheet.createSearchDescriptor() 
oSearchDescriptor.SearchString = "is" 
For i = 0 to oDoc.Sheets.Count - 1 
    oSheet = oDoc.Sheets(i) 
    oResults = oSheet.findAll(oSearchDescriptor) 
    'xray oResults 
    if not isnull(oResults) then msgbox oResults.AbsoluteName 
Next i 

如果您已經安裝XRAY，你可以檢查它的每一個對象，你可以訪問相關的API文檔。

問候

阿克塞爾