Nel corso degli anni la società di Phillip ha sviluppato migliaia e migliaia di documenti Word. Recentemente hanno cambiato la loro infrastruttura di rete per utilizzare diversi server e computer aggiornati per tutti nel reparto di Phillip. Quando qualcuno apre uno di quei documenti preesistenti, cerca un modello che esisteva nella vecchia infrastruttura, ma non è più disponibile. Ciò significa che il documento impiega molto tempo per aprirsi, dopodiché è possibile modificare il riferimento al modello non valido. Se Phillip deve aprire ciascuno dei vecchi documenti, ci vorranno giorni e giorni per farlo, quindi si chiede se c’è un modo per modificare i riferimenti del modello in modo più efficiente, senza la necessità di aprire ogni documento.

Questo può essere un vero fastidio — ci sono poche cose peggiori (in ufficio)

che fissare lo schermo di un computer, aspettando che qualche processo finisca.

Quello che sta succedendo è che Word pensa che i tuoi modelli si trovino in una posizione particolare e chiede a Windows di andare a prendere il modello in quella posizione.

Windows cerca diligentemente (e prova e prova) di conformarsi, cercando ripetutamente la posizione. Ogni tentativo scade e il tempo complessivo trascorso in questo vano tentativo è abbastanza evidente.

Una soluzione potrebbe essere quella di utilizzare una macro per caricare ogni documento in una directory e modificare il modello allegato a quel documento. Quello che segue è un esempio di tale macro:

Sub BatchTemplateChange()

Dim sPathToTemplates As String     Dim sPathToDocs As String     Dim sDoc As String     Dim dDoc As Document     Dim sNewTemplate As String     Dim i As Long

On Error Resume Next     Application.ScreenUpdating = False

sNewTemplate = "normal.dotx"         'new template name     sPathToDocs = Options.DefaultFilePath(wdDocumentsPath) & "\"

sPathToTemplates = Options.DefaultFilePath(wdUserTemplatesPath) & "\"



sDoc = Dir(sPathToDocs & "*.doc")



While Len(sDoc) <> 0         Set dDoc = Documents.Open(FileName:=sPathToDocs & sDoc)

dDoc.AttachedTemplate = sPathToTemplates & sNewTemplate         dDoc.Close wdSaveChanges         sDoc = Dir         i = i + 1     Wend

Application.ScreenUpdating = True     MsgBox "Finished: " & i & " documents changed"

End Sub

Tieni presente che la macro carica ogni documento nella posizione predefinita del documento, ma ciò non accelera necessariamente il caricamento. Il vantaggio di utilizzare la macro è che puoi avviarla in esecuzione e consentirle di funzionare mentre sei lontano dal computer.

Ulteriori idee per un approccio programmatico possono essere trovate nel seguente articolo, che può essere utile ad alcuni lettori:

http://www.edugeek.net/forums/scripts/35199-vba-script-change-word-document-template-location.html

_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 (11405) si applica a Microsoft Word 2007, 2010, 2013, 2016, 2019 e Word in Office 365. Puoi trovare una versione di questo suggerimento per vecchia interfaccia del menu di Word qui:

Aggiornamento di molti riferimenti ai modelli.