Resetting Spelling and Grammar Checking on Multiple Documents

Written by Allen Wyatt (last updated May 25, 2024)
This tip applies to Word 2007, 2010, 2013, 2016, 2019, 2021, and Word in Microsoft 365


1

Sara has a folder containing about 30 Word documents. She needs to reset and then re-run Spelling and Grammar checking on all the documents. Starting the check is quick and easy, but it's a pain to go to File, then Options, then Proofing, then Recheck on each document separately. She wonders if there is a way to reset the Spelling and Grammar checking on multiple files at once.

The only way that this can be done is through the use of a macro that will, essentially, go through the same steps that you would have done manually. (Since it is a macro, however, it can do those steps much faster than you could possibly do them.) The following macro is an example of one way to accomplish the task:

Sub ResetDocs()
    Dim sPath As String
    Dim sFile As String

    sPath = "c:\Path\To\Documents\"

    sFile = Dir(sPath & "*.doc*")
    Application.ScreenUpdating = False
    Do While sFile <> ""
        Documents.Open sPath & sFile
        With ActiveDocument
            .Range.NoProofing = False
            Application.ResetIgnoreAll
            .SpellingChecked = False
            .GrammarChecked = False
            .Close SaveChanges:=wdSaveChanges
        End With
        sFile = Dir()
    Loop
    Application.ScreenUpdating = True
End Sub

In order to use the macro, all you need to do is change the path that is assigned to the sPath variable. This should be the path to the folder containing your documents, and you'll want to make sure that it ends with a backslash. The macro opens any document files in the folder and resets all the spelling- and grammar-checking-related settings in the document. Then, the document is saved. The next time you open the documents normally, you should notice that the checking should occur as normal.

Note:

If you would like to know how to use the macros described on this page (or on any other page on the WordTips sites), I've prepared a special page that includes helpful information. Click here to open that special page in a new browser tab.

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (1930) applies to Microsoft Word 2007, 2010, 2013, 2016, 2019, 2021, and Word in Microsoft 365.

Author Bio

Allen Wyatt

With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He is president of Sharon Parq Associates, a computer and publishing services company. ...

MORE FROM ALLEN

Cross-Referencing Index Entries

You've probably seen an index where an entry says something like "Obsidian: See igneous rock." This sort of ...

Discover More

E-mailing PDF Reports Results in Consistent Crash

It is possible to create macros that send out reports, via e-mail, from within Excel. Frank did this and ran into ...

Discover More

Using Cross-References in Footnotes

Need to make a cross-reference from one footnote to another footnote? You can do it if you throw bookmarks into the mix, ...

Discover More

Learning Made Easy! Quickly teach yourself how to format, publish, and share your content using Word 2013. With Step by Step, you set the pace, building and practicing the skills you need, just when you need them! Check out Microsoft Word 2013 Step by Step today!

More WordTips (ribbon)

Merging Custom Dictionaries

It is possible to develop a custom dictionary on your computer that reflects the types of documents with which you work ...

Discover More

Spellcheck for Two Languages

Are you creating a document that mixes different languages? Word can handle the multi-language scenario, but it may take ...

Discover More

Turning Off the Check for Repeated Words

If your work involves the usage of repeated words, you may be interested in configuring Word so it doesn't flag those ...

Discover More
Subscribe

FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."

View most recent newsletter.

Comments

If you would like to add an image to your comment (not an avatar, but an image to help in making the point of your comment), include the characters [{fig}] (all 7 characters, in the sequence shown) in your comment text. You’ll be prompted to upload your image when you submit the comment. Maximum image size is 6Mpixels. Images larger than 600px wide or 1000px tall will be reduced. Up to three images may be included in a comment. All images are subject to review. Commenting privileges may be curtailed if inappropriate images are posted.

What is four minus 4?

2024-05-29 09:56:37

Andrew

I find that in cases such as these it's better (and not hard) to select the files in a folder rather than automatically operating on all the files in a hard-coded folder or, even more simply, having the macro process all open documents.

Here is a skeletal macro of how I do it using the select-files method:

Andy.

Public Sub ProcessFiles()
Dim F As Variant
Dim PreviousDocCount as Long
Dim AlreadyOpen as Boolean

With Application.FileDialog(msoFileDialogOpen) ' Cf. Dialogs(wdDialogFileOpen) to have open-and-repair etc. via the dialog
.FilterIndex = 1 ' My way: Always start with "*.*"
If .Show <> -1 Then Exit Sub
For Each F In .SelectedItems
PreviousDocCount = Documents.Count
Documents.Open FileName:=F, AddToRecentFiles:=True
AlreadyOpen = Documents.Count = PreviousDocCount

' Process ActiveDocument here .

if not AlreadyOpen then ActiveDocument.Close wdSaveChanges
Next F
End With
End Sub


This Site

Got a version of Word that uses the ribbon interface (Word 2007 or later)? This site is for you! If you use an earlier version of Word, visit our WordTips site focusing on the menu interface.

Videos
Subscribe

FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."

(Your e-mail address is not shared with anyone, ever.)

View the most recent newsletter.