Annemieke ha un documento piuttosto lungo e include un buon numero di collegamenti ipertestuali. Vorrebbe copiare tutti quei collegamenti ipertestuali (e solo i collegamenti ipertestuali) in un documento nuovo di zecca in modo da avere un elenco di essi in un unico posto. Si chiede se ci sia un modo semplice per farlo.

L’unico modo per farlo è usare una macro. (I suggerimenti che includono l’utilizzo di Trova e sostituisci o la ricerca di testo con stili specifici copieranno solo il testo del collegamento, non il collegamento ipertestuale effettivo.) La chiave nella macro è lavorare con la raccolta Collegamenti ipertestuali, prestando particolare attenzione alle proprietà TextToDisplay e Indirizzo di ogni membro della collezione.

Sub PullHyperlinks()

Dim Src As Document     Dim Link As Hyperlink     Dim iDoDisplay As Integer

Set Src = ActiveDocument     If Src.Hyperlinks.Count > 0 Then         iDoDisplay = MsgBox("Include display text for links?", vbYesNo)



Documents.Add DocumentType:=wdNewBlankDocument         For Each Link In Src.Hyperlinks             If iDoDisplay = vbYes Then                 Selection.TypeText Link.TextToDisplay                 Selection.TypeText vbTab             End If             Selection.TypeText Link.Address             Selection.TypeParagraph         Next Link     Else         MsgBox "There are no hyperlinks in this document."

End If End Sub

La macro verifica prima se sono presenti collegamenti ipertestuali nel documento corrente. Se ci sono, il processo di estrazione può procedere; in caso contrario, viene visualizzato un messaggio in tal senso.

Supponendo che ci siano collegamenti ipertestuali nel documento, all’utente viene chiesto se il nuovo documento deve contenere il testo visualizzato per i collegamenti. La macro crea quindi un nuovo documento e passa attraverso ogni membro della raccolta Hyperlink. Il valore della proprietà TextToDisplay viene aggiunto al nuovo documento (se appropriato) seguito dal valore della proprietà Address.

_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 (13549) si applica a Microsoft Word 2007, 2010, 2013, 2016, 2019 e Word in Office 365.