Originariamente inviata da
16fra
a scanso di equivoci in questi giorni ci ho lavorato smanettando, cercando di correggere le parti di codice palesemente legate ad excel, ma con scarso succeso... poi ho postato nel forum.
ad ogni modo non cerco ne la pappa scodellata ne tanto meno vorrei rubare tempo e/o altro a nessuno.
Il codice che ho trovato ha tutti i presupposti per funzionare purtroppo è specifico per excel...
non sono riuscito a trovare delle indicazioni precise per convertirlo in modo opportuno...
Di seguito riporto il codice del link in versione originale in modo che non ci siano miei errori:
Sub ExecuteApplyMacroToAllFiles()
'Change the path to the main folder
Call ApplyMacroToAllFiles("C:\test folder")
End Sub
Sub ApplyMacroToAllFiles(ByVal MyPath As String)
Dim FileSys As Object
Dim objFolder As Object
Dim objSubFolder As Object
Dim objFile As Object
Dim wkbOpen As Workbook
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set objFolder = FileSys.GetFolder(MyPath)
Application.ScreenUpdating = False
For Each objSubFolder In objFolder.SubFolders
For Each objFile In objSubFolder.Files
Set wkbOpen = Workbooks.Open(filename:=objFile)
'Change the name of your macro
Call MyMacro
wkbOpen.Close savechanges:=True
Next
Call ApplyMacroToAllFiles(objSubFolder.Path)
Next
Application.ScreenUpdating = True
End Sub
Se qualcuno sa darmi dell indicazioni su dove trovare i comandi VBA di word e eventualmente ha qualche suggerimento per portare a buon fine questo script ne sarei molto grato.
Buona serata e buon inizio settimana a tutti...
;-)
Grazie
;-)
Rispondi quotando