- 719 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2013/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
