Word 문서의 메모 번호에 대괄호를 일괄 추가하는 2 가지 빠른 방법

워드 솔루션 2025 년 9 월 28 일

오늘의 post, Word 문서의 메모 번호에 대괄호를 일괄 추가하는 두 가지 빠른 방법을 보여 드리게되어 기쁩니다.

긴 문서의 초안을 작성할 때마다 각주와 미주를 삽입 할 가능성이 높습니다. 모트 번호 형식에 대한 옵션이 있다는 것을 알고 있습니다. 그러나 대괄호가있는 기본 제공 숫자 스타일은 없습니다. 다음 텍스트에서 논의 할 내용은 이러한 문제를 해결하기위한 두 가지 솔루션입니다.

방법 1 : "찾기 및 바꾸기"기능 사용

먼저, "홈"탭을 클릭하십시오. tar문서를 얻으십시오.
그런 다음 "편집"그룹에서 "바꾸기"명령을 클릭하여 "찾기 및 바꾸기"대화 상자를 엽니 다.
이제 각주로 작업하는 경우 "찾을 내용"텍스트 상자에 "^ f"를 입력합니다.
"바꿀 내용"텍스트 상자에 "[^ &]"를 입력합니다.
다음으로 "모두 바꾸기"를 클릭합니다.
다음으로 보이는 것은 모든 각주 번호가 대괄호 안에 있다는 것입니다. "확인"을 클릭하여 메시지 상자를 닫습니다.

또한 미주에 대괄호를 추가하려면 "찾을 내용"텍스트 상자에서 "^ f"를 "^ e"로 바꾸면됩니다.

방법 2 : Word 매크로 실행

첫 번째와 포름ost, Word에서 "Alt + F11"을 눌러 VBA 편집기를 트리거합니다.
그런 다음 "일반"을 클릭 한 다음 "삽입"탭을 클릭합니다.
드롭 다운 메뉴에서 "Module"을 선택합니다.
그런 다음 새로 삽입 된 모듈을 두 번 클릭하여 오른쪽에 편집 영역을 엽니 다.
다음 매크로를 거기에 붙여 넣습니다.

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