Word 문서에서 각주 / 미주 구분선을 제거하는 방법은 무엇입니까?

Word 문서에 각주 또는 미주를 삽입 할 때 각주 또는 미주 텍스트 위에 항상 가로 구분선이 있습니다. 이러한 구분선을 제거하려면이 기사의 방법을 시도하십시오.

Word에서 각주 / 미주 구분선 제거

VBA 코드로 각주 / 미주 구분선 제거

Word에서 각주 / 미주 구분선 제거

다음과 같이 Word에서 각주 또는 미주 구분선을 제거 할 수 있습니다.

1. 각주 또는 미주 구분선을 제거 할 문서에서 보기 > 초안.

2. 그런 다음 참조 > 표시 사항 아래 스크린 샷과 같이.

3. 문서에 각주와 미주가 모두있는 경우 표시 사항 대화 상자가 나타나면 필요에 따라 옵션을 선택한 다음 OK 단추. 여기에서 각주보기 공간이 있습니다.

주의 사항: 문서에 각주 또는 미주 만있는 경우이 단계를 무시하고 4 단계로 이동합니다.

4. 이제 노트 섹션이 문서 끝에 표시됩니다. 각주 구분자 에서 각주 드롭 다운 목록에서 구분선을 선택한 다음 . 키를 눌러 삭제합니다. 스크린 샷보기 :

5. 이동 인쇄 레이아웃 문서보기.

그러면 각주의 구분선이 문서에서 즉시 제거되는 것을 볼 수 있습니다.

주의 사항: 미주 구분선을 제거하려면 확인 만하면됩니다. 미주보기 위의 영역 표시 사항 대화 상자를 클릭 한 다음 미주 구분자 에서 미주 드롭 다운 목록.

VBA 코드로 각주 / 미주 구분선 제거

위의 방법이 불편한 경우 다음 VBA 코드를 사용하여 문서에서 각주의 모든 구분선 또는 각주와 미주를 빠르게 제거 할 수 있습니다.

1. 문서에서 각주의 구분선을 제거하고 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 모듈. 그런 다음 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.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