За прошедшие годы компания Филиппа разработала тысячи и тысячи документов Word. Недавно они изменили свою сетевую инфраструктуру, чтобы использовать разные серверы и обновили компьютеры для всех в отделе Филиппа. Когда кто-то открывает один из этих ранее существовавших документов, он ищет шаблон, который существовал в старой инфраструктуре, но больше не доступен. Это означает, что для открытия документа требуется много времени, после чего они могут изменить неверную ссылку на шаблон. Если Филиппу придется открывать каждый из старых документов, на это уйдут дни и дни, поэтому он задается вопросом, есть ли способ изменить ссылки на шаблоны более эффективно, без необходимости открывать каждый документ.

Это может сильно беспокоить — есть несколько вещей похуже (в офисе)

чем смотреть на экран компьютера, ожидая завершения какого-то процесса.

Происходит то, что Word думает, что ваши шаблоны находятся в определенном месте, и просит Windows получить шаблон в этом месте.

Windows покорно пытается (и пытается, и пытается) подчиниться, постоянно ища место. Время ожидания каждой попытки истекает, и общее время, потраченное на эту тщетную попытку, весьма заметно.

Решением было бы использовать макрос для загрузки каждого документа в каталог и изменения шаблона, прикрепленного к этому документу. Ниже приводится пример такого макроса:

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

Обратите внимание, что макрос загружает каждый документ в расположение документа по умолчанию, но это не обязательно ускоряет загрузку. Преимущество использования макроса заключается в том, что вы можете запустить его и позволить ему работать, пока вы находитесь вдали от компьютера.

Дополнительные идеи для программного подхода можно найти в следующей статье, которая может быть полезна некоторым читателям:

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

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (11405) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Updating_Many_Template_References [Обновление многих ссылок на шаблоны].