13/01/06 20:19:42.77
>>630
> かつ、紙の行数や文字数がかわっても自動でなおしてくれるように
の意味がよくわかりませんが、>>634のいうインデントの設定だけでいいのなら、
Sub test()
Dim p As Paragraph
For Each p In ActiveDocument.Paragraphs
If p.Range.Characters(1) = "「" Then
p.LeftIndent = p.LeftIndent + p.FirstLineIndent + p.Range.Characters(1).Font.Size
p.FirstLineIndent = -p.Range.Characters(1).Font.Size
End If
Next
End Sub