[マクロ]定款・契約書等の条文番号をリナンバーするWordマクロ

ChatGPT とのやり取りで、条文の追加・削除後に条数だけを振り直す Word マクロを作った。
備忘録がてら、最終版コードとやり取りの要点をシェアします。

この記事で紹介するWordマクロの概要

• 行頭の「第１条」「第10条」 … と続く条文番号を自動で振り直す。（本文中の「第◯条」には反応しません）
• 1〜9 は全角、10 以上は半角で出力
• 段落スタイル／ぶら下げインデント／フォントをいじらない

完成したマクロ

一応、ご利用は自己責任でお願いします。

'========================
Sub RenumberArticlesSafe()

    Dim para As Paragraph, pRng As Range, numRng As Range
    Dim re As Object, m As Object
    Dim idx As Long
    Dim sPos As Long, ePos As Long      '数字部分の範囲

    Application.ScreenUpdating = False  '高速化＆画面チラつき防止

    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "^第([０-９0-9]+)条"   '行頭だけヒット
    re.Global = False

    idx = 1                              '新しい条番号

    For Each para In ActiveDocument.Paragraphs
        Set pRng = para.Range
        If re.test(pRng.Text) Then
            Set m = re.Execute(pRng.Text)(0)
            '「第」の直後〜「条」の直前を数値 Range として切り出す
            sPos = m.FirstIndex + 2              '0-based→1-based, かつ「第」を避けて+1
            ePos = sPos + Len(m.SubMatches(0))

            Set numRng = pRng.Duplicate
            numRng.Start = pRng.Start + sPos - 1
            numRng.End   = pRng.Start + ePos  - 1

            '数字だけ置換（既存の文字書式を保持）
            numRng.Text = FormatArticleNum(idx)
            idx = idx + 1
        End If
    Next para

    Application.ScreenUpdating = True
    MsgBox idx - 1 & " 本の条文番号を振り直しました。", vbInformation
End Sub

'1〜9→全角、10 以上→半角
Private Function FormatArticleNum(n As Long) As String
    If n <= 9 Then
        FormatArticleNum = ToFullWidth(n)
    Else
        FormatArticleNum = CStr(n)
    End If
End Function

'半角を全角に変換
Private Function ToFullWidth(n As Long) As String
    Dim s As String, i As Long
    For i = 1 To Len(CStr(n))
        s = s & ChrW(AscW(Mid$(CStr(n), i, 1)) + &HFEE0)
    Next i
    ToFullWidth = s
End Function
'========================

ChatGPTとのやり取り

編集後記

この記事の本文もChatGPTに提案させたものをベースを構成してみたが、「やり取りの要点を」と指示したのにやり取りの過程はスルーされていたため、そこは仕方無く手作業でコピペして構成した。
やり取りを構成する中で振り返って見ると、日本語の指示だけでは思うように進められず、人間が頭を使ってデバッグしないと状況打破できなかった箇所もあったことも思い出した。
そして実行するとフリーズするような成果物に「完全版マクロ」などと命名するあたり、狂気を感じるというか、軽薄というか。

関連記事

[マクロ]初心者でも「自動記録マクロ」を使えば様々な作業を自動化できる | 流れるような一日を

ChatGPTにコードを書かせて動かなかった場合、今回のように人間がデバッグできないと動く物にならないこともあるが、自動記録マクロならそこまでの知識が無くても使い始められると思う。
作業を記録してみて、コードを開いて見ると、この行はこういう操作に該当してるんだな、とわかるようになってきたりするし、慣れれば自動記録マクロを切り貼りして組み立てたりもできるようになると思う。