Daniel tiene un artículo académico que usa muchas notas a pie de página. En este momento, tiene notas a pie de página al final de cada oración. Le gustaría combinar todas las notas a pie de página dentro de un párrafo en una sola nota al final del párrafo. Se pregunta si hay alguna forma de hacer esto automáticamente.

No hay forma de hacer esto automáticamente, pero puede hacerlo con una macro. Todo lo que debe hacer la macro es recorrer cada párrafo del documento y ver si tiene notas al pie. Luego, asumiendo que lo hace, las concatena, elimina las notas al pie y agrega una nueva nota al pie con el texto concatenado al final del párrafo. Aquí hay una macro que hace precisamente eso:

Sub MoveFootnotes()

Dim p As Paragraph     Dim iFN As Integer     Dim J As Integer     Dim oCurPar As Object     Dim sTemp As String

For Each p In ActiveDocument.Paragraphs         sTemp = ""

iFN = p.Range.Footnotes.Count         For J = iFN To 1 Step -1             sTemp = p.Range.Footnotes(J).Range.Text & " " & sTemp             p.Range.Footnotes(J).Delete         Next J         sTemp = Trim(sTemp)

If sTemp > "" Then             Set oCurPar = p.Range             oCurPar.Collapse Direction:=wdCollapseEnd             oCurPar.MoveEnd Unit:=wdCharacter, Count:=-1             ActiveDocument.Footnotes.Add Range:=oCurPar, Text:=sTemp         End If     Next p End Sub

Tenga en cuenta que la macro concatena el texto de la nota al pie de cada párrafo en la cadena sTemp. Esto se usa luego al agregar la nota al pie al final del párrafo. Esto presenta un inconveniente para la macro: copia solo texto, no ningún formato para el texto.

Por ejemplo, si tiene un montón de notas a pie de página que incluyen citas de libros, es muy probable que los títulos de esos libros estén formateados en cursiva.

Después de ejecutar la macro, la cursiva desaparecerá, aunque todo el texto estará allí. (No hay forma que yo sepa de transferir el formato, intacto, a la nueva nota al pie).

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (13767) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365.