6 formas de convertir todas las notas al pie en notas al final y viceversa en su documento de Word

En este artículo, le proporcionaremos 6 formas de convertir todas las notas al pie en notas al final y viceversa en su documento de Word.

Todos saben que, de forma predeterminada, los textos de las notas al pie se organizan en la parte inferior de las páginas individuales, mientras que las notas al final se encuentran al final de un documento. Sin embargo, esta configuración predeterminada no puede satisfacer a las personas todo el tiempo. Incluso Word tiene un comando integrado para que los usuarios conviertan notas al pie en notas al final y viceversa. Por lo tanto, generamos 6 métodos para que los recoja.

Método 1: convertir todas las notas al pie en notas al final en un documento manualmente

Aquí es donde suelen quedarse las notas al pie y las notas al final:

1. Para empezar, haga clic en la pestaña "Referencias" y luego haga clic en el botón de flecha en el grupo "Notas al pie" para abrir el cuadro de diálogo "Nota al pie y nota al final".
2. A continuación, haga clic en el botón "Convertir".
3. Luego seleccione la opción "Convertir todas las notas al pie en notas al final".
4. Y haga clic en "Aceptar".
5. Por último, cierre el cuadro "Nota al pie y nota al final".

Aquí está el efecto:

Método 2: convertir todas las notas al final en notas al pie en un documento manualmente

Convertir notas al final en notas a pie de página es muy similar.

1. Repita los pasos 1 y 2 del método 1.
2. Esta vez, seleccione la opción "Convertir todas las notas al final en notas al pie".
3. Aún así, repita los pasos 4 y 5 del método 1.

Verifique el siguiente resultado:

Método 3: convertir todas las notas al pie en notas al final en un documento a través de VBA

1. En primer lugar, presione "Alt + F11" para abrir el editor VBA en Word.
2. A continuación, haga clic en "Normal".
3. Haga clic en la pestaña "Insertar".
4. Y elija "Módulo" en el menú desplegable.
5. Luego haga doble clic en el módulo para abrirlo.
6. Pegue los siguientes códigos allí:

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. Finalmente, haga clic en "Ejecutar".

Método 4: convertir todas las notas al final en notas al pie en un documento a través de VBA

Del mismo modo, siga los mismos pasos del método 3 para instalar y ejecutar la macro. Pero, reemplace la macro con la siguiente:

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

Método 5: convertir por lotes todas las notas al pie en notas al final en varios documentos a través de VBA

En caso de que tenga que lidiar con una gran cantidad de archivos, primero organícelos todos en una carpeta. Luego instale y ejecute esta macro:

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

Al ejecutar esta macro, aparecerá un cuadro de entrada donde debe ingresar la ruta de la carpeta. Y no olvide que debe haber un "\" al final de la dirección de la carpeta.

Método 6: convertir por lotes todas las notas al final en notas al pie en varios documentos a través de VBA

Finalmente, aquí está la macro para convertir por lotes notas al final en varios documentos en notas al pie de forma automática:

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

Cómo solucionar problemas de palabras

La palabra puede fallar sin señal. Aunque puede sentir que es increíble que tan mala suerte lo encuentre, no tiene más remedio que recurrir a una herramienta de reparación calificada para solucionarlo. doc corrupto.

Introducción del autor:

Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo Excel dañado y pdf reparar productos de software. Para más información visite www.datanumen.com