Daniel ha un articolo accademico che utilizza molte note a piè di pagina. In questo momento, ha delle note a piè di pagina alla fine di ogni frase. Vorrebbe unire tutte le note a piè di pagina all’interno di un paragrafo in un’unica nota a piè di pagina alla fine del paragrafo. Si chiede se c’è un modo per farlo automaticamente.

Non c’è modo di farlo automaticamente, ma puoi farlo con una macro. Tutto ciò che la macro deve fare è scorrere ogni paragrafo del documento e vedere se ha note a piè di pagina. Quindi, supponendo che lo faccia, li concatena, cancella le note a piè di pagina e aggiunge una nuova nota a piè di pagina con il testo concatenato alla fine del paragrafo. Ecco una macro che fa proprio questo:

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

Notare che la macro concatena il testo della nota a piè di pagina per ogni paragrafo nella stringa sTemp. Viene quindi utilizzato quando si aggiunge la nota a piè di pagina alla fine del paragrafo. Questo presenta uno svantaggio per la macro: copia solo il testo, non la formattazione del testo.

Ad esempio, se hai un sacco di note a piè di pagina che includono citazioni di libri, è probabile che i titoli dei libri siano formattati in corsivo.

Dopo aver eseguito la macro, il corsivo scomparirà, sebbene tutto il testo sia lì. (Non ho modo di trasferire la formattazione, intatta, nella nuova nota a piè di pagina.)

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (13767) si applica a Microsoft Word 2007, 2010, 2013, 2016, 2019 e Word in Office 365.