13/01/06 21:48:08.57
>>638
ならば、これでどうかな
Sub test2()
Dim p As Paragraph
For Each p In ActiveDocument.Paragraphs
If p.Range.Characters(1) = "「" Then
p.CharacterUnitLeftIndent = p.CharacterUnitLeftIndent + p.CharacterUnitFirstLineIndent + 1
p.CharacterUnitFirstLineIndent = -1
End If
Next
End Sub