()で始まる段落を2字下げする【素人 Word マクロ】

Microsoft officeのWordVBAでマクロを組みましたので公開します。
インターネットで検索したり、マクロの記録機能を使ったりしたのを組み合わせだけなので、上手くはないですが、一応動くはずです。
office2021です。
必ず、元データのバックアップを取ってから実行してください。
素人の作ったものなので、信用しすぎないでください。

［コード］

Sub 例文2字下げ()
      Dim parag As Paragraph
    
    ' 全ての段落のインデントをリセットする
    For Each parag In ActiveDocument.Paragraphs
        parag.LeftIndent = 0
        parag.FirstLineIndent = 0
        parag.RightIndent = 0
        parag.HangingPunctuation = False
    Next parag
    
    Dim para As Paragraph
    
    For Each para In ActiveDocument.Paragraphs
        If Left(para.Range.Text, 1) = "(" Then
            ' 2字下げが設定されていない場合のみ処理を実行する
            If para.LeftIndent <> InchesToPoints(0.25) Then
                para.LeftIndent = InchesToPoints(0.25)
                para.Format.FirstLineIndent = InchesToPoints(-0.25)
                para.Format.LeftIndent = InchesToPoints(0.5)
            End If
        End If
    Next para

    Dim paras As Paragraph
    
    For Each paras In ActiveDocument.Paragraphs
        If Left(paras.Range.Text, 1) = "【" Then
            ' 2字下げが設定されていない場合のみ処理を実行する
            If paras.LeftIndent <> InchesToPoints(0.25) Then
                paras.LeftIndent = InchesToPoints(0.25)
                paras.Format.LeftIndent = InchesToPoints(0.5)
            End If
        End If
    Next paras
End Sub