Stephen ha un documento di grandi dimensioni (oltre 300 pagine) che include un gran numero di collegamenti ipertestuali nel testo principale. Ci sono anche note a piè di pagina nel documento. Ciascun collegamento ipertestuale deve essere convertito in una nota a piè di pagina, il che (ovviamente) aumenterà il numero di note a piè di pagina nel documento.

L’aumento non è un problema. Il problema è trovare un modo rapido per convertire tutti quei collegamenti ipertestuali in note a piè di pagina. Stephen si chiede se questo possa essere fatto usando una macro.

Questo può, infatti, essere fatto con una macro. In effetti, la macro potrebbe essere più semplice di quanto potresti immaginare. Ecco un esempio:

Sub LinksToFootnotes()

Dim hLink As Hyperlink     Dim rTemp As Range     Dim J As Integer

For Each hLink In ActiveDocument.Hyperlinks         Set rTemp = hLink.Range

' Create footnote         ActiveDocument.Footnotes.Add Range:=rTemp, _           Text:=rTemp.Text

' Delete possible leading space         rTemp.Collapse         rTemp.MoveStart Count:=-1         If rTemp.Text = " " Then rTemp.Delete     Next hLink

' Delete hyperlinks     For J = ActiveDocument.Hyperlinks.Count To 1 Step -1         ActiveDocument.Hyperlinks(J).Range.Delete     Next End Sub

Questo esempio esegue due passaggi attraverso tutti i collegamenti ipertestuali nel documento.

Durante il primo passaggio crea le note a piè di pagina e durante il secondo passaggio cancella i collegamenti ipertestuali. Notare anche quella parte del codice che controlla se c’è uno spazio prima del collegamento ipertestuale. Questo viene fatto in modo che, se c’è, quello spazio può essere cancellato per mettere il numero della nota a piè di pagina risultante proprio accanto a qualsiasi cosa prima di quello spazio. (In altre parole, se ciò non fosse stato fatto, è una buona scommessa che ogni numero di nota a piè di pagina avrebbe uno spazio prima di esso.)

Ciò solleva un altro problema con la macro di cui dovresti essere a conoscenza: tutto ciò che fa è creare le note a piè di pagina ed eliminare i collegamenti ipertestuali. Se sono presenti informazioni che circondano il collegamento ipertestuale originale (come parentesi, virgole o punti), quei caratteri verranno lasciati nel documento. Ciò significa che dovresti fare un passaggio manuale attraverso il tuo documento dopo aver eseguito la macro per assicurarti che i possibili caratteri estranei siano modificati come vuoi che siano.

Infine, nota che i collegamenti ipertestuali inseriti nelle note a piè di pagina non sono collegamenti ipertestuali attivi, sono solo testo. Questo non è un grosso problema, tuttavia, poiché il testo normale è in genere ciò che si desidera quando si creano documenti che contengono note a piè di pagina.

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

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