Jennifer ha un documento di Word che contiene collegamenti a centinaia di altri documenti. Ora vuole sostituire ciascuno di quei collegamenti con il documento effettivo a cui si fa riferimento. (In altre parole, desidera incorporare i documenti di riferimento.) Si chiede se esista un modo globale per farlo invece di dover fare ogni documento separatamente.

La soluzione dipende da come, esattamente, hai gli altri documenti collegati al tuo documento corrente. Se si inserisce il contenuto di un altro file utilizzando il comando Testo da file (scheda Inserisci | Oggetto | Testo da file) e si sceglie di inserire come collegamento, il contenuto del file viene effettivamente aggiunto tramite l’uso del campo TESTO INCLUSO. Come con qualsiasi altro campo, puoi scollegare il campo in questo modo:

  1. Seleziona il campo. (Oppure, se hai molti campi, premi Ctrl + A per selezionare l’intero documento.)

  2. Premi Ctrl + Maiusc + F9. Word scollega i campi, lasciando il testo rappresentato dai campi.

Se i tuoi documenti sono collegati tramite collegamenti ipertestuali, il processo è un po ‘più difficile. Il motivo è semplice: un collegamento ipertestuale è solo un puntatore all’altro documento, non il contenuto effettivo di quell’altro documento. Ciò significa che è necessario trovare un modo per aprire l’altro documento, prenderne il contenuto e inserirlo nel documento corrente al posto del collegamento ipertestuale.

Questo tipo di lavoro è perfetto per una macro. L’esempio seguente esegue effettivamente i passi indietro attraverso ogni collegamento ipertestuale e inserisce i file:

Sub InsertDocs()

Dim aRange As Range     Dim J As Long

Set aRange = ActiveDocument.Range     ' Go backwards because hyperlinks are deleted as processed     For J = aRange.Hyperlinks.Count to 1 Step -1         With aRange.Hyperlinks(J)

' Process only hyperlinks to documents             If InStr(.Address, ".doc") > 0 Then                 .Range.Select                 On Error GoTo noFile                 .Follow                 On Error GoTo 0                 ActiveDocument.Range.Copy                 ActiveDocument.Close                 Selection.Paste             End If             GoTo nextFile noFile:

On Error GoTo 0             MsgBox "Cannot open file " & .Address nextFile:

End With     Next J End Sub

Notare che la macro controlla il collegamento ipertestuale per assicurarsi che contenga le lettere “.doc”. Ciò non significa che sia limitato solo ai vecchi file .DOC, poiché il test corrisponderebbe anche alle lettere “.docx” e “.docm”.

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