6 начина за конвертиране на всички бележки под линия в крайни бележки и обратната версия в документа на Word

В тази статия ще ви предоставим 6 начина да конвертирате всички бележки под линия в крайни бележки и обратно във вашия документ на Word.

На всички е известно, че по подразбиране текстовете на бележките са подредени в долната част на отделните страници, докато крайните бележки се намират в края на документ. Такива настройки по подразбиране обаче не могат да задоволят хората през цялото време. Дори Word има вградена команда за потребителите да конвертират бележки под линия в бележки под линия и обратно. Затова генерираме 6 метода, които можете да вземете.

Метод 1: Преобразувайте ръчно всички бележки под линия в крайни бележки в един документ

Ето къде обикновено остават бележки под линия и бележки под линия:

1. Като начало щракнете върху раздела „Референции“, след това щракнете върху бутона със стрелка в групата „Бележки под линия“, за да отворите диалоговия прозорец „Бележки под линия и крайни бележки“.
2. След това щракнете върху бутона „Конвертиране“.
3. След това изберете опцията „Конвертиране на всички бележки под линия в бележки под линия“.
4. И щракнете върху „OK“.
5. Накрая затворете полето „Бележка под линия и бележка под линия“.

Ето ефекта:

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

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

1. Повторете стъпки 1 и 2 в метод 1.
2. Този път вместо това изберете опцията „Конвертиране на всички бележки под линия в бележки под линия“.
3. И все пак повторете стъпки 4 и 5 в метод 1.

Проверете следния резултат:

Метод 3: Конвертиране на всички бележки под линия в крайни бележки в един документ чрез VBA

1. Първо, натиснете „Alt + F11“, за да отворите редактора на VBA в Word.
2. След това щракнете върху „Нормално“.
3. Щракнете върху раздела „Вмъкване“.
4. И изберете „Модул“ от падащото меню.
5. След това щракнете двукратно върху модула, за да го отворите.
6. Поставете следните кодове там:

Sub ConvertFootnotesToEndnotes()

  If ActiveDocument.Footnotes.Count > 0 Then
    ActiveDocument.Footnotes.Convert
  Else
    MsgBox ("There is no footnote in this document")
  End If
End Sub

7. Накрая щракнете върху „Run“.

Метод 4: Конвертиране на всички бележки под линия в бележки под линия в един документ чрез VBA

По същия начин следвайте същите стъпки в метод 3, за да инсталирате и стартирате макрос. Но заменете макроса с духащия:

Sub ConvertEndnotesToFootnotes()
 
 If ActiveDocument.Endnotes.Count > 0 Then
 ActiveDocument.Endnotes.Convert
 Else
 MsgBox ("There is no endnote in this document")
 End If
End Sub

Метод 5: Пакетно преобразуване на всички бележки под линия в крайни бележки в множество документи чрез VBA

В случай, че има голям брой файлове, с които трябва да се справите, първо ги подреждате всички в една папка. След това инсталирайте и стартирайте този макрос:

Sub BatchConvertFootnotesToEndnotes()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.Footnotes.Convert
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub

Изпълнението на този макрос ще изскочи поле за въвеждане, където трябва да въведете пътя към папката. И не забравяйте, че в края на адреса на папката трябва да има „\“.

Метод 6: Пакетно преобразуване на всички бележки под линия в бележки под линия в множество документи чрез VBA

И накрая, ето макросът, който автоматично преобразува крайните бележки в множество документи в бележки под линия:

Sub BatchConvertEndnotesToFootnotes()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.Endnotes.Convert
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub

Как да коригирате проблеми с думи

Думата може да се провали без знак. Въпреки че може да чувствате, че е невероятно, че такъв лош късмет ще ви намери, нямате друг избор, освен да се обърнете към квалифициран инструмент за ремонт, за да поправите корумпиран док.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително повреден Excel и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com