[Code included] Manually iterate previous misspelling words

gmaxey · #1 07-16-2023, 11:06 AM

vivka,

Your code is better (fixes the problems), but looking at every word regardless if spelled wrong or not, could take a long time in large documents. I mean why back up one word at at time?

Try:

Code:

Sub FindPreviousMisspelledWord()
Dim oRng As Range
  Set oRng = Selection.Range
  With oRng
    While .Start <> 0
      .Collapse 1
      .Start = ActiveDocument.Range.Start
      .MoveStart wdWord, -1
      If .SpellingErrors.Count > 0 Then
        .SpellingErrors(.SpellingErrors.Count).Select
        Exit Sub
      End If
      Wend
  End With
  MsgBox "No misspelled words found."
lbl_Exit:
  Exit Sub
End Sub

puff · #2 07-16-2023, 11:14 AM

Quote:

Originally Posted by gmaxey

vivka,

Your code is better (fixes the problems), but looking at every word regardless if spelled wrong or not, could take a long time in large documents. I mean why back up one word at at time?

Try:

Code:

Sub FindPreviousMisspelledWord()
Dim oRng As Range
  Set oRng = Selection.Range
  With oRng
    While .Start <> 0
      .Collapse 1
      .Start = ActiveDocument.Range.Start
      .MoveStart wdWord, -1
      If .SpellingErrors.Count > 0 Then
        .SpellingErrors(.SpellingErrors.Count).Select
        Exit Sub
      End If
      Wend
  End With
  MsgBox "No misspelled words found."
lbl_Exit:
  Exit Sub
End Sub

Thank you so much! And yes, yours run faster.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Using custom style instead of inserting font attributes manually in VBA code	laith93	Word VBA	2	11-07-2021 12:52 AM
Error with macro to delete starting #) [code included]	puff	Word VBA	1	04-18-2018 03:49 PM
VBA to insert an image and centralize it (code included)	puff	Word VBA	5	01-17-2018 04:32 PM
Issue of 2 fixed bullet points indent setting work together (code included)	puff	Word VBA	5	12-17-2017 05:52 PM
Outlook 2003 - if previous meesage included in reply, spell checks all	wildswing	Outlook	0	07-22-2009 06:06 AM