0

OpenOffice のドキュメント [1] で、置換の例を見つけました。しかし、検索例は見つかりませんでした。

Dim Doc As Object
Dim Sheet As Object
Dim ReplaceDescriptor As Object
Dim I As Integer

Doc = ThisComponent
Sheet = Doc.Sheets(0)

ReplaceDescriptor = Sheet.createReplaceDescriptor()
ReplaceDescriptor.SearchString = "is"
ReplaceDescriptor.ReplaceString = "was"
For I = 0 to Doc.Sheets.Count - 1
   Sheet = Doc.Sheets(I)
   Sheet.ReplaceAll(ReplaceDescriptor) 
Next I

さらに良い:範囲/セルの可能な方法をリストしたドキュメントはどこにありますか?

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

4

1 に答える 1

0

まず第一に: 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 がインストールされている場合は、XRAY を使用してすべてのオブジェクトを検査でき、関連する API ドキュメントにアクセスできます。

ご挨拶

アクセル

于 2014-08-07T17:17:54.020 に答える