Skip to main content

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

Author: Siluvia Last Modified: 2025-05-21

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

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

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 - 100개 이상의 놀라운 기능으로 워드 경험을 한 단계 업그레이드하세요!

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

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

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

? 손쉬운 정리: 여분의 공백 / 구역 나누기 / 텍스트 상자 / 하이퍼링크 제거 / 더 많은 제거 도구는 제거 그룹으로 이동...

창의적인 삽입: 천 단위 구분 기호 삽입 / 체크 박스 / 라디오 버튼 / QR 코드 / 바코드 / 여러 그림 / 삽입 그룹에서 더 알아보기...

? 정확한 선택: 특정 페이지 / / 도형 / 제목 단락 / 더 많은 선택 기능으로 탐색 강화...

주요 개선사항: 원하는 위치로 이동 / 반복되는 텍스트 자동 삽입 / 문서 창 간 전환 / 11가지 변환 도구...

Kutools and Kutools Plus tabs on the Word Ribbon
? 이러한 기능을 사용해 보시겠습니까? 지금 바로 Kutools for Word를 다운로드하세요! ?