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. Нарешті, натисніть «Виконати».

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