OOobbs3/53
質問
マクロを1度実行するごとに、カーソルのある行の「左インデント」の値と、「一行目のインデント」の値を読み取って、ぶら下がりインデントを12ポイントずつ深くしたいと考え、次のようなマクロを作ってみました。 試してみると、第1段落では思い通りの動作をするのですが、第2段落以降では、繰り返しマクロを実行してインデントをより深くすることができなかったり、第1段落のインデントの深さに連動するような動作になってしまいます。 どこがどうおかしいのか、どう変更すればいいのか、お教えください。 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 回答
感想,コメント,メモ
|