Я попытаюсь обрисовать подход к проблеме с использованием макроса VBA, предупреждая, что он является полностью теоретическим и непроверенным.
Идея состоит в том, чтобы создать рабочий документ, содержащий макрос VBA, который выполняет повторное присоединение шаблона ко всем документам в папке после запроса папки.
Не помещайте файл, содержащий этот макрос, в папку, которую вы хотите обработать, иначе он будет обрабатываться сам.
Вот макрос:
Sub UpdateDocuments() Dim strFolder As String, strFile As String, strCurDoc As Document, strTemplate As String strFolder = GetFolder strTemplate = "C:\path to template\template.dot" If strFolder = "" Then Exit Sub Application.ScreenUpdating = False strFile = Dir(strFolder & "\*.docx", vbNormal) While strFile <> "" Set strCurDoc = Documents.Open(FileName:=strFolder & "\" & strFile, AddToRecentFiles:=False, Visible:=False) strCurDoc.AttachedTemplate = strTemplate strCurDoc.Close wdSaveChanges End With strFile = Dir() Wend Set wdDoc = Nothing Application.ScreenUpdating = True End Sub Function GetFolder() As String Dim oFolder As Object GetFolder = "" Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Choose a folder", 0) If (Not oFolder Is Nothing) Then GetFolder = oFolder.Items.Item.Path Set oFolder = Nothing End Function