Skip to main content

워드 문서에서 각주/미주 구분선을 제거하려면 어떻게 해야 하나요?

Author: Siluvia Last Modified: 2025-08-06

워드 문서에 각주 또는 미주를 삽입할 때, 각주 또는 미주 텍스트 위에 수평 구분선이 나타납니다. 이 선을 제거하려면 이 문서의 방법들을 시도해 보세요.

워드에서 각주/미주 구분선 제거하기

VBA 코드를 사용하여 각주/미주 구분선 제거하기


워드에서 각주/미주 구분선 제거하기

다음 단계를 따라 워드에서 각주 또는 미주 구분선을 제거할 수 있습니다:

  1. 각주 또는 미주 구분선을 제거하려는 문서에서 "보기" > "초안"을 클릭합니다.
    Draft button on the View tab on the ribbon
  2. "참조" > "노트 보기"를 클릭합니다.
    Show Notes on the References tab on the ribbon
  3. 문서에 각주와 미주가 모두 포함된 경우 "노트 보기" 대화 상자가 나타납니다. 원하는 보기 옵션을 선택한 후 "확인"을 클릭하세요. 예를 들어, "각주 영역 보기"를 선택합니다.
    Show Notes dialog box

    참고: 문서에 각주 또는 미주만 있는 경우 이 단계를 건너뛰고 다음 단계로 진행하세요.

  4. 이제 문서 끝에 "노트" 섹션이 나타납니다. "각주" 드롭다운 메뉴에서 "각주 구분선"을 선택하고, 구분선을 선택한 후 삭제 키를 누릅니다.
    The separator line is selected
  5. 문서를 다시 "인쇄 레이아웃" 보기로 전환합니다.
    The button to shift to the Print Layout view

구분선이 이제 문서에서 제거되었습니다.

The separator line of footnote is removed

참고: 미주 구분선을 제거하려면 "노트 보기" 대화 상자에서 "미주 영역 보기"를 선택한 후 드롭다운 목록에서 "미주 구분선"을 선택하세요.


VBA 코드를 사용하여 각주/미주 구분선 제거하기

수동 방법이 불편하다면, 다음 VBA 코드를 사용하여 각주 또는 각주와 미주 구분선을 빠르게 제거할 수 있습니다:

  1. 워드 문서에서 Alt + F11을 눌러 "Microsoft Visual Basic for Applications" 창을 엽니다.
  2. VBA 창에서 "삽입" > "모듈"을 클릭하고, 모듈에 다음 코드를 붙여넣습니다.
    Module window opened in the VBA window

    VBA 코드: 워드 문서에서 각주 구분선 제거하기

    Sub DeleteTheFootnoteSeparator()
    'Updated by ExtendOffice 20181112
        If ActiveDocument.Footnotes.Count < 1 Then Exit Sub
        If ActiveWindow.View.SplitSpecial = wdPaneNone Then
            ActiveWindow.ActivePane.View.Type = wdNormalView
        Else
            ActiveWindow.View.Type = wdNormalView
        End If
        With ActiveWindow.ActivePane.View
            If .Type = wdPrintView Or .Type = wdWebView Or _
            .Type = wdPrintPreview Then
                ActiveWindow.View.SeekView = wdSeekFootnotes
            Else
                ActiveWindow.View.SplitSpecial = wdPaneFootnotes
            End If
        End With
        ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator
        With Selection
            .MoveRight Unit:=wdCharacter
            .TypeBackspace
            .TypeBackspace
        End With
        ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparator
        With Selection
            .MoveRight Unit:=wdCharacter, Count:=1
            .TypeBackspace
            .TypeBackspace
            With .ParagraphFormat
                .LineSpacingRule = wdLineSpaceMultiple
                .LineSpacing = LinesToPoints(0.06)
            End With
        End With
        ActiveWindow.View.Type = wdPrintView
    End Sub
  3. F5를 눌러 코드를 실행합니다. 모든 각주 구분선이 즉시 제거됩니다.

참고: 각주와 미주 구분선을 모두 제거하려면 다음 VBA 코드를 사용하세요.

VBA 코드: 워드 문서에서 각주와 미주 구분선 모두 제거하기

Sub DeleteTheFootnoteSeparator()
'Updated by ExtendOffice 20181112
    If ActiveDocument.Footnotes.Count < 1 Then Exit Sub
    If ActiveWindow.View.SplitSpecial = wdPaneNone Then
        ActiveWindow.ActivePane.View.Type = wdNormalView
    Else
        ActiveWindow.View.Type = wdNormalView
    End If
    With ActiveWindow.ActivePane.View
        If .Type = wdPrintView Or .Type = wdWebView Or _
        .Type = wdPrintPreview Then
            ActiveWindow.View.SeekView = wdSeekFootnotes
        Else
            ActiveWindow.View.SplitSpecial = wdPaneFootnotes
        End If
    End With
    ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator
    With Selection
        .MoveRight Unit:=wdCharacter
        .TypeBackspace
        .TypeBackspace
    End With
    ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparator
    With Selection
        .MoveRight Unit:=wdCharacter, Count:=1
        .TypeBackspace
        .TypeBackspace
        With .ParagraphFormat
            .LineSpacingRule = wdLineSpaceMultiple
            .LineSpacing = LinesToPoints(0.06)
        End With
    End With
    ActiveWindow.View.SplitSpecial = wdPaneEndnoteSeparator
    With Selection
        .MoveRight Unit:=wdCharacter
        .TypeBackspace
        .TypeBackspace
    End With
    ActiveWindow.View.SplitSpecial = wdPaneEndnoteContinuationSeparator
    With Selection
        .MoveRight Unit:=wdCharacter, Count:=1
        .TypeBackspace
        .TypeBackspace
        With .ParagraphFormat
            .LineSpacingRule = wdLineSpaceMultiple
            .LineSpacing = LinesToPoints(0.06)
        End With
    End With
    ActiveWindow.View.Type = wdPrintView
End Sub

최고의 오피스 생산성 도구

Kutools for Word - Word 작업 경험을 100개 이상의 놀라운 기능으로 한 단계 업그레이드하세요!

🤖 Kutools AI Features: AI 도우미 / 실시간 어시스턴트 / 슈퍼 폴리시(형식 유지) / 슈퍼 번역(형식 유지) / AI 수정 / AI 교정...

📘 문서 마스터: 페이지 분할 / 문서 병합 / 선택 영역을 다양한 형식(PDF/TXT/DOC/HTML 등)으로 내보내기 / 일괄 PDF 변환...

콘텐츠 편집: 여러 파일에서 일괄 찾기 및 바꾸기 / 모든 그림 크기 조정 / 표 행과 열 전환 / 표를 텍스트로 변환...

🧹 손쉬운 정리: 여분의 공백/구역 나누기/텍스트 상자/하이퍼링크 제거로 깔끔하게 청소하세요. 더 다양한 제거 도구는 제거 그룹에서 확인하세요...

창의적 삽입: 천 단위 구분기호 삽입 / 체크 박스 / 라디오 버튼 / QR 코드 / 바코드 / 여러 그림 삽입 / 더 많은 기능은 삽입 그룹에서 확인하세요...

🔍 정밀 선택: 특정 페이지//도형/제목 단락을 신속하게 선택하고, 더 많은 선택 기능으로 탐색을 향상해보세요...

스타 기능: 원하는 위치로 빠르게 이동 / 반복 텍스트 자동 삽입 / 문서 창 전환 /11 가지 변환 도구 등...

🌍 40개 이상의 언어 지원: Kutools를 원하는 언어로 사용하세요 – 영어, 스페인어, 독일어, 프랑스어, 중국어 등40개 이상의 언어를 지원합니다!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 이 기능들을 사용해 보고 싶으시다면 지금 Kutools for Word를 다운로드하세요! 🚀
 

최고의 오피스 생산성 도구

Kutools for Word - 100+ Word용 도구