Word文書のメモ番号に角かっこをバッチで追加する2つの簡単な方法

本日の記事では、Word文書内の注釈番号に角括弧を一括追加する2つの簡単な方法をご紹介します。

長い文書を作成するときはいつでも、脚注と文末脚注を挿入する可能性があります。 モート番号形式にはオプションがあることを私たちは知っています。 ただし、角かっこを使用した組み込みの数値スタイルはありません。 今後のテキストで説明するのは、このような問題に対処するための2つの解決策です。

方法1：「検索と置換」機能を利用する

1. まず、対象文書の「ホーム」タブをクリックしてください。
2. 次に、「編集」グループの「置換」コマンドをクリックして、「検索と置換」ダイアログボックスを開きます。
3. 脚注を使用している場合は、[検索する文字列]テキストボックスに「^ f」と入力します。
4. 「置換」テキストボックスに「[^＆]」と入力します。
5. 次に、「すべて置換」をクリックします。
6. 次に表示されるのは、すべての脚注番号が角かっこで囲まれていることです。 「OK」をクリックしてメッセージボックスを閉じます。

また、文末脚注に角かっこを追加するには、[検索する文字列]テキストボックスの「^ f」を「^ e」に置き換えるだけです。

方法2：Wordマクロを実行する

1. まず最初に、Wordで「Alt + F11」を押してVBAエディターを起動してください。
2. 次に、「通常」をクリックしてから、「挿入」タブをクリックします。
3. ドロップダウンメニューで、「モジュール」を選択します。
4. 次に、新しく挿入されたモジュールをダブルクリックして、右側の編集領域を開きます。
5. そして、次のマクロをそこに貼り付けます。

Sub AddBracketForFootnoteAndEndnote()
  Application.ScreenUpdating = False
 
  Dim objRange As Range
 
  With ActiveDocument

    '  add bracket for footnotes. 
    If ActiveDocument.Footnotes.Count > 0 Then
      Call UpdateFootnoteRange(.Range)
      For Each objRange In .StoryRanges
        If objRange.StoryType = wdFootnotesStory Then
          Call UpdateFootnoteRange(objRange): Exit For
        End If
      Next
      MsgBox ("All footnotes have been added brackets.")
    Else
      MsgBox ("There is no footnote in this document")
    End If

    '  add bracket for footnotes. 
    If ActiveDocument.Endnotes.Count > 0 Then
      Call UpdateEndnoteRange(.Range)
      For Each objRange In .StoryRanges
        If objRange.StoryType = wdEndnotesStory Then
          Call UpdateEndnoteRange(objRange): Exit For
        End If
      Next
      MsgBox ("All endnotes have been added brackets.")
    Else
      MsgBox ("There is no endnote in this document")
    End If
  End With
 
  Application.ScreenUpdating = True
End Sub

Sub UpdateFootnoteRange(objRange As Range)
  With objRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^f"
    .Replacement.Text = "[^&]"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Sub UpdateEndnoteRange(objRange As Range)
  With objRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^e"
    .Replacement.Text = "[^&]"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

6. 次に、最初のマクロ内に挿入ポインタを置き、「実行」をクリックします。
7. 次に、最初に、すべての脚注番号に角かっこが追加されたことを示すメッセージボックスがあります。
8. 次に、すべての文末脚注番号で変換が完了したことを示すXNUMX番目のメッセージがあります。

得られた結果は次のとおりです。

ドキュメントの紛失を防ぐ

私たちが保存したものと同じくらい価値のあるデータで、私たちはチャンスをつかむ余裕がありませんでした。 したがって、重要なファイルを取得する必要がない限り、それらを台無しにする可能性のある移動を行う前に、重要なファイルをバックアップすることをお勧めします。 破損したドキュメント.

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 xlsの破損 (NAIST) と pdf ソフトウェア製品を修理します。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com