create a new page, using OOoBasic/Writer/Search as a template.
Front page
Search
掲示板
Reload
Help
Browse Log
掲示板の使い方
OOo 掲示板３
OOo 掲示板２
OOo 掲示板
掲示板
雑談掲示板
New
List of pages
Recent changes
Backup
簡単ヘルプ
整形ルール
Start:
*検索と置換 [#f992c688]
検索と置換はどのドキュメントタイプでも同じです。条件の設...
参照。
#contents
**一つずつ検索 [#x5e8d880]
findFirst メソッドで最初のものを検索します。それ以降は fi...
Sub Search_1
oDoc = ThisComponent
oText = oDoc.getText()
oSearchDesc = oDoc.createSearchDescriptor()
oSearchDesc.SearchString = "a"
oResult = oDoc.findFirst(oSearchDesc)
While NOT IsNull( oResult )
'msgbox oResult.String
oResult = oDoc.findNext(oResult,oSearchDesc)
WEnd
End Sub
**全検索 [#p46cce6a]
findAll メソッドで全検索した場合には戻り値は .container.X...
Sub Search_2
oDoc = ThisComponent
oText = oDoc.getText()
oSearchDesc = oDoc.createSearchDescriptor()
oSearchDesc.SearchString = "a"
oResults = oDoc.findAll(oSearchDesc)
If NOT IsNull(oResults) Then
For i = 0 To oResults.getCount() - 1 Step 1
oResults.getByIndex(i).CharHeight = 15.0
Next
End If
End Sub
**置換 [#q532737a]
置換はメソッドで行う場合には replaceAll メソッドによる一...
Sub Replace_1
Dim oDoc As Object
Dim oReplaceDes As Object
oDoc = ThisComponent
oReplaceDesc = oDoc.createReplaceDescriptor()
With oReplaceDesc
.SearchString = "found"
.ReplaceString = "replaced"
End With
oDoc.replaceAll(oReplaceDesc)
End Sub
[[Calc での置換>OOoBasic/Calc/substituent]]も参照。
**範囲内の検索 [#e3f204f4]
Writer のあるテキスト範囲内を検索したいときには[[テキスト...
このとき、findNext などのメソッドは本文以外のヘッダやフッ...
oText = ThisComponent.getText()
'.... 検索
If EqualUnoObjects( oText, oFound.getText() Then
'同じテキスト範囲にあるもの
End If
End:
*検索と置換 [#f992c688]
検索と置換はどのドキュメントタイプでも同じです。条件の設...
参照。
#contents
**一つずつ検索 [#x5e8d880]
findFirst メソッドで最初のものを検索します。それ以降は fi...
Sub Search_1
oDoc = ThisComponent
oText = oDoc.getText()
oSearchDesc = oDoc.createSearchDescriptor()
oSearchDesc.SearchString = "a"
oResult = oDoc.findFirst(oSearchDesc)
While NOT IsNull( oResult )
'msgbox oResult.String
oResult = oDoc.findNext(oResult,oSearchDesc)
WEnd
End Sub
**全検索 [#p46cce6a]
findAll メソッドで全検索した場合には戻り値は .container.X...
Sub Search_2
oDoc = ThisComponent
oText = oDoc.getText()
oSearchDesc = oDoc.createSearchDescriptor()
oSearchDesc.SearchString = "a"
oResults = oDoc.findAll(oSearchDesc)
If NOT IsNull(oResults) Then
For i = 0 To oResults.getCount() - 1 Step 1
oResults.getByIndex(i).CharHeight = 15.0
Next
End If
End Sub
**置換 [#q532737a]
置換はメソッドで行う場合には replaceAll メソッドによる一...
Sub Replace_1
Dim oDoc As Object
Dim oReplaceDes As Object
oDoc = ThisComponent
oReplaceDesc = oDoc.createReplaceDescriptor()
With oReplaceDesc
.SearchString = "found"
.ReplaceString = "replaced"
End With
oDoc.replaceAll(oReplaceDesc)
End Sub
[[Calc での置換>OOoBasic/Calc/substituent]]も参照。
**範囲内の検索 [#e3f204f4]
Writer のあるテキスト範囲内を検索したいときには[[テキスト...
このとき、findNext などのメソッドは本文以外のヘッダやフッ...
oText = ThisComponent.getText()
'.... 検索
If EqualUnoObjects( oText, oFound.getText() Then
'同じテキスト範囲にあるもの
End If
Page:
