Cambio origine in automatico file excel in word

Question

Avrei creato la seguente struttura di cartelle :

Anno 1

-Società 1

--attività1

--attività2

--attività3

-Società 2

--attività1

--attività2

--attività3

-Società 3

--attività1

--attività2

--attività3

All'interno di ogni cartella attività sono presenti un file excel e un file word. Il file word contiene 10-15 collegamenti con il file excel presente nella stessa cartella.

Adesso dovrei copiare la stessa struttura di cartelle sotto Anno2.

Purtroppo i file word continuano a puntare il collegamento ai file excel presenti in Anno1.

Come si puo cambiare l'origine collegate senza dover andare manualmente a modificare ogni singolo collegamento.

Grazie per l'aiuto

Gianni

Answer 1

Ciao gianni\_76,

un modo potrebbe essere aggiungere la seguente routine nel modulo ThisDocument del progetto Visual Basic del documento Word:

' ThisDocument - Document

'

Option Explicit

Private Sub Document_Open()

Dim f As Word.Field

    With Me.Fields

      If .Count Then

        Set f = .Item(1)

        Do Until f Is Nothing

          With f

            If .Type = wdFieldLink Then

              If .LinkFormat.Type = wdLinkTypeOLE Then

                If .LinkFormat.SourcePath <> Me.Path Then

                  .Code.Text = Replace(.Code.Text _

                                     , Replace(.LinkFormat.SourcePath _

                                             , "", "\") _

                                     , Replace(Me.Path, "", "\"))

                  .Update

                End If

              End If

            End If

            Set f = .Next

          End With

        Loop

      End If

    End With

    Set f = Nothing

End Sub

Quando il documento, copiato in una diversa cartella, viene aperto si aggiornano i collegamenti alla cartella Excel, con lo stesso nome, presente nella nuova cartella.

Importante, l'opzione avanzata per l'aggiornamento automatico dei collegamenti all'apertura deve essere disattivata.

Answer 2

:-))))))))))))))))))))

(Per un attimo avevo sperato di poter ancora imparare qualcosa.)

Answer 3

no, direi proprio di no. O meglio, io non saprei come; se qualcuno ha qualche idea è il benvenuto. :) 

http://www.cvb.sm/default.asp?id=667 

;-)

Answer 4

[...]

Un'ultima cosa: non è possibile integrare il codice affinché non sia necessario aprire il file word per ottenere l'aggiornamento dei collegamenti?

Ciao gianni\_76,

no, direi proprio di no. O meglio, io non saprei come; se qualcuno ha qualche idea è il benvenuto. :)

Answer 5

Grazie Maurizio,

In giornata la provo. Un'ultima cosa: non è possibile integrare il codice affinché non sia necessario aprire il file word per ottenere l'aggiornamento dei collegamenti?

Grazie ancora

Gianni