Ich werde versuchen, eine Herangehensweise für das Problem mithilfe eines VBA-Makros zu skizzieren, und warne, dass es völlig theoretisch und nicht getestet ist.
Die Idee besteht darin, ein Arbeitsdokument zu erstellen, das ein VBA-Makro enthält, das die Vorlage erneut an alle Dokumente in einem Ordner anfügt, nachdem Sie nach dem Ordner gefragt haben.
Legen Sie die Datei, die dieses Makro enthält, nicht in den Ordner, den Sie bearbeiten möchten. Andernfalls wird die Datei selbst verarbeitet.
Hier ist das Makro:
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