How to execute a macros across multiple Word documents? - vba

Question

I've got a macro code (courtesy of Xavier Junqué, see code snippet 1 below) which allows me to delete all misspelled words in a Microsoft Word document. I'm hoping to execute this code across all word docs in a single folder. There are hundreds of word documents. Can anyone tell me how? I've tried to use Graham Mayor's (GM) batch process add-in, which I saw some ppl recommend on other forums, but the add-in seems to require a "function" line in the code (eg. Function MyUserDefinedProcess(oDoc As Document) As Boolean). I tried adding this function line into my code, replacing the sub line (see code snippet 2), but it doesn't work. Does anyone have any other macro solutions for batch execution of macros or can advise me on what I'm doing wrong with the GM add-in? Many thanks!
#Code Snippet 1: the code I'm trying to execute across multiple files...
Sub DeleteSpellingErrors()
Dim cnt As Long
Dim cur As Range
Dim doc As Document
Set doc = ActiveDocument
cnt = doc.Range.SpellingErrors.Count
Set cur = doc.GoTo(What:=wdGoToSpellingError, Which:=wdGoToFirst)
For i = 1 To cnt
cur.Select
cur.Delete
Debug.Print cnt & " " & i
Set cur = doc.GoTo(What:=wdGoToSpellingError, Which:=wdGoToNext)
DoEvents
Next
End Sub
#Code Snippet 2: Same as above code but with function line instead of sub...
Function DeleteSpellingErrors(ByRef oDoc As Word.Document) As Boolean
Dim cnt As Long
Dim cur As Range
Dim doc As Document
Set doc = ActiveDocument
cnt = doc.Range.SpellingErrors.Count
Set cur = doc.GoTo(What:=wdGoToSpellingError, Which:=wdGoToFirst)
For i = 1 To cnt
cur.Select
cur.Delete
Debug.Print cnt & " " & i
Set cur = doc.GoTo(What:=wdGoToSpellingError, Which:=wdGoToNext)
DoEvents
Next
End Function
5 Feb
#Xavier: Based on your advice, here's what I did...
I cut "BatchProcessDocuments Ver 4.7.dotm" out of the "...STARTUP" folder and paste it into "...Word" folder.
I open a new blank word doc > developer> macro> type in abc and click "create macro"
The visual basic editor appears. I can see the "abc" window but I can't see the DeleteSpellingErrors() macro. I can see that this "abc" macro is under module 2, and there is already a module 1. If I open module 1, I'll find the delete spelling error macro code as per below (I previously already updated my code to match your suggested code, which is why it's already under module 1)
Function DeleteSpellingErrors(doc As Document) As Boolean
Dim cnt, i As Long
Dim cur, Last As Range
If doc Is Nothing Then
Set doc = Application.ActiveDocument
End If
Do
cnt = doc.Range.SpellingErrors.Count
If cnt <= 0 Then Exit Do
Set Last = doc.GoTo(What:=wdGoToSpellingError, Which:=wdGoToLast)
Set cur = doc.GoTo(What:=wdGoToSpellingError, Which:=wdGoToFirst)
For i = 1 To cnt
cur.Select
cur.Delete
'Debug.Print cnt & " " & i
Set cur = doc.GoTo(What:=wdGoToSpellingError, Which:=wdGoToNext)
DoEvents
i = i + 1
Next
Loop
DeleteSpellingErrors = True
End Function
I replace the both module 1 and 2's contents with the code as per above. I save both macros and close the VBA editor, close the word document, and paste the "BatchProcessDocuments Ver 4.7.dotm" back into the startup folder.
I open the "BatchProcessDocuments Ver 4.7.dotm" file> batch process tab > "process folder" > user defined process, and type in "DeleteSpellingErrors". See screenshot below.
screenshot
Again, it instantly processes the batch macro and says its complete without actually doing anything to the underlying files. I have two docm files in this folder for testing purposes. I've tried docx files to no effect as well.
#Xavier Please see below for the error message images I mentioned in my comments, and thank you as always. Error image 1 Error image 2

Answer 1

The following code worked for me in a 107 page document and more than 3000 spelling errors. It took 3 minutes of processing and did the work in just one call from Graham Mayor's add-in.
Function DeleteSpellingErrors(doc As Document) As Boolean
Dim cnt, i As Long
Dim cur, Last As Range
Do
cnt = doc.Range.SpellingErrors.Count
If cnt <= 0 Then Exit Do
Set Last = doc.GoTo(What:=wdGoToSpellingError, Which:=wdGoToLast)
Set cur = doc.GoTo(What:=wdGoToSpellingError, Which:=wdGoToFirst)
For i = 1 To cnt
cur.Select
cur.Delete
'Debug.Print cnt & " " & i
Set cur = doc.GoTo(What:=wdGoToSpellingError, Which:=wdGoToNext)
DoEvents
i = i + 1
Next
Loop
DeleteSpellingErrors = True
End Function
So, it is possible to execute the batch macro.
' **********************************************
Most probably there is not the last update of macro DeleteSpellingErrors(). In order to update properly, do the following:
Go to the folder that contains "BatchProcessDocuments Ver 4.7.dotm", this is, folder:
C:\Users\ ... \AppData\Roaming\Microsoft\Word\STARTUP
Move "BatchProcessDocuments Ver 4.7.dotm" to the upper folder:
C:\Users\ ... \AppData\Roaming\Microsoft\Word
Open a blank Word document
Create a macro named, for example, "abc"
Now you should see macro "abc" and also macro DeleteSpellingErrors()
Replace both macros by the following
Function DeleteSpellingErrors(doc As Document) As Boolean
Dim cnt, i As Long
Dim cur, Last As Range
If doc Is Nothing Then
Set doc = Application.ThisDocument
End If
Do
cnt = doc.Range.SpellingErrors.Count
If cnt <= 0 Then Exit Do
Set Last = doc.GoTo(What:=wdGoToSpellingError, Which:=wdGoToLast)
Set cur = doc.GoTo(What:=wdGoToSpellingError, Which:=wdGoToFirst)
For i = 1 To cnt
cur.Select
cur.Delete
'Debug.Print cnt & " " & i
Set cur = doc.GoTo(What:=wdGoToSpellingError, Which:=wdGoToNext)
DoEvents
i = i + 1
Next
Loop
DeleteSpellingErrors = True
End Function
Save the macro DeleteSpellingErrors()
Close VB window.
Close Word
Move "BatchProcessDocuments Ver 4.7.dotm" back to it's original folder.
Open "BatchProcessDocuments Ver 4.7.dotm"
Do a batch processing: now it should work as expected.
I am not sure what is happening. Any way I have made a small VB.NET application to run Macros to Word Documents inside a folder. I have tried to debug as much as possible, but it would be nice to hear your opinion. You may download it at my site download page here
// **************************************** //
I have made a new release. Now you may enter your macros and save them with the application in a Word doc1.dotm file inside the START folder. The reason you can't see the macro DeleteSpellingErrors is becaus GM saves the macros in a protected .dotm file. The new release expects you not to save protecting and therefore you will have access to all your macros in doc1.dotm. It may be any name with the same extension v.gr. myMacros.dotm
The applicatin has a Help menu where you may follow the usage instructions.

Answer 2

Check this code (add exceptions ect.):
Private Sub DelErrorsInFiles()
Dim oDoc As Document
Dim fileName As String
Const folder As String = "C:\Test\" '"\" at the end is important
fileName = Dir(folder)
Do While fileName <> ""
Set oDoc = Documents.Open(fileName:=folder & fileName)
DeleteSpellingErrors oDoc
oDoc.Save
oDoc.Close
DoEvents
Set oDoc = Nothing
fileName = Dir
Loop
End Sub
Function DeleteSpellingErrors(ByRef oDoc As Word.Document) As Boolean
Application.ScreenUpdating = False
Debug.Print oDoc.Name
Debug.Print oDoc.Range.SpellingErrors.Count
Dim i As Long
Do While oDoc.Range.SpellingErrors.Count > 0
oDoc.Range.SpellingErrors(1).Select
Debug.Print CStr(i) & " " & Selection.Text
Selection.Delete
i = i + 1
If i Mod 10 = 0 Then
oDoc.UndoClear
DoEvents
End If
Loop
Application.ScreenUpdating = True
Application.ScreenRefresh
End Function