Im trying to get a spell check into a word Userform application.It works just fine apart from one thing - there is no preview of the text being spell checked as below.
This is the code used:
Any clues as to why there is no preview or better code to use?
Thanks!
This is the code used:
Code:
Public Function FCN_Speel_Check()
Dim oScratchPad As Word.Document
Dim oRng As Word.Range
Dim bChecked As Boolean
If oScratchPad Is Nothing Then
Set oScratchPad = Documents.Add(, , 1, False)
oScratchPad.Windows.Add
oScratchPad.Windows(2).Visible = False
Else
oScratchPad.Range.Delete
End If
If UF1.TextBox148.Value = "" Then
bChecked = True
Else
Set oRng = oScratchPad.Range
oRng = UF1.TextBox148.Text
If Dialogs(wdDialogToolsSpellingAndGrammar).show = 0 Then
bChecked = False
End If
oRng.End = oRng.End - 1
bChecked = True
UF1.TextBox148.Text = oRng.Text
End If
oScratchPad.Close wdDoNotSaveChanges
Set oScratchPad = Nothing
If bChecked Then
MsgBox "Check complete"
Else
MsgBox "Spell checking was stopped in process."
End If
lbl_Exit:
Exit Function
End FunctionAny clues as to why there is no preview or better code to use?
Thanks!
