
Ciao @Stefano Cappuzzo
Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni insolite.
Grazie ancora per la risposta. Sono felice di sapere che la macro funziona bene e che i primi test sono promettenti!
Per applicare un modello a documenti Word già esistenti, ho seguito anch’io una soluzione simile. Ho creato un modello personalizzato .dotm e utilizzato una macro VBA per collegarlo a tutti i file .docx presenti in una cartella. Dopo i test, gli stili del modello sono stati applicati correttamente a ciascun documento.
Ecco la macro che ho utilizzato su Windows:
Sub ApplyTemplateToDocxFiles()
Dim fso As Object, folder As Object, file As Object
Dim doc As Document
Dim folderPath As String, templatePath As String
' Specifica la cartella contenente i documenti
folderPath = "C:\Users\Admin\Downloads\Testagain\"
' Specifica il percorso del file modello
templatePath = "C:\Users\Admin\AppData\Roaming\Microsoft\Templates\templatetest.dotm"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderPath)
For Each file In folder.Files
If LCase(fso.GetExtensionName(file.Name)) = "docx" Then
Set doc = Documents.Open(FileName:=file.Path, ReadOnly:=False, Visible:=False)
doc.AttachedTemplate = templatePath
doc.UpdateStylesOnOpen = True
doc.UpdateStyles
doc.Save
doc.Close
End If
Next file
MsgBox "Modello applicato con successo a tutti i file .docx.", vbInformation
End Sub
Un piccolo consiglio: prima di eseguire la macro, è sempre una buona idea fare una copia di backup dei documenti e provarla su alcuni file per assicurarsi che tutto venga applicato come previsto.
Se hai altre domande o hai bisogno di una mano con qualcos'altro, non esitare a scrivermi, sarò felice di aiutarti!