Jak usunąć linię separatora przypisów / przypisów końcowych w dokumencie programu Word?

Podczas wstawiania przypisów dolnych lub końcowych w dokumencie programu Word zawsze znajduje się pozioma linia oddzielająca nad tekstami przypisów dolnych lub końcowych. Jeśli chcesz pozbyć się tych linii separatora, wypróbuj metody opisane w tym artykule.

Usuń linię separatora przypisu dolnego / końcowego w programie Word

Usuń linię oddzielającą przypis / przypis końcowy z kodem VBA

Usuń linię separatora przypisu dolnego / końcowego w programie Word

Możesz usunąć linię separatora przypisów dolnych lub końcowych w programie Word w następujący sposób.

1. W dokumencie usuniesz linię oddzielającą przypisów dolnych lub końcowych, kliknij Zobacz i wysłuchaj > Projekt.

2. Następnie kliknij Referencje > Pokaż Uwagi jak pokazano na poniższym zrzucie ekranu.

3. Jeśli w dokumencie znajdują się zarówno przypisy, jak i przypisy końcowe, a Pokaż Uwagi pojawi się okno dialogowe, wybierz potrzebną opcję, a następnie kliknij OK przycisk. Tutaj wybieram Wyświetl przypis powierzchnia.

Note: Jeśli w dokumencie istnieje tylko przypis dolny lub końcowy, zignoruj ​​ten krok i przejdź do kroku 4.

4. Teraz Uwagi sekcja wyświetla się na końcu dokumentu, wybierz Separator przypisów Przypisy z listy rozwijanej, wybierz linię separatora, a następnie naciśnij Usuń klucz, aby go usunąć. Zobacz zrzut ekranu:

5. Przejdź do Układ wydruku widok dokumentu.

Następnie widać, że linia oddzielająca przypisu jest natychmiast usuwana z dokumentu.

Note: Aby usunąć linię separatora przypisów końcowych, wystarczy sprawdzić Wyświetl przypis końcowy obszar powyżej Pokaż Uwagi a następnie wybierz Separator przypisów końcowych Przypisy Lista rozwijana.

Usuń linie separatora przypisów / przypisów końcowych za pomocą kodu VBA

Jeśli powyższa metoda jest dla Ciebie niewygodna, możesz wypróbować następujące kody VBA, aby szybko usunąć wszystkie linie rozdzielające przypisu lub zarówno przypis dolny, jak i końcowy z dokumentu.

1. W dokumencie usuniesz separator przypisu, naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj poniższy kod VBA do okna modułu.

Kod VBA: usuń linię separatora przypisów w dokumencie

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. wciśnij F5 klucz do uruchomienia kodu. Następnie wszystkie linie separatora przypisów są natychmiast usuwane z dokumentu.

Note: Jeśli chcesz usunąć wszystkie linie rozdzielające przypisów dolnych i końcowych, pomocny może być poniższy kod VBA.

Kod VBA: usuń linie separatora przypisów dolnych i końcowych w dokumencie

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

Najlepsze narzędzia biurowe

Kutools dla Worda - Podnieś swoje doświadczenie ze słowami dzięki Over 100 Niezwykłe funkcje!

🤖 Kutools Asystent AI: Zmień swoje pisanie dzięki AI - Generuj zawartość  /  Przepisz tekst  /  Podsumowanie dokumentów  /  Zapytaj o informacje na podstawie Dokumentu, wszystko w programie Word

📘 Znajomość dokumentów: Podziel strony  /  Scal dokumenty  /  Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/HTML...)  /  Wsadowa konwersja do formatu PDF  /  Eksportuj strony jako obrazy  /  Drukuj wiele plików jednocześnie...

✏ Edycja treści: Znajdź i zamień partii w wielu plikach  /  Zmień rozmiar wszystkich zdjęć  /  Transponuj wiersze i kolumny tabeli  /  Konwertuj tabelę na tekst...

🧹 Łatwe czyszczenie: Wymień Dodatkowe przestrzenie  /  Podziały sekcji  /  Wszystkie nagłówki  /  Pola tekstowe  /  Hiperłącza  / Więcej narzędzi do usuwania znajdziesz na naszej stronie Usuń grupę...

➕ Kreatywne wstawki: Wstawić Tysiące separatorów  /  Pola wyboru  /  Przyciski Radio  /  Kod QR  /  kod kreskowy  /  Tabela linii ukośnych  /  Podpis równania  /  Tytuł Zdjęcia  /  Podpis tabeli  /  Wiele zdjęć  / Odkryj więcej w Wstaw grupę...

🔍 Precyzyjne wybory: Punktowy konkretne strony  /  stoły  /  kształty  /  nagłówki akapitów  / Ulepsz nawigację za pomocą jeszcze Wybierz funkcje...

⭐ Ulepszenia gwiazd: Nawiguj szybko do dowolnej lokalizacji  /  automatyczne wstawianie powtarzającego się tekstu  /  płynnie przełączaj się pomiędzy oknami dokumentów  /  11 Narzędzia konwersji...

???? Chcesz wypróbować te funkcje? Kutools dla Word oferuje Bezpłatna wersja próbna 60-day, bez ograniczeń! 🚀

Darmowe pobieranie     Czytaj więcej     Kup teraz