Tagging Misspell words

[ranjan]

Hi,

Am having a macro for highlighting misspell words with a yellow color, but sometimes checking yellow colored ones also missing by overlook due to more no of tables in a document.

In a document am having more than 100 tables and continously monitoring is difficult, can we automate this by tagging yellow colored line items or misspell line items with a " ## " or anyother special characters... it will be helpful for me to check only with " ## " line items and make it in a proper way.

Please integrate the " ## " for the below code to highlight the misspell words.
Or
If any misspell word found in a cell that cell should be tagged as "##" at the beeginning of the line in a cell.


I had already posted a similar one in this forum but i didnt get any responses, so i have worked something and again posting with a sample code.

https://www.msofficeforums.com/word-...ell-words.html





For reference PFA.

Sub Highlight_Misspelled_Test()

    Selection.LanguageID = wdEnglishUS
    Selection.NoProofing = False
    Application.CheckLanguage = True

    Dim oWord As Range
    Dim StoryRange As Range
    Dim nTbl As Table

    ' Loop Through Each table
    For Each nTbl In ActiveDocument.Tables
        Set StoryRange = nTbl.Range

        Application.CheckSpelling Word:=StoryRange

        For Each oWord In StoryRange.Words
            If Not Application.CheckSpelling(Word:=oWord.Text) Then
                oWord.HighlightColorIndex = wdYellow
            End If
        Next oWord

    Next

End Sub