Top > OOobbs > 87

OOobbs/87 Edit

  • サマリ: char属性での検索・置換
  • 環境: Writer
  • 状態: 解決
  • 投稿者: pierre?
  • 投稿日: 2005-12-30 (金) 15:32:25

質問 Edit

Writerにおいて、SearchDescriptorやReplaceDescriptorを使って検索・置換をするときに、検索textの属性や置換textの属性の指定はどのようにすればよいのでしょうか。 宜しくお願い致します。

回答 Edit

  • Developer's Guid の 7.3.3 に記載がありました。えっと・・・ -- はにゃ?? 2006-01-18 (水) 23:57:38
  • 以下のようにして、Boldの"Search"をUnderlineの"Replace"に置換することができました。 ありがとうございました。
		Dim Doc As Object
		Dim Repl As Object
				
		Doc = thisComponent
		Repl = Doc.createReplaceDescriptor
		Repl.SearchString = "Search"
		Repl.ReplaceString = "Replace"
		Repl.SearchRegularExpression = True
				
	      Dim sa(0) As New com.sun.star.beans.PropertyValue
		sa(0).Name = "CharWeight"
		sa(0).Value = com.sun.star.awt.FontWeight.BOLD
		Dim ra(0) As New com.sun.star.beans.PropertyValue
		ra(0).Name = "CharUnderline"
		ra(0).Value = com.sun.star.awt.FontUnderline.SINGLE
				
		Repl.SearchAttributes=sa()
		Repl.ReplaceAttributes=ra()
		
		Doc.replaceAll(Repl)

-- pierre? 2006-01-19 (木) 17:30:07



Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes