明細書段落番号自動置換マクロとその登録手順　（Word97）

●下準備

マクロコード

Sub 段落番号置換()
' 段落番号置換マクロ
' 作成日 03/08/23 作成者岡田
'------------------------------------------------------------------------------
' 文書中の【＃＃＃＃】を検索し、＃＃＃＃を連番に置き換えます。
' ＃＃＃＃は任意の４桁の数字です。
'------------------------------------------------------------------------------
Dim AddStr
Dim Num
Dim Flg_Conv
Dim Msg_Title
Msg_Title = "おしらせ"
Num = 1
Flg_Conv = 0
Set myRange = ActiveDocument.Range()
With myRange.Find
.ClearFormatting
.Text = "【^#^#^#^#】"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
Do While .Execute = True
With .Parent
Flg_Conv = 1
.Delete
AddStr = "【" + StrConv(Format(Num, "0000"), vbWide) + "】"
.Font.Reset
.InsertAfter (AddStr)
.Move
End With
Num = Num + 1
Loop
End With
If Flg_Conv = 1 Then
MsgBox StrConv(Num - 1, vbWide) + "個の段落番号を置換しました。", , Msg_Title
Else
MsgBox "段落番号が見あたりません。", , Msg_Title
End If
End Sub

　←このマクロコード（赤文字）をすべて選択し
　右クリックメニューから「コピー」を選択します。　

●マクロの登録

Step 1　

　まず、Word97を起動します。

　次に、「Ａｌｔ」キーと「Ｆ１１」キーを同時に押して
　←左の画面（Microsoft Visual Basic）を開き

　「Normal」の上で右クリックしてください。

Step 2　

　右クリックメニューの「挿入」→「標準モジュール」を選択します。

Step 3　

　←赤枠内のコード入力画面が表示されます。

Step 4　

　コード入力画面内を右クリックして
　メニューの「貼り付け」を選択します。

Step 5 　

　下準備のときにコピーしておいたマクロコードが貼り付けられます。
　これでマクロが登録されました。

　「Ａｌｔ」キーと「Ｆ１１」キーを同時に押して
　画面（Microsoft Visual Basic）を閉じてください。

　次に、登録したマクロをワンタッチで実行するために、
　Word97のメニュー上に専用のボタンを作ります。