- サマリ: 実行するたびに「ぶら下がりインデント」を深くしたい（マクロで）
- 環境: Writer
- 状態: 解決
- 投稿者: かつ?
- 投稿日: 2011-04-28 (木) 23:39:31
質問 
マクロを１度実行するごとに、カーソルのある行の「左インデント」の値と、「一行目のインデント」の値を読み取って、ぶら下がりインデントを１２ポイントずつ深くしたいと考え、次のようなマクロを作ってみました。
試してみると、第１段落では思い通りの動作をするのですが、第２段落以降では、繰り返しマクロを実行してインデントをより深くすることができなかったり、第１段落のインデントの深さに連動するような動作になってしまいます。
どこがどうおかしいのか、どう変更すればいいのか、お教えください。
Sub HangIndent
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
oTextCursor = ThisComponent.Text.createTextCursor()
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "LeftRightMargin.TextLeftMargin"
args1(0).Value = oTextCursor.ParaLeftMargin + 423
args1(1).Name = "LeftRightMargin.FirstLineIndent"
args1(1).Value = oTextCursor.ParaFirstLineIndent - 423
dispatcher.executeDispatch(document, ".uno:LeftRightMargin", "", 0, args1())
End Sub
回答
- 動作を確認していませんが、ThisComponent.Text.createTextCursor() では現在のカーソルではなく、ドキュメント中を移動できる見えないカーソルを利用していることになります。表示されているカーソル(ビューカーソル)を利用したければ、OOoBasic/Writer/ViewCursor を参照してください。 -- はにゃ?
- ViewCursor を使うと、思いどおりの動作になりました。ありがとうございました。ちなみに、TextCursor は、単にマクロ起動中に画面上にカーソルの動きが見えないだけ（したがって、マクロにり向いている）と、勘違いしていました。 -- かつ
感想，コメント，メモ
- 操作ミスで、マクロが分断されてしまいました。 -- かつ
- 書式のミスで、マクロが分断されてしまいました。 -- かつ
- 解決です。（ステータスが未解決のままなので念のため） -- かつ
- 勝手に解決にしてもらってかまいません。 -- はにゃ?
