Як видалити рядок роздільника виносок / кінцевих виносок у документі Word?
Вставляючи виноски або кінцеві виноски в документ Word, ви завжди знайдете, що над текстами виносок або кінцевих виносок завжди є горизонтальний роздільник. Якщо ви хочете позбутися цих роздільних рядків, спробуйте методи з цієї статті.
Видаліть рядок роздільника виносок / кінцевих виносок у програмі Word
Видаліть рядок розділювача виносок / кінцевих виносок із кодом VBA
Видаліть рядок роздільника виносок / кінцевих виносок у програмі Word
Ви можете видалити рядок з виноскою або роздільником виносок у програмі Word наступним чином.
1. У документі ви вилучите його виноску або роздільник рядків, клацніть вид > Проект.
2 Потім натисніть посилання > Показати примітки як показано на знімку екрана.
3. Якщо у вашому документі є як виноски, так і кінцеві виноски, a Показати примітки З'явиться діалогове вікно, виберіть потрібну опцію, а потім натисніть OK кнопку. Тут я відбираю Переглянути виноску області.
примітки: Якщо у вашому документі є лише виноска або кінцева примітка, проігноруйте цей крок і перейдіть до кроку 4.
4. Тепер примітки розділ відображається в кінці документа, виберіть Розділювач виносок в Виноски в розкривному списку виберіть лінію роздільника, а потім натисніть видаляти клавішу, щоб видалити його. Дивіться знімок екрана:
5. Перемістіть на Макет друку подання документа.
Тоді ви бачите, що розділовий рядок виноски негайно видаляється з документа.
примітки: Щоб видалити рядок роздільника приміток, вам потрібно лише перевірити Переглянути кінцеву примітку область у вищевказаному Показати примітки , а потім виберіть Розділювач кінцевих приміток в Заголовки випадаючий список.
Видаліть рядки розділювачів виносок / кінцевих виносок за допомогою коду VBA
Якщо вищевказаний спосіб незручний для вас, ви можете спробувати наступні коди VBA, щоб швидко видалити всі розділові рядки виноски або як виноску, так і кінцеву примітку з документа.
1. У документі ви видалите розділовий рядок виноски, натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте код 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
Найкращі інструменти продуктивності офісу
Kutools для Word - Підніміть свій досвід Word із Over 100 Чудові особливості!
🤖 Kutools AI Assistant: змініть свій текст за допомогою ШІ - Створення вмісту / Переписати текст / Узагальнити документи / Звертайтеся за інформацією на основі Документа, все в Word
📘 Майстерність документів: Розділити сторінки / Об’єднати документи / Експортувати вибране в різні формати (PDF/TXT/DOC/HTML...) / Пакетне перетворення в PDF / Експортувати сторінки як зображення / Друк кількох файлів одночасно...
✏ Редагування змісту: Пакетний пошук та заміна між кількома файлами / Змінити розмір усіх зображень / Транспонування рядків і стовпців таблиці / Перетворити таблицю в текст...
🧹 Очищення без зусиль: Змітати Зайві простори / Розбиття розділів / Усі заголовки / Текстові поля / Гіперпосилання / Щоб отримати більше інструментів для видалення, відвідайте наш сайт Вилучити групу...
➕ Творчі вставки: Вставити Роздільники тисяч / Прапорці / радіо кнопки / QR-код / Штрих-код / Таблиця діагональних ліній / Заголовок рівняння / Підпис зображення / Заголовок таблиці / Кілька зображень / Дізнайтеся більше в Вставити групу...
???? Точність вибору: Точне визначення конкретні сторінки / Таблиці / форми / заголовок абзаців / Покращте навігацію за допомогою більше Виберіть функції...
⭐ Покращення зірок: Швидка навігація до будь-якого місця / автоматичне вставлення повторюваного тексту / плавно перемикатися між вікнами документів / 11 Інструменти перетворення...