6 moduri de a converti toate notele de subsol în note de final și viceversa în documentul Word

În acest articol, vă vom oferi 6 moduri de a converti toate notele de subsol în note de final și invers în documentul dvs. Word.

Este cunoscut tuturor că în mod implicit, textele notelor de subsol sunt aranjate în partea de jos a paginilor individuale, în timp ce notele de final sunt găsite la sfârșitul unui document. Cu toate acestea, astfel de setări implicite nu pot satisface oamenii tot timpul. Chiar și Word are o comandă încorporată pentru utilizatori pentru a converti notele de subsol în note de final și invers. Prin urmare, generăm 6 metode pe care le puteți ridica.

Metoda 1: convertiți manual toate notele de subsol în note de final într-un singur document

Iată unde rămân de obicei notele de subsol și notele de final:

1. Pentru început, faceți clic pe fila „Referințe”, apoi faceți clic pe butonul săgeată din grupul „Note de subsol” pentru a deschide caseta de dialog „Notă de subsol și notă de final”.
2. Apoi faceți clic pe butonul „Convertire”.
3. Apoi selectați opțiunea „Convertiți toate notele de subsol în note de final”.
4. Și faceți clic pe „OK”.
5. În cele din urmă, închideți caseta „Notă de subsol și notă de final”.

Iată efectul:

Metoda 2: convertiți manual toate notele de final în note de subsol într-un singur document

A converti notele de final în note de subsol este aproape la fel.

1. Repetați pașii 1 și 2 din metoda 1.
2. De data aceasta, selectați opțiunea „Convertiți toate notele de final în note de subsol”.
3. Totuși, repetați pașii 4 și 5 din metoda 1.

Verifica urmatorul rezultat:

Metoda 3: Convertiți toate notele de subsol în note de final într-un singur document prin VBA

1. În primul rând, apăsați „Alt+ F11” pentru a deschide editorul VBA în Word.
2. Apoi faceți clic pe „Normal”.
3. Faceți clic pe fila „Inserare”.
4. Și alegeți „Modul” din meniul derulant.
5. Apoi faceți dublu clic pe modul pentru a-l deschide.
6. Lipiți acolo următoarele coduri:

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. În cele din urmă, faceți clic pe „Rulați”.

Metoda 4: Convertiți toate notele de final în note de subsol într-un document prin VBA

În mod similar, urmați aceiași pași din metoda 3 pentru a instala și rula macro. Dar, înlocuiți macro-ul cu cea de mai jos:

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: Convertiți în lot toate notele de subsol în note de final în mai multe documente prin VBA

În cazul în care există un număr mare de fișiere cu care trebuie să vă ocupați, mai întâi le aranjați pe toate într-un singur folder. Apoi instalați și rulați această macrocomandă:

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

Rularea acestei macrocomenzi va apărea o casetă de introducere în care ar trebui să introduceți calea folderului. Și nu uitați că ar trebui să existe un „\” la sfârșitul adresei folderului.

Metoda 6: Convertiți în lot toate notele de final în note de subsol în mai multe documente prin VBA

În cele din urmă, iată macrocomanda pentru a converti automat notele de final din mai multe documente în note de subsol:

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

Cum să remediați problemele Word

Cuvântul poate eșua fără niciun semn. Deși s-ar putea să simți că este de necrezut că un astfel de ghinion te va găsi, nu ai de ales decât să apelezi la un instrument calificat de reparații pentru a repara corupt doc.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv Excel deteriorat și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com