13/01/30 18:28:02.61
>>716修正
Private Sub setIndent()
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