1. C ドライブの中で、"Normal.dot" というファイルを検索する。
2. 見つかった "Normal.dot"（複数ある場合には、最も日付の新しいもの）を右クリックし、それを「開く」（「新規作成」ではなく）。
3. 「ツール」メニュー　→　「マクロ」　→　「Visual Basic Editor」
4. 新しく開いた画面の左上「プロジェクト - Normal」という枠の中の「Normal」の[+]印をクリックする。
5. (A) 「Normal」の中に「標準モジュール」というフォルダがあれば、その中の（いずれかの）ファイルをダブルクリックする。 or
   (B) 「Normal」の中に「標準モジュール」というフォルダがなければ、「Normal」にカーソルを合わせ右クリックし、「挿入」　→　「標準モジュール」とする。
6. 右側の大きな画面に、下に紹介されているマクロを copy & paste する。（必ず、Sub 〜 という行から End Sub という行までまとめてコピーする。その画面にすでに別のマクロが表示されている場合でも、End Sub という行の直後ならば、どこに copy & paste してもかまわない。）

Sub CaptionLabelExample()
    CaptionLabels.Add Name:="("
End Sub

Sub Numbering()
'
' 作成日 99/02/26 作成者 Ayumi Ueyama
'
    Selection.InsertCaption Label:="(", _
        TitleAutoText:="InsertCaption1", _
        Title:="", Position:=wdCaptionPositionBelow
    Selection.TypeText Text:=")"
    Selection.HomeKey Unit:=wdLine
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.TypeBackspace
    Selection.EndKey Unit:=wdLine
' その段落のスタイルを ex に指定する場合には、次の行の行頭の「'」を削除する。
'    Selection.Style = ActiveDocument.Styles("ex")
End Sub

Sub LinkExNumber()
'
' 作成日 99/02/26 作成者 Ayumi Ueyama
'
  Dim refnum$
  refnum$ = InputBox("挿入したい例文番号 = ?", _
    "例文番号へのクロスレファレンス")
  If refnum$ <> "" Then
      Selection.InsertCrossReference _
      ReferenceType:="(", _
      ReferenceKind:=wdOnlyLabelAndNumber, _
      ReferenceItem:=refnum$
    Selection.TypeText Text:=")"
End If
End Sub