6 sposobów konwertowania wszystkich przypisów na przypisy końcowe i odwrotnie w dokumencie programu Word

W tym artykule przedstawimy 6 sposobów konwersji wszystkich przypisów na przypisy końcowe i odwrotnie w dokumencie programu Word.

Wszyscy wiedzą, że teksty przypisów są domyślnie rozmieszczone na dole poszczególnych stron, podczas gdy przypisy końcowe znajdują się na końcu dokumentu. Jednak takie domyślne ustawienia nie zawsze mogą zadowolić ludzi. Nawet Word ma wbudowane polecenie dla użytkowników, aby konwertować przypisy na przypisy końcowe i odwrotnie. Dlatego generujemy 6 metod do odebrania.

Metoda 1: Ręczna konwersja wszystkich przypisów dolnych na przypisy końcowe w jednym dokumencie

Oto miejsce, w którym zwykle pozostają przypisy i przypisy końcowe:

1. Najpierw kliknij zakładkę „Odnośniki”, a następnie kliknij przycisk strzałki w grupie „Przypisy”, aby otworzyć okno dialogowe „Przypis dolny i końcowy”.
2. Następnie kliknij przycisk „Konwertuj”.
3. Następnie wybierz opcję „Zamień wszystkie przypisy na przypisy końcowe”.
4. I kliknij „OK”.
5. Na koniec zamknij okno „Przypis dolny i końcowy”.

Oto efekt:

Metoda 2: Ręczna konwersja wszystkich przypisów końcowych na przypisy w jednym dokumencie

Konwersja przypisów końcowych do przypisów jest bardzo podobna.

1. Powtórz kroki 1 i 2 w metodzie 1.
2. Tym razem zamiast tego wybierz opcję „Zamień wszystkie przypisy końcowe na przypisy”.
3. Mimo to powtórz kroki 4 i 5 w metodzie 1.

Sprawdź następujący wynik:

Metoda 3: Konwertuj wszystkie przypisy na przypisy końcowe w jednym dokumencie za pośrednictwem VBA

1. Najpierw naciśnij „Alt + F11”, aby otworzyć edytor VBA w programie Word.
2. Następnie kliknij „Normalne”.
3. Kliknij kartę „Wstaw”.
4. I wybierz „Moduł” z menu rozwijanego.
5. Następnie kliknij dwukrotnie moduł, aby go otworzyć.
6. Wklej tam następujące kody:

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. Na koniec kliknij „Uruchom”.

Metoda 4: Konwertuj wszystkie przypisy końcowe na przypisy w jednym dokumencie za pośrednictwem VBA

Podobnie wykonaj te same kroki w metodzie 3, aby zainstalować i uruchomić makro. Ale zamień makro na ryczące:

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

Metoda 5: Przetwarzanie wsadowe wszystkich przypisów dolnych na przypisy końcowe w wielu dokumentach za pośrednictwem VBA

W przypadku dużej liczby plików, z którymi musisz się uporać, najpierw układasz je wszystkie w jednym folderze. Następnie zainstaluj i uruchom to makro:

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

Uruchomienie tego makra spowoduje wyświetlenie pola wprowadzania, w którym należy wprowadzić ścieżkę folderu. I nie zapomnij, że na końcu adresu folderu powinien znajdować się „\”.

Metoda 6: Przetwarzanie wsadowe wszystkich przypisów końcowych na przypisy w wielu dokumentach za pośrednictwem VBA

Na koniec, oto makro do automatycznego konwertowania przypisów końcowych w wielu dokumentach na przypisy:

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

Jak rozwiązać problemy z programem Word

Słowo może zawieść bez znaku. Chociaż możesz wydawać się niewiarygodne, że taki pech cię spotka, nie masz innego wyjścia, jak tylko zwrócić się do wykwalifikowanego narzędzia naprawczego, aby naprawić uszkodzony dokument.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym uszkodzony Excel i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com