4 метода за премахване на разделител на бележка под линия или бележка в края във вашия документ на Word

В тази публикация бихме искали да споделим с вас 4 метода за премахване на разделител за бележки под линия или бележки в края на текста във вашия Word документ.

Ако някога вмъкнете бележка под линия или бележка в края в документ, ще откриете, че винаги има хоризонтална линия над текстовете. Този разделител маркира ясно областта на бележката под линия или бележката в края. И все пак някои хора може да го намерят за досадно и биха искали да се отърват от него. Тази статия ще ви предостави 4 метода за това.

Метод 1: Ръчно премахване на разделителя за бележки под линия

1. Първо щракнете върху раздела „Преглед“, след което щракнете върху изглед „Чернова“.
2. След това щракнете върху „Препратки“ и след това върху „Покажи бележки“ в областта „Бележки под линия“.
3. Сега, ако вашият документ съдържа както бележки под линия, така и бележки в края, тогава ще се появи поле. Изберете да видите област за бележка под линия или бележка в края, след което щракнете върху „OK“. Сега нека първо изберем „Преглед на областта за бележки под линия“.
4. В долната част на екрана ще се отвори панел за бележки. Щракнете върху бутона с падащо меню, за да изберете „Разделител за бележки под линия“.
5. След това щракнете, за да изберете разделителя. Натиснете „Backspace“ или „Delete“, за да премахнете разделителя.
6. И изберете „Разделител за продължение на бележка под линия“, след което го изтрийте.
7. Когато се отървете от разделителя, ще остане празен ред, който не можете да изтриете директно. Тук измисляме заобиколно решение. Издържи, че е избран „Разделител за бележки под линия“.
8. След това щракнете върху раздела „Начало“ и щракнете върху бутона със стрелка в групата „Абзац“, за да отворите диалоговия прозорец със същото име.
9. Изберете „Множество“ за „Разстояние между редовете“, задайте стойност на „0.06“ и щракнете върху „OK“.
10. Сега височината на празния ред е намалена до минимум. Можете да промените изгледа обратно на „Оформление за печат“.

Проверете резултата по-долу:

Метод 2: Ръчно премахване на разделителя на крайната бележка

1. Повторете първите 3 стъпки в метод 1, но този път изберете „Преглед на областта на бележката в края“ в полето „Показване на бележки“.
2. В прозореца за бележки, отворен в долната част, изберете „Разделител за крайни бележки“ и изберете разделителя. След това го изтрийте.
3. След това изберете „Endnote Continuation Separator“ и изберете разделителя и го изтрийте.
4. След това изберете отново „Разделител на бележка в края“, като щракнете върху бутона за падащо меню.
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

5. Щракнете върху „Run“.

Макросът ще премахне автоматично всички разделители на бележки под линия и ще минимизира оставащия празен ред.

Метод 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