Condividi:        

collegamenti ipertestuali saltati

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

collegamenti ipertestuali saltati

Postdi giostacchio » 17/10/16 12:43

Ciao

Non so per quale motivo ma, nel mio file xls si sono modificati tutti i collegameti da un percorso di rete collegato ad una cartella in rete appunto ad una cartella in C: users

praticamente il mio collegamento era :

File:///\\XenFS01\Gruppi\Qualità\01 SGQ\12 Qualifica ......

mentre ora sono diventati

File:///\\C:\users\AppData\Roaming\12 Qualifica...

sono circa 400 hyperlink nella solo colonna P poi ne ho altri con altre estensioni in altre colonne

si può fare qualcosa ?
giostacchio
Utente Junior
 
Post: 90
Iscritto il: 14/10/16 07:36

Sponsor
 

Re: collegamenti ipertestuali saltati

Postdi Anthony47 » 19/10/16 02:32

Potrebbe aiutarti questa macro:
Codice: Seleziona tutto
Sub hypeRest()
Dim Hyp As Hyperlink, I As Long, hypA, olPath As String, nwPath As String
'
olPath= "\\C:\users\AppData\Roaming\"         '<<< L'attuale "percorso" corrotto
nwPath ="\\XenFS01\Gruppi\Qualità\01 SGQ\"    '<<< Il "percorso" da ripristinare
For I = 1 To Worksheets.Count
    For Each Hyp In Sheets(I).Hyperlinks
        hypA = Hyp.Address
        Hyp.Address = Replace(hypA, olPath, nwPath, , , vbTextCompare)
    Next Hyp
Next I
End Sub

Le righe marcate <<< sono da personalizzare come da commenti; i valori citati sono come l'ho capita io.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: collegamenti ipertestuali saltati

Postdi giostacchio » 20/10/16 07:34

Anthony47 ha scritto:Potrebbe aiutarti questa macro:
Codice: Seleziona tutto
Sub hypeRest()
Dim Hyp As Hyperlink, I As Long, hypA, olPath As String, nwPath As String
'
olPath= "\\C:\users\AppData\Roaming\"         '<<< L'attuale "percorso" corrotto
nwPath ="\\XenFS01\Gruppi\Qualità\01 SGQ\"    '<<< Il "percorso" da ripristinare
For I = 1 To Worksheets.Count
    For Each Hyp In Sheets(I).Hyperlinks
        hypA = Hyp.Address
        Hyp.Address = Replace(hypA, olPath, nwPath, , , vbTextCompare)
    Next Hyp
Next I
End Sub

Le righe marcate <<< sono da personalizzare come da commenti; i valori citati sono come l'ho capita io.

Ciao
giostacchio
Utente Junior
 
Post: 90
Iscritto il: 14/10/16 07:36

Re: collegamenti ipertestuali saltati

Postdi giostacchio » 20/10/16 07:35

risolto

grazieeeeeeeee
giostacchio
Utente Junior
 
Post: 90
Iscritto il: 14/10/16 07:36


Torna a Applicazioni Office Windows


Topic correlati a "collegamenti ipertestuali saltati":


Chi c’è in linea

Visitano il forum: Nessuno e 78 ospiti