A lo largo de los años, la compañía de Phillip ha desarrollado miles y miles de documentos de Word. Recientemente cambiaron su infraestructura de red para usar diferentes servidores y actualizaron computadoras para todos en el departamento de Phillip. Cuando alguien abre uno de esos documentos preexistentes, busca una plantilla que existía en la infraestructura anterior, pero que ya no está disponible. Esto significa que el documento tarda mucho en abrirse, después de lo cual pueden cambiar la referencia de plantilla incorrecta. Si Phillip tiene que abrir cada uno de los documentos antiguos, le llevará días y días hacerlo, por lo que se pregunta si hay alguna forma de cambiar las referencias de la plantilla de manera más eficiente, sin necesidad de abrir cada documento.

Esto puede ser una verdadera molestia, hay pocas cosas peores (en la oficina)

que mirar la pantalla de una computadora, esperando que termine algún proceso.

Lo que sucede es que Word piensa que sus plantillas están en una ubicación particular y le pide a Windows que vaya a buscar la plantilla en esa ubicación.

Windows intenta obedientemente (e intenta e intenta) cumplir, buscando repetidamente la ubicación. Cada intento se agota y el tiempo total invertido en este vano intento es bastante notable.

Una solución sería usar una macro para cargar cada documento en un directorio y cambiar la plantilla adjunta a ese documento. El siguiente es un ejemplo de una macro de este tipo:

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

Tenga en cuenta que la macro carga cada documento en la ubicación predeterminada del documento, pero eso no necesariamente acelera la carga. La ventaja de utilizar la macro es que puede iniciarla y permitir que funcione mientras no está en la computadora.

Se pueden encontrar ideas adicionales para un enfoque programático en el siguiente artículo, que puede ser útil para algunos lectores:

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

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Esta sugerencia (11405) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365. Puede encontrar una versión de esta sugerencia para interfaz de menú anterior de Word aquí:

link: / word-Updating_Many_Template_References [Actualización de muchas referencias de plantillas].