Hi M Schroff,
I don't really understand why you want a sub with the right-click approach, when you could use a sub like:
Code:
Sub Demo()
Selection.Range.CheckSpelling
End Sub
The Sendkeys code is what you'd add to a sub to simulate the right-click after something has been selected (either by the user before running the sub or by the sub itself). For example:
Code:
Sub Demo()
Dim StrWrd As Range
For Each StrWrd In ActiveDocument.Paragraphs(1).Range.Words
With StrWrd
If .SpellingErrors.Count > 0 Then
.Select
SendKeys "+{F10}", True
Exit Sub
End If
End With
Next
End Sub