4 методи вилучення роздільника виносок або кінцевих виносок у документі Word

Поділитися зараз:

У цьому сost, ми хотіли б поділитися з вами 4 методами видалення виноски або роздільника виносок у вашому документі Word.

Якщо ви коли-небудь вставите виноску або кінцеву виноску в документ, ви завжди знайдете горизонтальну лінію над текстами. Цей роздільник чітко виділяє область виноски або кінцевої виноски. Тим не менше, деякі люди можуть це дратувати і хотіли б від цього позбутися. Ця стаття надасть вам 4 способи зробити це.Видаліть розділювач виносок або кінцевих виносок

Спосіб 1: Видаліть роздільник виносок вручну

  1. Спочатку перейдіть на вкладку «Перегляд», потім натисніть «Чернетка».Клацніть «Перегляд» -> Клацніть «Чернетка»
  2. Потім натисніть «Посилання», а потім натисніть «Показати примітки» в області «Виноски».
  3. Тепер, якщо у вашому документі є як виноски, так і кінцеві виноски, з’явиться вікно. Виберіть, щоб переглянути область виносок або кінцевих приміток, а потім натисніть кнопку «OK». Тепер давайте спочатку виберемо “Переглянути область виносок”.Клацніть «Список літератури» -> Клацніть «Показати примітки» -> Виберіть область -> Клацніть «ОК»
  4. У нижній частині екрана відкриється панель приміток. Клацніть на спадне меню, щоб вибрати “Розділювач виносок”.
  5. Потім клацніть, щоб вибрати сепаратор. Натисніть "Backspace" або "Delete", щоб видалити роздільник.Клацніть на спадне меню-> Виберіть «Розділювач виносок» -> Виберіть розділювач виносок
  6. І виберіть «Розділювач продовження виноски», а також видаліть його.Виберіть "Розділювач продовження виноски" -> Виберіть роздільник
  7. Коли ви позбудетеся роздільника, залишиться порожній рядок, який ви не зможете видалити безпосередньо. Тут ми придумали обхідний шлях. Терпіть, вибрано “Розділювач виносок”.Порожній рядок ліворуч
  8. Потім перейдіть на вкладку «Домашня сторінка» та натисніть кнопку зі стрілкою в групі «Абзац», щоб відкрити те саме діалогове вікно.
  9. Виберіть “Кілька” для “Міжрядковий інтервал”, встановіть значення “0.06” і натисніть “ОК”.Клацніть «Домашня сторінка» -> Клацніть кнопку зі стрілкою, щоб відкрити вікно «Абзац» -> Виберіть «Кілька» для «Міжрядковий інтервал» -> Встановіть значення 0.06 -> Клацніть «ОК»
  10. Тепер висота порожнього рядка зменшується до мінімуму. Ви можете повернути вигляд назад на “Макет друку”.Звужте висоту порожнього рядка

Перевірте результат нижче:Видалення роздільника виносок

Спосіб 2: Видалити роздільник приміток вручну

  1. Повторіть перші 3 кроки у способі 1, але на цей раз у полі «Показати примітки» виберіть «Перегляд області кінцевих приміток».Виберіть "Переглянути область кінцевих приміток" -> Натисніть "OK"
  2. На панелі приміток, відкритої внизу, виберіть «Кінцевий розділювач приміток» і виберіть розділювач. Потім видаліть його.Виберіть "Кінцевий розділювач приміток" -> Виберіть розділювач
  3. Далі виберіть “Розділювач продовження примітки”, виберіть розділювач та видаліть його.Виберіть "Розділювач продовження примітки" -> Виберіть роздільник
  4. Потім знову виберіть “Endnote Separator”, натиснувши розкривну кнопку.
  5. І повторіть кроки 8 - 10 у способі 1.

Ось результат:Ефект видалення сепаратора кінцевих приміток

Спосіб 3: Видаліть роздільник виносок, запустивши макрос

  1. Для початку натисніть «Alt + F11», щоб запустити редактор VBA у програмі Word.
  2. Потім натисніть «Звичайний», а потім вкладку «Вставити».
  3. І виберіть «Модуль» далі.Клацніть «Звичайний» -> Клацніть «Вставити» -> Клацніть «Модуль»
  4. Потім двічі клацніть, щоб відкрити його, і вставте туди макрос:
Sub DeleteTheFootnoteSeparator()

  If ActiveWindow.View.SplitSpecial = wdPaneNone Then
    ActiveWindow.ActivePane.View.Type = wdNormalView
  Else
    ActiveWindow.View.Type = wdNormalView
  End If
 
  If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow.ActivePane.View.Type = wdWebView Or _
    ActiveWindow.ActivePane.View.Type = wdPrintPreview Then
    ActiveWindow.View.SeekView = wdSeekFootnotes
  Else
    ActiveWindow.View.SplitSpecial = wdPaneFootnotes
  End If
 
  '  Delete the footnote separator. 
  ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator
  Selection.MoveRight Unit:=wdCharacter, Count:=1
  Selection.TypeBackspace
  Selection.TypeBackspace
 
  '  Eliminate the blank line after deleting the footnote separator.
  With Selection.ParagraphFormat
    .LineSpacingRule = wdLineSpaceMultiple
    .LineSpacing = LinesToPoints(0.06)
  End With

  '  Delete the footnote continuation separator. 
  ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparator
  Selection.MoveRight Unit:=wdCharacter, Count:=1
  Selection.TypeBackspace
  Selection.TypeBackspace

  '  Eliminate the blank line after deleting the footnote continuation separator. 
  With Selection.ParagraphFormat
    .LineSpacingRule = wdLineSpaceMultiple
    .LineSpacing = LinesToPoints(0.06)
  End With
 
  If ActiveWindow.View.SplitSpecial = wdPaneNone Then
    ActiveWindow.ActivePane.View.Type = wdPrintView
  Else
    ActiveWindow.View.Type = wdPrintView
  End If
End Sub
  1. Клацніть «Виконати».Вставити коди-> Натиснути "Виконати"

Макрос повинен автоматично видаляти всі роздільники виносок та мінімізувати порожній рядок, що залишився.

Спосіб 4: Видаліть роздільник кінцевих приміток, запустивши макрос

Дотримуйтесь точних кроків у способі 3, щоб встановити та запустити макрос. Тільки замініть коди такими:

Sub DeleteTheEndnoteSeparator()

  If ActiveWindow.View.SplitSpecial = wdPaneNone Then
    ActiveWindow.ActivePane.View.Type = wdNormalView
  Else
    ActiveWindow.View.Type = wdNormalView
  End If
 
  If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow.ActivePane.View.Type = wdWebView Or _
    ActiveWindow.ActivePane.View.Type = wdPrintPreview Then
    ActiveWindow.View.SeekView = wdSeekEndnotes
  Else
    ActiveWindow.View.SplitSpecial = wdPaneEndnotes
  End If
 
  '  Delete the endnote separator.
  ActiveWindow.View.SplitSpecial = wdPaneEndnoteSeparator
  Selection.MoveRight Unit:=wdCharacter, Count:=1
  Selection.TypeBackspace
  Selection.TypeBackspace
 
  '  Eliminate the blank line after deleting the endnote separator.
  With Selection.ParagraphFormat
    .LineSpacingRule = wdLineSpaceMultiple
    .LineSpacing = LinesToPoints(0.06)
  End With
 
  '  Delete the endnote continuation separator. 
  ActiveWindow.View.SplitSpecial = wdPaneEndnoteContinuationSeparator
  Selection.MoveRight Unit:=wdCharacter, Count:=1
  Selection.TypeBackspace
  Selection.TypeBackspace

  '  Eliminate the blank line after deleting the endnote continuation separator. 
  With Selection.ParagraphFormat
    .LineSpacingRule = wdLineSpaceMultiple
    .LineSpacing = LinesToPoints(0.06)
  End With
  If ActiveWindow.View.SplitSpecial = wdPaneNone Then
    ActiveWindow.ActivePane.View.Type = wdPrintView
  Else
    ActiveWindow.View.Type = wdPrintView
  End If
End Sub

Збережіть свої документи

Жодне програмне забезпечення не є надійним, і це дуже стосується Word. Як правило, це був такий корисний інструмент для обробки текстів. Тим не менше, є деякий проміжок часу, коли Word згортається, і документ залишається пошкодженим. Гірше того, що цей документ є єдиною копією, яку ви отримали. Це так сумно. Але, якщо ви вибрали кваліфіковану утиліту для ремонтний док відразу ви можете отримати абсолютно інший результат.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі ремонт xls та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.