[MS Word/OOo Writer] ユースケースシナリオ(以下UCS)をWordかWriterで作成します。

変更箇所特定のやり方として「青のボールドでUC[0-9]+」を探して、それにシーケンシャル番号をつけるマクロを作ってみました。

Option Explicit

Sub SetAutoNumber()

    Dim i As Integer
    
    ' 先頭行にする
    Selection.GoTo What:=wdGoToLine, _
        Which:=wdGoToFirst, Count:=1, Name:=""
    i = 1
    ' 検索パラメータ
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "UC[0-9]{1,}"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .Font.Color = wdColorBlue
        .Font.Bold = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchFuzzy = False
        .MatchWildcards = True
    
        Do While .Execute
            .Replacement.Text = "UC" & Format(i, "0000")
            .Execute Replace:=wdReplaceOne
            Selection.Collapse Direction:=wdCollapseEnd
            i = i + 1
        Loop
    End With

End Sub

Word 2003しか手元になかったので、2000の場合は少し変更する必要あるかも知れません。

→もし、プロパティが2003専用の場合は、エラーになるので、マクロの記録で検索パターン指定してみて、適宜変更ください。

なお、スタイルで検索する手段もあると思います。

参照で使うハイパーリンクのテキストは、UC0001のような番号を直接記載せずに「こちら」みたいに別テキストを記載する前提です。