6 veidi, kā pārveidot visas zemsvītras piezīmes par galotnēm un otrādi jūsu Word dokumentā

Šajā rakstā mēs jums piedāvāsim 6 veidus, kā pārvērst visas zemsvītras piezīmes par beigu piezīmēm un otrādi jūsu Word dokumentā.

Visiem ir zināms, ka pēc noklusējuma zemsvītras piezīmju teksti ir sakārtoti atsevišķu lapu apakšā, bet beigu piezīmes ir atrodamas dokumenta beigās. Tomēr šādi noklusējuma iestatījumi nevar apmierināt cilvēkus visu laiku. Pat Word ir iebūvēta komanda, lai lietotāji varētu pārvērst zemsvītras piezīmes par beigu piezīmēm un otrādi. Tāpēc mēs ģenerējam 6 metodes, lai jūs varētu paņemt.

1. metode: manuāli pārvērst visas zemsvītras piezīmes par viena dokumenta beigu piezīmēm

Šeit parasti paliek zemsvītras piezīmes un beigu piezīmes:

1. Lai sāktu, noklikšķiniet uz cilnes “Atsauces”, pēc tam noklikšķiniet uz bultiņas pogas grupā “Zemsvītras piezīmes”, lai atvērtu dialoglodziņu “Zemsvītras piezīme un beigu piezīme”.
2. Tālāk noklikšķiniet uz pogas “Konvertēt”.
3. Pēc tam atlasiet opciju “Pārvērst visas zemsvītras piezīmes par beigu piezīmēm”.
4. Noklikšķiniet uz Labi.
5. Visbeidzot, aizveriet lodziņu “Zemsvītras piezīme un beigu piezīme”.

Šeit ir efekts:

2. metode: manuāli konvertējiet visas beigu piezīmes par zemsvītras piezīmēm vienā dokumentā

Galīgo piezīmju pārvēršana zemsvītras piezīmēs ir ļoti līdzīga.

1. Atkārtojiet 1. un 2. darbību 1. metodē.
2. Šoreiz tā vietā izvēlieties opciju “Pārvērst visas piezīmes par zemsvītras piezīmēm”.
3. Tomēr atkārtojiet 4. un 5. darbību 1. metodē.

Pārbaudiet šādu rezultātu:

3. metode: konvertējiet visas zemsvītras piezīmes vienā dokumentā, izmantojot VBA

1. Vispirms nospiediet “Alt + F11”, lai Word atvērtu VBA redaktoru.
2. Pēc tam noklikšķiniet uz “Normal”.
3. Noklikšķiniet uz cilnes Ievietot.
4. Un nolaižamajā izvēlnē izvēlieties “Modulis”.
5. Pēc tam veiciet dubultklikšķi uz moduļa, lai to atvērtu.
6. Ielīmējiet tur šādus kodus:

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. Visbeidzot, noklikšķiniet uz “Palaist”.

4. metode: konvertējiet visas beigu piezīmes par zemsvītras piezīmēm vienā dokumentā, izmantojot VBA

Līdzīgi veiciet tās pašas 3. metodes darbības, lai instalētu un palaistu makro. Bet nomainiet makro ar zemāk redzamo:

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. metode: partijas pārvērst visas zemsvītras piezīmes par beigu piezīmēm vairākos dokumentos, izmantojot VBA

Gadījumā, ja jums ir jārisina liels skaits failu, vispirms tos visus sakārtojiet vienā mapē. Pēc tam instalējiet un palaidiet šo 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

Palaižot šo makro, tiks parādīts ievades lodziņš, kurā jāievada mapes ceļš. Un neaizmirstiet, ka mapes adreses beigās jābūt “\”.

6. metode. Partijas pārvērst visas beigu piezīmes par zemsvītras piezīmēm vairākos dokumentos, izmantojot VBA

Visbeidzot, šeit ir makro, lai sērijveidā automātiski pārveidotu beigu piezīmes vairākos dokumentos par zemsvītras piezīmēm:

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

Kā novērst Word problēmas

Vārds var neizdoties bez zīmes. Lai gan jums var šķist neticami, ka jūs piemeklēs šāda neveiksme, jums nav citas izvēles kā vērsties pie kvalificēta remonta rīka, lai to labotu korumpēts dok.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp bojāts Excel un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar