Originally Posted by
John Wilson
You are asking someone to do an awful lot of free work to achieve that. Realistically you need to hire an expert to create an Add In.
Thank you John for your reply. I assumed It was a fairly simple job, I'm obviously not expecting anyone to do anything too time-consuming for free...I wouldn't have even asked otherwise!
I've came across the vba function that'sused to replace fonts, but It's not always working as expected. This is the code I found:
Application.ActivePresentation.Fonts _ .Replace Original:="Times New Roman", Replacement:="Courier"
I've also found a few lines of code that should allow to run a macro on multiple workbooks at the same time, which are:
SubLoopThroughFiles() Dim xFd As FileDialog
Dim xFdItem As Variant
Dim xFileName As String
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
If xFd.Show = -1 Then
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Do While xFileName <> ""
With Workbooks.Open(xFdItem & xFileName)
'your code here
End With
xFileName = Dir
Loop
End If
EndSub
This is the link to the full guide: https://www.extendoffice.com/documen...workbooks.html
I've tried to take the latter code as a reference and tweak it a bit to accomodate my needs, but to no avail.
I'll be extremely grateful to anyone pointing me in the right direction.
Thank you and have a good day!