Top > OOobbs2 > 27

OOobbs2/27 Edit

  • サマリ: 文字のポイント数を取得したい
  • 環境: Writer
  • 状態: 解決
  • 投稿者: sato?
  • 投稿日: 2007-02-09 (金) 14:09:02

質問 Edit

ドキュメントで指定している文字(日本語)のポイント数を取得したいのですが教えていただけませんか。お願いします。

回答 Edit

  • ドキュメントで指定している段落スタイルの日本語の文字のサイズが、ドキュメントで普通に使用される文字のサイズになります。

使用している段落スタイルが標準のときには次のようにします。

Sub Main
Dim oDoc As Object, oStyleFamilies As Object
Dim oParagraphStyles As Object, oParagraphStyle As Object
  oDoc = ThisComponent
  oStyleFamilies = oDoc.StyleFamilies
  oParagraphStyles = oStyleFamilies.getByName("ParagraphStyles")
  oParagraphStyle = oParagraphStyles.getByName("標準")
  nSize = oParagraphStyle.CharHeightAsian
End Sub

CharHeightAsian プロパティの単位はポイントです。

  • はにゃ?? 2007-02-15 (木) 04:30:11
  • ありがとうございます。これで文字間隔を広げるを利用した均等割付マクロに近づけます。 -- sato? 2007-02-15 (木) 08:48:12

感想,コメント,メモ Edit



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