FM: Tom Hyland

Hi, and after two days of trying I'll certainly appreciate your help in
getting this macro
( http://word.mvps.org/FAQs/MacrosVBA/...ProtectDoc.htm )

to run in Word 97, SR 2, Windows XP, Home Edition. I keep getting "Compile
error: Expected End Sub" and other errors as well. Is there a newer version
of Word that will allow spell checking in protected documents ?

The following is the Macro that I've created:

Sub Pulease()
Option Explicit

Dim Cancelled As Boolean, MyRange As Range, _
CorrectedError As String, oDoc As Document

Sub RunSpellcheck()

Dim oSection As Section, OriginalRange As Range

'If no documents open, quit macro
If Documents.Count = 0 Then
Exit Sub
End If

Set oDoc = ActiveDocument

'Check what type of protection - if any - has been applied
Select Case oDoc.ProtectionType

'If not protected, or if protected for tracked changes,
'run spellchecker and quit
'-------------
Case wdNoProtection, wdAllowOnlyRevisions
If Options.CheckGrammarWithSpelling Then
oDoc.CheckGrammar
Else
oDoc.CheckSpelling
End If
Application.ScreenUpdating = True
Application.ScreenRefresh
If oDoc.SpellingErrors.Count = 0 Then
If Options.CheckGrammarWithSpelling Then
MsgBox "The spelling and grammar check is complete", _
vbInformation
Else
MsgBox "The spelling check is complete", vbInformation
End If
End If
System.Cursor = wdCursorNormal
Exit Sub
'-------------
Case wdAllowOnlyComments
'Don't want to run spellchecker if protected for comments
Exit Sub
End Select

Set OriginalRange = Selection.Range
System.Cursor = wdCursorWait

'-------------
'-------------
'If we've got this far, it's protected for forms
'Now unprotect the document
oDoc.Unprotect
oDoc.SpellingChecked = False

'Check each section for its protection property -
'which you can get even after unprotecting the document.
'If the section was protected, call a subroutine to spellcheck the formfields.
'if it wasn't, spellcheck the section
StatusBar = "Spellchecking document ..."
For Each oSection In oDoc.Sections
If oSection.ProtectedForForms Then
Call CheckProtectedSection(oSection)
If Cancelled Then
'Boolean variable returned by CheckProtectedSection
'procedure if user pressed Cancel button
Exit For
End If
Else
If oSection.Range.SpellingErrors.Count 0 Then
Application.ScreenUpdating = True
oSection.Range.CheckSpelling
If oSection.Range.SpellingErrors.Count 0 Then
'User pressed Cancel button
'(Pressing Ignore reduces the count, pressing Cancel doesn't)
Exit For
End If
End If
End If
Next oSection

'Re-protect the document
oDoc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
OriginalRange.Select
Application.ScreenUpdating = True
Application.ScreenRefresh
If oDoc.Range.SpellingErrors.Count = 0 Then
If Options.CheckGrammarWithSpelling Then
MsgBox "The spelling and grammar check is complete", _
vbInformation
Else
MsgBox "The spelling check is complete", vbInformation
End If
End If

'Release variables from memory
System.Cursor = wdCursorNormal
Cancelled = False
CorrectedError = vbNullString
Set MyRange = Nothing

End Sub


--------------------------------------------------------------------------------

Private Sub CheckProtectedSection(oSection As Section)

Dim FmFld As FormField, FmFldCount As Long, Pos As Long

'check only the text formfields,
'don't check listboxes and checkboxes - this speeds up the code
Application.ScreenUpdating = False
For Each FmFld In oSection.Range.FormFields
'Check to see if the field is a text formfield
If FmFld.Type = wdFieldFormTextInput Then
'Check if the field is a 'real' text field (no date, formula etc);
'and that it is enabled for text input
If FmFld.TextInput.Type = wdRegularText And FmFld.Enabled Then
'The following subroutine won't be called if Word 97 is in use
If Not Left$(Application.Version, 1) = "8" Then
Call TurnNoProofingOff(FmFld)
End If
FmFld.Range.SpellingChecked = False

'Change the language constant in the following line if necessary;
'when you type the = sign, a list of all supported language
'constants will appear, and you can choose one from the list.
FmFld.Range.LanguageID = wdEnglishUS
'Or whichever language is appropriate for you

'If the current form field contains errors, spellcheck the text
in it
If FmFld.Range.SpellingErrors.Count 0 Then
'The following condition is to allow for a Word 97 bug, which
'was fixed in 2000; (and in the latest Word 97 patches). If
'the formfield is in a table and contains more than one
'paragraph, then spellchecking it will crash Word 97
If Left$(Application.Version, 1) = "8" _
And FmFld.Range.Paragraphs.Count 1 _
And FmFld.Range.Tables.Count 0 Then
Call Word97TableBugWorkaround(FmFld)
If Cancelled Then Exit Sub
Else
'Set a range to the formfield's range in case the user
'accidentally destroys the formfield by overtyping its
entire
'contents
Set MyRange = FmFld.Range
FmFldCount = oSection.Range.FormFields.Count
Application.ScreenUpdating = True

FmFld.Range.CheckSpelling

If IsObjectValid(FmFld) Then
If FmFld.Range.SpellingErrors.Count 0 Then
'User pressed Cancel button. (Pressing Ignore
'reduces the count, pressing Cancel doesn't)
Cancelled = True
Exit Sub
End If
Else
'If formfield was destroyed because user overtyped its
'entire contents
CorrectedError = MyRange.Text
If Len(CorrectedError) = 0 Then
CorrectedError = MyRange.Words(1).Text
End If

'Formfields should really NEVER be preceded by a tab;
'design your forms so that each formfield is in its
own
'table cell (removing borders as necessary).
However, to
'cater for any legacy forms you may have, the
following
'loop works around the possibility that it might be
'preceded by a tab
Pos = InStr(CorrectedError, vbTab)
Do While Pos 0
CorrectedError = Mid$(CorrectedError, Pos + 1)
Pos = InStr(CorrectedError, vbTab)
Loop

'If formfield was destroyed when the user corrected
the
'spelling, reinstate it, and put the user's
correction into its
'result. Note that although Undo reinstates the
Formfield
'itself, if the Formfield is preceded by a tab, It
doesn't
'reinstate the FmFld object, hence the need to do a
count
'(although, as previously stated, in a well-designed
form,
'formfields should never be preceded by a tab, as it's
'better use table cells (removing borders as
necessary).
Do While Not FmFldCount = _
oSection.Range.FormFields.Count
oDoc.Undo
Loop

'Also due to a Word bug, if the formfield is
preceded by a
'tab, the text within the formfield may now be
selected
'without the formfield itself being selected!
'Hence the following convoluted workaround
If Selection.FormFields.Count = 0 Then
Selection.MoveRight unit:=wdCharacter
Selection.MoveLeft unit:=wdCharacter, Extend:=True
End If
If Not IsObjectValid(FmFld) Then
Set FmFld = Selection.FormFields(1)
End If
FmFld.Result = CorrectedError
End If
End If
Application.ScreenUpdating = False
End If
End If
End If
Next FmFld

End Sub


--------------------------------------------------------------------------------

Private Sub TurnNoProofingOff(FmFld As FormField)
'This subroutine is called only in Word 2000 and above
FmFld.Range.NoProofing = False
End Sub


--------------------------------------------------------------------------------

Private Sub Word97TableBugWorkaround(FmFld As FormField)

'Unlink formfield (convert to text)
Set MyRange = FmFld.Range
FmFld.Range.Fields(1).Unlink
Application.ScreenUpdating = True
MyRange.CheckSpelling
If MyRange.SpellingErrors.Count 0 Then
'User pressed Cancel button
'(Pressing Ignore reduces the count, pressing Cancel doesn't)
Cancelled = True
End If
CorrectedError = MyRange.Text
'Undo to reinstate the formfield
Do While Not IsObjectValid(FmFld)
oDoc.Undo
Loop
FmFld.Range.Fields(1).Result.Text = CorrectedError
Application.ScreenUpdating = False

End Sub


End Sub

Hi Tom,

You only missed one thing. In step 1 of the article, it says "paste the
following code in, first deleting anything in the code module that Microsoft
inserted automatically". You didn't delete the lines that were there before
you pasted, and now they're causing the problem.

Delete this line at the top:

Sub Pulease()

and delete the very last line:

End Sub

(note that there are two lines like this at the end, just delete one and
leave the other).

Later versions of Word work the same way as Word 97 in this respect.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org

Tom Hyland wrote:
FM: Tom Hyland

Hi, and after two days of trying I'll certainly appreciate your help
in getting this macro
( http://word.mvps.org/FAQs/MacrosVBA/...ProtectDoc.htm )

to run in Word 97, SR 2, Windows XP, Home Edition. I keep getting
"Compile error: Expected End Sub" and other errors as well. Is there
a newer version of Word that will allow spell checking in protected
documents ?

The following is the Macro that I've created:

Sub Pulease()
Option Explicit

Dim Cancelled As Boolean, MyRange As Range, _
CorrectedError As String, oDoc As Document

Sub RunSpellcheck()

Dim oSection As Section, OriginalRange As Range

'If no documents open, quit macro
If Documents.Count = 0 Then
Exit Sub
End If

Set oDoc = ActiveDocument

'Check what type of protection - if any - has been applied
Select Case oDoc.ProtectionType

'If not protected, or if protected for tracked changes,
'run spellchecker and quit
'-------------
Case wdNoProtection, wdAllowOnlyRevisions
If Options.CheckGrammarWithSpelling Then
oDoc.CheckGrammar
Else
oDoc.CheckSpelling
End If
Application.ScreenUpdating = True
Application.ScreenRefresh
If oDoc.SpellingErrors.Count = 0 Then
If Options.CheckGrammarWithSpelling Then
MsgBox "The spelling and grammar check is complete", _
vbInformation
Else
MsgBox "The spelling check is complete", vbInformation
End If
End If
System.Cursor = wdCursorNormal
Exit Sub
'-------------
Case wdAllowOnlyComments
'Don't want to run spellchecker if protected for comments
Exit Sub
End Select

Set OriginalRange = Selection.Range
System.Cursor = wdCursorWait

'-------------
'-------------
'If we've got this far, it's protected for forms
'Now unprotect the document
oDoc.Unprotect
oDoc.SpellingChecked = False

'Check each section for its protection property -
'which you can get even after unprotecting the document.
'If the section was protected, call a subroutine to spellcheck the
formfields. 'if it wasn't, spellcheck the section
StatusBar = "Spellchecking document ..."
For Each oSection In oDoc.Sections
If oSection.ProtectedForForms Then
Call CheckProtectedSection(oSection)
If Cancelled Then
'Boolean variable returned by CheckProtectedSection
'procedure if user pressed Cancel button
Exit For
End If
Else
If oSection.Range.SpellingErrors.Count 0 Then
Application.ScreenUpdating = True
oSection.Range.CheckSpelling
If oSection.Range.SpellingErrors.Count 0 Then
'User pressed Cancel button
'(Pressing Ignore reduces the count, pressing Cancel
doesn't) Exit For
End If
End If
End If
Next oSection

'Re-protect the document
oDoc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
OriginalRange.Select
Application.ScreenUpdating = True
Application.ScreenRefresh
If oDoc.Range.SpellingErrors.Count = 0 Then
If Options.CheckGrammarWithSpelling Then
MsgBox "The spelling and grammar check is complete", _
vbInformation
Else
MsgBox "The spelling check is complete", vbInformation
End If
End If

'Release variables from memory
System.Cursor = wdCursorNormal
Cancelled = False
CorrectedError = vbNullString
Set MyRange = Nothing

End Sub


--------------------------------------------------------------------------
------

Private Sub CheckProtectedSection(oSection As Section)

Dim FmFld As FormField, FmFldCount As Long, Pos As Long

'check only the text formfields,
'don't check listboxes and checkboxes - this speeds up the code
Application.ScreenUpdating = False
For Each FmFld In oSection.Range.FormFields
'Check to see if the field is a text formfield
If FmFld.Type = wdFieldFormTextInput Then
'Check if the field is a 'real' text field (no date, formula
etc); 'and that it is enabled for text input
If FmFld.TextInput.Type = wdRegularText And FmFld.Enabled Then
'The following subroutine won't be called if Word 97 is
in use If Not Left$(Application.Version, 1) = "8" Then
Call TurnNoProofingOff(FmFld)
End If
FmFld.Range.SpellingChecked = False

'Change the language constant in the following line if
necessary; 'when you type the = sign, a list of all
supported language 'constants will appear, and you can
choose one from the list. FmFld.Range.LanguageID =
wdEnglishUS 'Or whichever language is appropriate for you

'If the current form field contains errors, spellcheck
the text in it
If FmFld.Range.SpellingErrors.Count 0 Then
'The following condition is to allow for a Word 97
bug, which 'was fixed in 2000; (and in the latest
Word 97 patches). If 'the formfield is in a table and
contains more than one 'paragraph, then spellchecking
it will crash Word 97 If Left$(Application.Version,
1) = "8" _ And FmFld.Range.Paragraphs.Count
1 _ And FmFld.Range.Tables.Count 0 Then
Call Word97TableBugWorkaround(FmFld)
If Cancelled Then Exit Sub
Else
'Set a range to the formfield's range in case the
user 'accidentally destroys the formfield by
overtyping its entire
'contents
Set MyRange = FmFld.Range
FmFldCount = oSection.Range.FormFields.Count
Application.ScreenUpdating = True

FmFld.Range.CheckSpelling

If IsObjectValid(FmFld) Then
If FmFld.Range.SpellingErrors.Count 0 Then
'User pressed Cancel button. (Pressing
Ignore 'reduces the count, pressing
Cancel doesn't) Cancelled = True
Exit Sub
End If
Else
'If formfield was destroyed because user
overtyped its 'entire contents
CorrectedError = MyRange.Text
If Len(CorrectedError) = 0 Then
CorrectedError = MyRange.Words(1).Text
End If

'Formfields should really NEVER be preceded
by a tab; 'design your forms so that each
formfield is in its own
'table cell (removing borders as necessary).
However, to
'cater for any legacy forms you may have, the
following
'loop works around the possibility that it
might be 'preceded by a tab
Pos = InStr(CorrectedError, vbTab)
Do While Pos 0
CorrectedError = Mid$(CorrectedError, Pos
+ 1) Pos = InStr(CorrectedError, vbTab)
Loop

'If formfield was destroyed when the user
corrected the
'spelling, reinstate it, and put the user's
correction into its
'result. Note that although Undo reinstates
the Formfield
'itself, if the Formfield is preceded by a
tab, It doesn't
'reinstate the FmFld object, hence the need
to do a count
'(although, as previously stated, in a
well-designed form,
'formfields should never be preceded by a
tab, as it's 'better use table cells
(removing borders as necessary).
Do While Not FmFldCount = _
oSection.Range.FormFields.Count
oDoc.Undo
Loop

'Also due to a Word bug, if the formfield is
preceded by a
'tab, the text within the formfield may now be
selected
'without the formfield itself being selected!
'Hence the following convoluted workaround
If Selection.FormFields.Count = 0 Then
Selection.MoveRight unit:=wdCharacter
Selection.MoveLeft unit:=wdCharacter,
Extend:=True End If
If Not IsObjectValid(FmFld) Then
Set FmFld = Selection.FormFields(1)
End If
FmFld.Result = CorrectedError
End If
End If
Application.ScreenUpdating = False
End If
End If
End If
Next FmFld

End Sub


--------------------------------------------------------------------------
------

Private Sub TurnNoProofingOff(FmFld As FormField)
'This subroutine is called only in Word 2000 and above
FmFld.Range.NoProofing = False
End Sub


--------------------------------------------------------------------------
------

Private Sub Word97TableBugWorkaround(FmFld As FormField)

'Unlink formfield (convert to text)
Set MyRange = FmFld.Range
FmFld.Range.Fields(1).Unlink
Application.ScreenUpdating = True
MyRange.CheckSpelling
If MyRange.SpellingErrors.Count 0 Then
'User pressed Cancel button
'(Pressing Ignore reduces the count, pressing Cancel doesn't)
Cancelled = True
End If
CorrectedError = MyRange.Text
'Undo to reinstate the formfield
Do While Not IsObjectValid(FmFld)
oDoc.Undo
Loop
FmFld.Range.Fields(1).Result.Text = CorrectedError
Application.ScreenUpdating = False

End Sub


End Sub

Hi Jay, tried that and nothing good happened. The first part, couple of
lines, of the macro now looks like this except with a solid line after the
third line below across the page:

Option Explicit

Dim Cancelled As Boolean, MyRange As Range, _
CorrectedError As String, oDoc As Document

Sub RunSpellcheck()

Dim oSection As Section, OriginalRange As Range

When I enter the keyboard shortcut (Ctrl+F12) it now takes me to opening a
Word document. and, the name I had assigned to the Macro is gone/missing from
the Macros. thanks, tom.

"Jay Freedman" wrote:

Hi Tom,

You only missed one thing. In step 1 of the article, it says "paste the
following code in, first deleting anything in the code module that Microsoft
inserted automatically". You didn't delete the lines that were there before
you pasted, and now they're causing the problem.

Delete this line at the top:

Sub Pulease()

and delete the very last line:

End Sub

(note that there are two lines like this at the end, just delete one and
leave the other).

Later versions of Word work the same way as Word 97 in this respect.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org

Tom Hyland wrote:
FM: Tom Hyland

Hi, and after two days of trying I'll certainly appreciate your help
in getting this macro
( http://word.mvps.org/FAQs/MacrosVBA/...ProtectDoc.htm )

to run in Word 97, SR 2, Windows XP, Home Edition. I keep getting
"Compile error: Expected End Sub" and other errors as well. Is there
a newer version of Word that will allow spell checking in protected
documents ?

The following is the Macro that I've created:

Sub Pulease()
Option Explicit

Dim Cancelled As Boolean, MyRange As Range, _
CorrectedError As String, oDoc As Document

Sub RunSpellcheck()

Dim oSection As Section, OriginalRange As Range

'If no documents open, quit macro
If Documents.Count = 0 Then
Exit Sub
End If

Set oDoc = ActiveDocument

'Check what type of protection - if any - has been applied
Select Case oDoc.ProtectionType

'If not protected, or if protected for tracked changes,
'run spellchecker and quit
'-------------
Case wdNoProtection, wdAllowOnlyRevisions
If Options.CheckGrammarWithSpelling Then
oDoc.CheckGrammar
Else
oDoc.CheckSpelling
End If
Application.ScreenUpdating = True
Application.ScreenRefresh
If oDoc.SpellingErrors.Count = 0 Then
If Options.CheckGrammarWithSpelling Then
MsgBox "The spelling and grammar check is complete", _
vbInformation
Else
MsgBox "The spelling check is complete", vbInformation
End If
End If
System.Cursor = wdCursorNormal
Exit Sub
'-------------
Case wdAllowOnlyComments
'Don't want to run spellchecker if protected for comments
Exit Sub
End Select

Set OriginalRange = Selection.Range
System.Cursor = wdCursorWait

'-------------
'-------------
'If we've got this far, it's protected for forms
'Now unprotect the document
oDoc.Unprotect
oDoc.SpellingChecked = False

'Check each section for its protection property -
'which you can get even after unprotecting the document.
'If the section was protected, call a subroutine to spellcheck the
formfields. 'if it wasn't, spellcheck the section
StatusBar = "Spellchecking document ..."
For Each oSection In oDoc.Sections
If oSection.ProtectedForForms Then
Call CheckProtectedSection(oSection)
If Cancelled Then
'Boolean variable returned by CheckProtectedSection
'procedure if user pressed Cancel button
Exit For
End If
Else
If oSection.Range.SpellingErrors.Count 0 Then
Application.ScreenUpdating = True
oSection.Range.CheckSpelling
If oSection.Range.SpellingErrors.Count 0 Then
'User pressed Cancel button
'(Pressing Ignore reduces the count, pressing Cancel
doesn't) Exit For
End If
End If
End If
Next oSection

'Re-protect the document
oDoc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
OriginalRange.Select
Application.ScreenUpdating = True
Application.ScreenRefresh
If oDoc.Range.SpellingErrors.Count = 0 Then
If Options.CheckGrammarWithSpelling Then
MsgBox "The spelling and grammar check is complete", _
vbInformation
Else
MsgBox "The spelling check is complete", vbInformation
End If
End If

'Release variables from memory
System.Cursor = wdCursorNormal
Cancelled = False
CorrectedError = vbNullString
Set MyRange = Nothing

End Sub


--------------------------------------------------------------------------
------

Private Sub CheckProtectedSection(oSection As Section)

Dim FmFld As FormField, FmFldCount As Long, Pos As Long

'check only the text formfields,
'don't check listboxes and checkboxes - this speeds up the code
Application.ScreenUpdating = False
For Each FmFld In oSection.Range.FormFields
'Check to see if the field is a text formfield
If FmFld.Type = wdFieldFormTextInput Then
'Check if the field is a 'real' text field (no date, formula
etc); 'and that it is enabled for text input
If FmFld.TextInput.Type = wdRegularText And FmFld.Enabled Then
'The following subroutine won't be called if Word 97 is
in use If Not Left$(Application.Version, 1) = "8" Then
Call TurnNoProofingOff(FmFld)
End If
FmFld.Range.SpellingChecked = False

'Change the language constant in the following line if
necessary; 'when you type the = sign, a list of all
supported language 'constants will appear, and you can
choose one from the list. FmFld.Range.LanguageID =
wdEnglishUS 'Or whichever language is appropriate for you

'If the current form field contains errors, spellcheck
the text in it
If FmFld.Range.SpellingErrors.Count 0 Then
'The following condition is to allow for a Word 97
bug, which 'was fixed in 2000; (and in the latest
Word 97 patches). If 'the formfield is in a table and
contains more than one 'paragraph, then spellchecking
it will crash Word 97 If Left$(Application.Version,
1) = "8" _ And FmFld.Range.Paragraphs.Count
1 _ And FmFld.Range.Tables.Count 0 Then
Call Word97TableBugWorkaround(FmFld)
If Cancelled Then Exit Sub
Else
'Set a range to the formfield's range in case the
user 'accidentally destroys the formfield by
overtyping its entire
'contents
Set MyRange = FmFld.Range
FmFldCount = oSection.Range.FormFields.Count
Application.ScreenUpdating = True

FmFld.Range.CheckSpelling

If IsObjectValid(FmFld) Then
If FmFld.Range.SpellingErrors.Count 0 Then
'User pressed Cancel button. (Pressing
Ignore 'reduces the count, pressing
Cancel doesn't) Cancelled = True
Exit Sub
End If
Else
'If formfield was destroyed because user
overtyped its 'entire contents
CorrectedError = MyRange.Text
If Len(CorrectedError) = 0 Then
CorrectedError = MyRange.Words(1).Text
End If

'Formfields should really NEVER be preceded
by a tab; 'design your forms so that each
formfield is in its own
'table cell (removing borders as necessary).
However, to
'cater for any legacy forms you may have, the
following
'loop works around the possibility that it
might be 'preceded by a tab
Pos = InStr(CorrectedError, vbTab)
Do While Pos 0
CorrectedError = Mid$(CorrectedError, Pos
+ 1) Pos = InStr(CorrectedError, vbTab)
Loop

'If formfield was destroyed when the user
corrected the
'spelling, reinstate it, and put the user's
correction into its
'result. Note that although Undo reinstates
the Formfield
'itself, if the Formfield is preceded by a
tab, It doesn't
'reinstate the FmFld object, hence the need
to do a count
'(although, as previously stated, in a
well-designed form,
'formfields should never be preceded by a
tab, as it's 'better use table cells
(removing borders as necessary).
Do While Not FmFldCount = _
oSection.Range.FormFields.Count
oDoc.Undo
Loop

'Also due to a Word bug, if the formfield is
preceded by a
'tab, the text within the formfield may now be
selected
'without the formfield itself being selected!
'Hence the following convoluted workaround
If Selection.FormFields.Count = 0 Then
Selection.MoveRight unit:=wdCharacter
Selection.MoveLeft unit:=wdCharacter,
Extend:=True End If
If Not IsObjectValid(FmFld) Then
Set FmFld = Selection.FormFields(1)
End If
FmFld.Result = CorrectedError
End If
End If
Application.ScreenUpdating = False
End If
End If
End If
Next FmFld

End Sub


--------------------------------------------------------------------------
------

Private Sub TurnNoProofingOff(FmFld As FormField)
'This subroutine is called only in Word 2000 and above
FmFld.Range.NoProofing = False
End Sub


--------------------------------------------------------------------------
------

Private Sub Word97TableBugWorkaround(FmFld As FormField)

'Unlink formfield (convert to text)
Set MyRange = FmFld.Range
FmFld.Range.Fields(1).Unlink
Application.ScreenUpdating = True
MyRange.CheckSpelling
If MyRange.SpellingErrors.Count 0 Then
'User pressed Cancel button
'(Pressing Ignore reduces the count, pressing Cancel doesn't)
Cancelled = True
End If
CorrectedError = MyRange.Text
'Undo to reinstate the formfield
Do While Not IsObjectValid(FmFld)
oDoc.Undo
Loop
FmFld.Range.Fields(1).Result.Text = CorrectedError
Application.ScreenUpdating = False

End Sub


End Sub

Hi Tom,

You're getting there, one step at a time. :-)

The name of the macro, as you have it now, is RunSpellcheck. If you'd
rather call it something else, go to the line

Sub RunSpellcheck()

just below the solid line (yes, that line is normal) and change the
word RunSpellcheck to your preferred name.

The shortcut you had on Ctrl+F12 was tied to the name you assigned
before, so it's gone back to Word's default. You'll have to assign the
shortcut to the macro again. To do that, open the Tools Customize
dialog and click the Keyboard button. Select "Macros" in the left-hand
list, select your macro name in the right-hand list, put the cursor in
the "Press new shortcut key" box, and press Ctrl+F12. Click the Assign
button and then Close.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org

On Thu, 13 Jan 2005 14:51:02 -0800, "Tom Hyland"
wrote:

Hi Jay, tried that and nothing good happened. The first part, couple of
lines, of the macro now looks like this except with a solid line after the
third line below across the page:

Option Explicit

Dim Cancelled As Boolean, MyRange As Range, _
CorrectedError As String, oDoc As Document

Sub RunSpellcheck()

Dim oSection As Section, OriginalRange As Range

When I enter the keyboard shortcut (Ctrl+F12) it now takes me to opening a
Word document. and, the name I had assigned to the Macro is gone/missing from
the Macros. thanks, tom.

"Jay Freedman" wrote:

Hi Tom,

You only missed one thing. In step 1 of the article, it says "paste the
following code in, first deleting anything in the code module that Microsoft
inserted automatically". You didn't delete the lines that were there before
you pasted, and now they're causing the problem.

Delete this line at the top:

Sub Pulease()

and delete the very last line:

End Sub

(note that there are two lines like this at the end, just delete one and
leave the other).

Later versions of Word work the same way as Word 97 in this respect.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org

Tom Hyland wrote:
FM: Tom Hyland

Hi, and after two days of trying I'll certainly appreciate your help
in getting this macro
( http://word.mvps.org/FAQs/MacrosVBA/...ProtectDoc.htm )

to run in Word 97, SR 2, Windows XP, Home Edition. I keep getting
"Compile error: Expected End Sub" and other errors as well. Is there
a newer version of Word that will allow spell checking in protected
documents ?

The following is the Macro that I've created:

Sub Pulease()
Option Explicit

Dim Cancelled As Boolean, MyRange As Range, _
CorrectedError As String, oDoc As Document

Sub RunSpellcheck()

Dim oSection As Section, OriginalRange As Range

'If no documents open, quit macro
If Documents.Count = 0 Then
Exit Sub
End If

Set oDoc = ActiveDocument

'Check what type of protection - if any - has been applied
Select Case oDoc.ProtectionType

'If not protected, or if protected for tracked changes,
'run spellchecker and quit
'-------------
Case wdNoProtection, wdAllowOnlyRevisions
If Options.CheckGrammarWithSpelling Then
oDoc.CheckGrammar
Else
oDoc.CheckSpelling
End If
Application.ScreenUpdating = True
Application.ScreenRefresh
If oDoc.SpellingErrors.Count = 0 Then
If Options.CheckGrammarWithSpelling Then
MsgBox "The spelling and grammar check is complete", _
vbInformation
Else
MsgBox "The spelling check is complete", vbInformation
End If
End If
System.Cursor = wdCursorNormal
Exit Sub
'-------------
Case wdAllowOnlyComments
'Don't want to run spellchecker if protected for comments
Exit Sub
End Select

Set OriginalRange = Selection.Range
System.Cursor = wdCursorWait

'-------------
'-------------
'If we've got this far, it's protected for forms
'Now unprotect the document
oDoc.Unprotect
oDoc.SpellingChecked = False

'Check each section for its protection property -
'which you can get even after unprotecting the document.
'If the section was protected, call a subroutine to spellcheck the
formfields. 'if it wasn't, spellcheck the section
StatusBar = "Spellchecking document ..."
For Each oSection In oDoc.Sections
If oSection.ProtectedForForms Then
Call CheckProtectedSection(oSection)
If Cancelled Then
'Boolean variable returned by CheckProtectedSection
'procedure if user pressed Cancel button
Exit For
End If
Else
If oSection.Range.SpellingErrors.Count 0 Then
Application.ScreenUpdating = True
oSection.Range.CheckSpelling
If oSection.Range.SpellingErrors.Count 0 Then
'User pressed Cancel button
'(Pressing Ignore reduces the count, pressing Cancel
doesn't) Exit For
End If
End If
End If
Next oSection

'Re-protect the document
oDoc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
OriginalRange.Select
Application.ScreenUpdating = True
Application.ScreenRefresh
If oDoc.Range.SpellingErrors.Count = 0 Then
If Options.CheckGrammarWithSpelling Then
MsgBox "The spelling and grammar check is complete", _
vbInformation
Else
MsgBox "The spelling check is complete", vbInformation
End If
End If

'Release variables from memory
System.Cursor = wdCursorNormal
Cancelled = False
CorrectedError = vbNullString
Set MyRange = Nothing

End Sub


--------------------------------------------------------------------------
------

Private Sub CheckProtectedSection(oSection As Section)

Dim FmFld As FormField, FmFldCount As Long, Pos As Long

'check only the text formfields,
'don't check listboxes and checkboxes - this speeds up the code
Application.ScreenUpdating = False
For Each FmFld In oSection.Range.FormFields
'Check to see if the field is a text formfield
If FmFld.Type = wdFieldFormTextInput Then
'Check if the field is a 'real' text field (no date, formula
etc); 'and that it is enabled for text input
If FmFld.TextInput.Type = wdRegularText And FmFld.Enabled Then
'The following subroutine won't be called if Word 97 is
in use If Not Left$(Application.Version, 1) = "8" Then
Call TurnNoProofingOff(FmFld)
End If
FmFld.Range.SpellingChecked = False

'Change the language constant in the following line if
necessary; 'when you type the = sign, a list of all
supported language 'constants will appear, and you can
choose one from the list. FmFld.Range.LanguageID =
wdEnglishUS 'Or whichever language is appropriate for you

'If the current form field contains errors, spellcheck
the text in it
If FmFld.Range.SpellingErrors.Count 0 Then
'The following condition is to allow for a Word 97
bug, which 'was fixed in 2000; (and in the latest
Word 97 patches). If 'the formfield is in a table and
contains more than one 'paragraph, then spellchecking
it will crash Word 97 If Left$(Application.Version,
1) = "8" _ And FmFld.Range.Paragraphs.Count
1 _ And FmFld.Range.Tables.Count 0 Then
Call Word97TableBugWorkaround(FmFld)
If Cancelled Then Exit Sub
Else
'Set a range to the formfield's range in case the
user 'accidentally destroys the formfield by
overtyping its entire
'contents
Set MyRange = FmFld.Range
FmFldCount = oSection.Range.FormFields.Count
Application.ScreenUpdating = True

FmFld.Range.CheckSpelling

If IsObjectValid(FmFld) Then
If FmFld.Range.SpellingErrors.Count 0 Then
'User pressed Cancel button. (Pressing
Ignore 'reduces the count, pressing
Cancel doesn't) Cancelled = True
Exit Sub
End If
Else
'If formfield was destroyed because user
overtyped its 'entire contents
CorrectedError = MyRange.Text
If Len(CorrectedError) = 0 Then
CorrectedError = MyRange.Words(1).Text
End If

'Formfields should really NEVER be preceded
by a tab; 'design your forms so that each
formfield is in its own
'table cell (removing borders as necessary).
However, to
'cater for any legacy forms you may have, the
following
'loop works around the possibility that it
might be 'preceded by a tab
Pos = InStr(CorrectedError, vbTab)
Do While Pos 0
CorrectedError = Mid$(CorrectedError, Pos
+ 1) Pos = InStr(CorrectedError, vbTab)
Loop

'If formfield was destroyed when the user
corrected the
'spelling, reinstate it, and put the user's
correction into its
'result. Note that although Undo reinstates
the Formfield
'itself, if the Formfield is preceded by a
tab, It doesn't
'reinstate the FmFld object, hence the need
to do a count
'(although, as previously stated, in a
well-designed form,
'formfields should never be preceded by a
tab, as it's 'better use table cells
(removing borders as necessary).
Do While Not FmFldCount = _
oSection.Range.FormFields.Count
oDoc.Undo
Loop

'Also due to a Word bug, if the formfield is
preceded by a
'tab, the text within the formfield may now be
selected
'without the formfield itself being selected!
'Hence the following convoluted workaround
If Selection.FormFields.Count = 0 Then
Selection.MoveRight unit:=wdCharacter
Selection.MoveLeft unit:=wdCharacter,
Extend:=True End If
If Not IsObjectValid(FmFld) Then
Set FmFld = Selection.FormFields(1)
End If
FmFld.Result = CorrectedError
End If
End If
Application.ScreenUpdating = False
End If
End If
End If
Next FmFld

End Sub


--------------------------------------------------------------------------
------

Private Sub TurnNoProofingOff(FmFld As FormField)
'This subroutine is called only in Word 2000 and above
FmFld.Range.NoProofing = False
End Sub


--------------------------------------------------------------------------
------

Private Sub Word97TableBugWorkaround(FmFld As FormField)

'Unlink formfield (convert to text)
Set MyRange = FmFld.Range
FmFld.Range.Fields(1).Unlink
Application.ScreenUpdating = True
MyRange.CheckSpelling
If MyRange.SpellingErrors.Count 0 Then
'User pressed Cancel button
'(Pressing Ignore reduces the count, pressing Cancel doesn't)
Cancelled = True
End If
CorrectedError = MyRange.Text
'Undo to reinstate the formfield
Do While Not IsObjectValid(FmFld)
oDoc.Undo
Loop
FmFld.Range.Fields(1).Result.Text = CorrectedError
Application.ScreenUpdating = False

End Sub


End Sub

Jay, please don't quit on me now. You're last message at lest got us started
until we hit "Compile error: Syntax error"
'Release variables from memory
System.Cursor = wdCursorNormal
Cancelled = False
CorrectedError = vbNullString
Set MyRange = Nothing

End Sub


--------------------------------------------------------------------------------

Private Sub CheckProtectedSection(oSection As Section)

where the dash line above is and was highlighted in blue.
What's next my friend, thanks, tom.


"Jay Freedman" wrote:

Hi Tom,

You're getting there, one step at a time. :-)

The name of the macro, as you have it now, is RunSpellcheck. If you'd
rather call it something else, go to the line

Sub RunSpellcheck()

just below the solid line (yes, that line is normal) and change the
word RunSpellcheck to your preferred name.

The shortcut you had on Ctrl+F12 was tied to the name you assigned
before, so it's gone back to Word's default. You'll have to assign the
shortcut to the macro again. To do that, open the Tools Customize
dialog and click the Keyboard button. Select "Macros" in the left-hand
list, select your macro name in the right-hand list, put the cursor in
the "Press new shortcut key" box, and press Ctrl+F12. Click the Assign
button and then Close.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org

On Thu, 13 Jan 2005 14:51:02 -0800, "Tom Hyland"
wrote:

Hi Jay, tried that and nothing good happened. The first part, couple of
lines, of the macro now looks like this except with a solid line after the
third line below across the page:

Option Explicit

Dim Cancelled As Boolean, MyRange As Range, _
CorrectedError As String, oDoc As Document

Sub RunSpellcheck()

Dim oSection As Section, OriginalRange As Range

When I enter the keyboard shortcut (Ctrl+F12) it now takes me to opening a
Word document. and, the name I had assigned to the Macro is gone/missing from
the Macros. thanks, tom.

"Jay Freedman" wrote:

Hi Tom,

You only missed one thing. In step 1 of the article, it says "paste the
following code in, first deleting anything in the code module that Microsoft
inserted automatically". You didn't delete the lines that were there before
you pasted, and now they're causing the problem.

Delete this line at the top:

Sub Pulease()

and delete the very last line:

End Sub

(note that there are two lines like this at the end, just delete one and
leave the other).

Later versions of Word work the same way as Word 97 in this respect.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org

Tom Hyland wrote:
FM: Tom Hyland

Hi, and after two days of trying I'll certainly appreciate your help
in getting this macro
( http://word.mvps.org/FAQs/MacrosVBA/...ProtectDoc.htm )

to run in Word 97, SR 2, Windows XP, Home Edition. I keep getting
"Compile error: Expected End Sub" and other errors as well. Is there
a newer version of Word that will allow spell checking in protected
documents ?

The following is the Macro that I've created:

Sub Pulease()
Option Explicit

Dim Cancelled As Boolean, MyRange As Range, _
CorrectedError As String, oDoc As Document

Sub RunSpellcheck()

Dim oSection As Section, OriginalRange As Range

'If no documents open, quit macro
If Documents.Count = 0 Then
Exit Sub
End If

Set oDoc = ActiveDocument

'Check what type of protection - if any - has been applied
Select Case oDoc.ProtectionType

'If not protected, or if protected for tracked changes,
'run spellchecker and quit
'-------------
Case wdNoProtection, wdAllowOnlyRevisions
If Options.CheckGrammarWithSpelling Then
oDoc.CheckGrammar
Else
oDoc.CheckSpelling
End If
Application.ScreenUpdating = True
Application.ScreenRefresh
If oDoc.SpellingErrors.Count = 0 Then
If Options.CheckGrammarWithSpelling Then
MsgBox "The spelling and grammar check is complete", _
vbInformation
Else
MsgBox "The spelling check is complete", vbInformation
End If
End If
System.Cursor = wdCursorNormal
Exit Sub
'-------------
Case wdAllowOnlyComments
'Don't want to run spellchecker if protected for comments
Exit Sub
End Select

Set OriginalRange = Selection.Range
System.Cursor = wdCursorWait

'-------------
'-------------
'If we've got this far, it's protected for forms
'Now unprotect the document
oDoc.Unprotect
oDoc.SpellingChecked = False

'Check each section for its protection property -
'which you can get even after unprotecting the document.
'If the section was protected, call a subroutine to spellcheck the
formfields. 'if it wasn't, spellcheck the section
StatusBar = "Spellchecking document ..."
For Each oSection In oDoc.Sections
If oSection.ProtectedForForms Then
Call CheckProtectedSection(oSection)
If Cancelled Then
'Boolean variable returned by CheckProtectedSection
'procedure if user pressed Cancel button
Exit For
End If
Else
If oSection.Range.SpellingErrors.Count 0 Then
Application.ScreenUpdating = True
oSection.Range.CheckSpelling
If oSection.Range.SpellingErrors.Count 0 Then
'User pressed Cancel button
'(Pressing Ignore reduces the count, pressing Cancel
doesn't) Exit For
End If
End If
End If
Next oSection

'Re-protect the document
oDoc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
OriginalRange.Select
Application.ScreenUpdating = True
Application.ScreenRefresh
If oDoc.Range.SpellingErrors.Count = 0 Then
If Options.CheckGrammarWithSpelling Then
MsgBox "The spelling and grammar check is complete", _
vbInformation
Else
MsgBox "The spelling check is complete", vbInformation
End If
End If

'Release variables from memory
System.Cursor = wdCursorNormal
Cancelled = False
CorrectedError = vbNullString
Set MyRange = Nothing

End Sub


--------------------------------------------------------------------------
------

Private Sub CheckProtectedSection(oSection As Section)

Dim FmFld As FormField, FmFldCount As Long, Pos As Long

'check only the text formfields,
'don't check listboxes and checkboxes - this speeds up the code
Application.ScreenUpdating = False
For Each FmFld In oSection.Range.FormFields
'Check to see if the field is a text formfield
If FmFld.Type = wdFieldFormTextInput Then
'Check if the field is a 'real' text field (no date, formula
etc); 'and that it is enabled for text input
If FmFld.TextInput.Type = wdRegularText And FmFld.Enabled Then
'The following subroutine won't be called if Word 97 is
in use If Not Left$(Application.Version, 1) = "8" Then
Call TurnNoProofingOff(FmFld)
End If
FmFld.Range.SpellingChecked = False

'Change the language constant in the following line if
necessary; 'when you type the = sign, a list of all
supported language 'constants will appear, and you can
choose one from the list. FmFld.Range.LanguageID =
wdEnglishUS 'Or whichever language is appropriate for you

'If the current form field contains errors, spellcheck
the text in it
If FmFld.Range.SpellingErrors.Count 0 Then
'The following condition is to allow for a Word 97
bug, which 'was fixed in 2000; (and in the latest
Word 97 patches). If 'the formfield is in a table and
contains more than one 'paragraph, then spellchecking
it will crash Word 97 If Left$(Application.Version,
1) = "8" _ And FmFld.Range.Paragraphs.Count
1 _ And FmFld.Range.Tables.Count 0 Then
Call Word97TableBugWorkaround(FmFld)
If Cancelled Then Exit Sub
Else
'Set a range to the formfield's range in case the
user 'accidentally destroys the formfield by
overtyping its entire
'contents
Set MyRange = FmFld.Range
FmFldCount = oSection.Range.FormFields.Count
Application.ScreenUpdating = True

FmFld.Range.CheckSpelling

If IsObjectValid(FmFld) Then
If FmFld.Range.SpellingErrors.Count 0 Then
'User pressed Cancel button. (Pressing
Ignore 'reduces the count, pressing
Cancel doesn't) Cancelled = True
Exit Sub
End If
Else
'If formfield was destroyed because user
overtyped its 'entire contents
CorrectedError = MyRange.Text
If Len(CorrectedError) = 0 Then
CorrectedError = MyRange.Words(1).Text
End If

'Formfields should really NEVER be preceded
by a tab; 'design your forms so that each
formfield is in its own
'table cell (removing borders as necessary).
However, to
'cater for any legacy forms you may have, the
following
'loop works around the possibility that it
might be 'preceded by a tab
Pos = InStr(CorrectedError, vbTab)
Do While Pos 0
CorrectedError = Mid$(CorrectedError, Pos
+ 1) Pos = InStr(CorrectedError, vbTab)
Loop

'If formfield was destroyed when the user
corrected the
'spelling, reinstate it, and put the user's
correction into its
'result. Note that although Undo reinstates
the Formfield
'itself, if the Formfield is preceded by a
tab, It doesn't
'reinstate the FmFld object, hence the need
to do a count
'(although, as previously stated, in a
well-designed form,
'formfields should never be preceded by a
tab, as it's 'better use table cells
(removing borders as necessary).
Do While Not FmFldCount = _
oSection.Range.FormFields.Count
oDoc.Undo
Loop

'Also due to a Word bug, if the formfield is
preceded by a
'tab, the text within the formfield may now be
selected
'without the formfield itself being selected!
'Hence the following convoluted workaround
If Selection.FormFields.Count = 0 Then
Selection.MoveRight unit:=wdCharacter
Selection.MoveLeft unit:=wdCharacter,
Extend:=True End If
If Not IsObjectValid(FmFld) Then
Set FmFld = Selection.FormFields(1)
End If
FmFld.Result = CorrectedError
End If
End If
Application.ScreenUpdating = False
End If
End If
End If
Next FmFld

End Sub


--------------------------------------------------------------------------
------

Private Sub TurnNoProofingOff(FmFld As FormField)
'This subroutine is called only in Word 2000 and above
FmFld.Range.NoProofing = False
End Sub


--------------------------------------------------------------------------
------

Private Sub Word97TableBugWorkaround(FmFld As FormField)

'Unlink formfield (convert to text)
Set MyRange = FmFld.Range
FmFld.Range.Fields(1).Unlink
Application.ScreenUpdating = True
MyRange.CheckSpelling
If MyRange.SpellingErrors.Count 0 Then
'User pressed Cancel button
'(Pressing Ignore reduces the count, pressing Cancel doesn't)
Cancelled = True
End If
CorrectedError = MyRange.Text
'Undo to reinstate the formfield
Do While Not IsObjectValid(FmFld)
oDoc.Undo
Loop
FmFld.Range.Fields(1).Result.Text = CorrectedError
Application.ScreenUpdating = False

End Sub


End Sub

Hi Tom,

Like I said, one step at a time. :-) The dashed line is part of the
stuff youcopied out of the web page, but it isn't something VBA knows
how to use. Just delete the dashed line. VBA will automatically put a
solid line there as a separator between the two subroutines (that is,
End Sub is the end of one subroutine, and Private Sub is the start of
the next one). Also delete any other dashed lines that look like the
first one.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org

On Thu, 13 Jan 2005 17:57:01 -0800, "Tom Hyland"
wrote:

Jay, please don't quit on me now. You're last message at lest got us started
until we hit "Compile error: Syntax error"
'Release variables from memory
System.Cursor = wdCursorNormal
Cancelled = False
CorrectedError = vbNullString
Set MyRange = Nothing

End Sub


--------------------------------------------------------------------------------

Private Sub CheckProtectedSection(oSection As Section)

where the dash line above is and was highlighted in blue.
What's next my friend, thanks, tom.


"Jay Freedman" wrote:

Hi Tom,

You're getting there, one step at a time. :-)

The name of the macro, as you have it now, is RunSpellcheck. If you'd
rather call it something else, go to the line

Sub RunSpellcheck()

just below the solid line (yes, that line is normal) and change the
word RunSpellcheck to your preferred name.

The shortcut you had on Ctrl+F12 was tied to the name you assigned
before, so it's gone back to Word's default. You'll have to assign the
shortcut to the macro again. To do that, open the Tools Customize
dialog and click the Keyboard button. Select "Macros" in the left-hand
list, select your macro name in the right-hand list, put the cursor in
the "Press new shortcut key" box, and press Ctrl+F12. Click the Assign
button and then Close.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org

On Thu, 13 Jan 2005 14:51:02 -0800, "Tom Hyland"
wrote:

Hi Jay, tried that and nothing good happened. The first part, couple of
lines, of the macro now looks like this except with a solid line after the
third line below across the page:

Option Explicit

Dim Cancelled As Boolean, MyRange As Range, _
CorrectedError As String, oDoc As Document

Sub RunSpellcheck()

Dim oSection As Section, OriginalRange As Range

When I enter the keyboard shortcut (Ctrl+F12) it now takes me to opening a
Word document. and, the name I had assigned to the Macro is gone/missing from
the Macros. thanks, tom.

"Jay Freedman" wrote:

Hi Tom,

You only missed one thing. In step 1 of the article, it says "paste the
following code in, first deleting anything in the code module that Microsoft
inserted automatically". You didn't delete the lines that were there before
you pasted, and now they're causing the problem.

Delete this line at the top:

Sub Pulease()

and delete the very last line:

End Sub

(note that there are two lines like this at the end, just delete one and
leave the other).

Later versions of Word work the same way as Word 97 in this respect.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org

Tom Hyland wrote:
FM: Tom Hyland

Hi, and after two days of trying I'll certainly appreciate your help
in getting this macro
( http://word.mvps.org/FAQs/MacrosVBA/...ProtectDoc.htm )

to run in Word 97, SR 2, Windows XP, Home Edition. I keep getting
"Compile error: Expected End Sub" and other errors as well. Is there
a newer version of Word that will allow spell checking in protected
documents ?

The following is the Macro that I've created:

Sub Pulease()
Option Explicit

Dim Cancelled As Boolean, MyRange As Range, _
CorrectedError As String, oDoc As Document

Sub RunSpellcheck()

Dim oSection As Section, OriginalRange As Range

'If no documents open, quit macro
If Documents.Count = 0 Then
Exit Sub
End If

Set oDoc = ActiveDocument

'Check what type of protection - if any - has been applied
Select Case oDoc.ProtectionType

'If not protected, or if protected for tracked changes,
'run spellchecker and quit
'-------------
Case wdNoProtection, wdAllowOnlyRevisions
If Options.CheckGrammarWithSpelling Then
oDoc.CheckGrammar
Else
oDoc.CheckSpelling
End If
Application.ScreenUpdating = True
Application.ScreenRefresh
If oDoc.SpellingErrors.Count = 0 Then
If Options.CheckGrammarWithSpelling Then
MsgBox "The spelling and grammar check is complete", _
vbInformation
Else
MsgBox "The spelling check is complete", vbInformation
End If
End If
System.Cursor = wdCursorNormal
Exit Sub
'-------------
Case wdAllowOnlyComments
'Don't want to run spellchecker if protected for comments
Exit Sub
End Select

Set OriginalRange = Selection.Range
System.Cursor = wdCursorWait

'-------------
'-------------
'If we've got this far, it's protected for forms
'Now unprotect the document
oDoc.Unprotect
oDoc.SpellingChecked = False

'Check each section for its protection property -
'which you can get even after unprotecting the document.
'If the section was protected, call a subroutine to spellcheck the
formfields. 'if it wasn't, spellcheck the section
StatusBar = "Spellchecking document ..."
For Each oSection In oDoc.Sections
If oSection.ProtectedForForms Then
Call CheckProtectedSection(oSection)
If Cancelled Then
'Boolean variable returned by CheckProtectedSection
'procedure if user pressed Cancel button
Exit For
End If
Else
If oSection.Range.SpellingErrors.Count 0 Then
Application.ScreenUpdating = True
oSection.Range.CheckSpelling
If oSection.Range.SpellingErrors.Count 0 Then
'User pressed Cancel button
'(Pressing Ignore reduces the count, pressing Cancel
doesn't) Exit For
End If
End If
End If
Next oSection

'Re-protect the document
oDoc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
OriginalRange.Select
Application.ScreenUpdating = True
Application.ScreenRefresh
If oDoc.Range.SpellingErrors.Count = 0 Then
If Options.CheckGrammarWithSpelling Then
MsgBox "The spelling and grammar check is complete", _
vbInformation
Else
MsgBox "The spelling check is complete", vbInformation
End If
End If

'Release variables from memory
System.Cursor = wdCursorNormal
Cancelled = False
CorrectedError = vbNullString
Set MyRange = Nothing

End Sub


--------------------------------------------------------------------------
------

Private Sub CheckProtectedSection(oSection As Section)

Dim FmFld As FormField, FmFldCount As Long, Pos As Long

'check only the text formfields,
'don't check listboxes and checkboxes - this speeds up the code
Application.ScreenUpdating = False
For Each FmFld In oSection.Range.FormFields
'Check to see if the field is a text formfield
If FmFld.Type = wdFieldFormTextInput Then
'Check if the field is a 'real' text field (no date, formula
etc); 'and that it is enabled for text input
If FmFld.TextInput.Type = wdRegularText And FmFld.Enabled Then
'The following subroutine won't be called if Word 97 is
in use If Not Left$(Application.Version, 1) = "8" Then
Call TurnNoProofingOff(FmFld)
End If
FmFld.Range.SpellingChecked = False

'Change the language constant in the following line if
necessary; 'when you type the = sign, a list of all
supported language 'constants will appear, and you can
choose one from the list. FmFld.Range.LanguageID =
wdEnglishUS 'Or whichever language is appropriate for you

'If the current form field contains errors, spellcheck
the text in it
If FmFld.Range.SpellingErrors.Count 0 Then
'The following condition is to allow for a Word 97
bug, which 'was fixed in 2000; (and in the latest
Word 97 patches). If 'the formfield is in a table and
contains more than one 'paragraph, then spellchecking
it will crash Word 97 If Left$(Application.Version,
1) = "8" _ And FmFld.Range.Paragraphs.Count
1 _ And FmFld.Range.Tables.Count 0 Then
Call Word97TableBugWorkaround(FmFld)
If Cancelled Then Exit Sub
Else
'Set a range to the formfield's range in case the
user 'accidentally destroys the formfield by
overtyping its entire
'contents
Set MyRange = FmFld.Range
FmFldCount = oSection.Range.FormFields.Count
Application.ScreenUpdating = True

FmFld.Range.CheckSpelling

If IsObjectValid(FmFld) Then
If FmFld.Range.SpellingErrors.Count 0 Then
'User pressed Cancel button. (Pressing
Ignore 'reduces the count, pressing
Cancel doesn't) Cancelled = True
Exit Sub
End If
Else
'If formfield was destroyed because user
overtyped its 'entire contents
CorrectedError = MyRange.Text
If Len(CorrectedError) = 0 Then
CorrectedError = MyRange.Words(1).Text
End If

'Formfields should really NEVER be preceded
by a tab; 'design your forms so that each
formfield is in its own
'table cell (removing borders as necessary).
However, to
'cater for any legacy forms you may have, the
following
'loop works around the possibility that it
might be 'preceded by a tab
Pos = InStr(CorrectedError, vbTab)
Do While Pos 0
CorrectedError = Mid$(CorrectedError, Pos
+ 1) Pos = InStr(CorrectedError, vbTab)
Loop

'If formfield was destroyed when the user
corrected the
'spelling, reinstate it, and put the user's
correction into its
'result. Note that although Undo reinstates
the Formfield
'itself, if the Formfield is preceded by a
tab, It doesn't
'reinstate the FmFld object, hence the need
to do a count
'(although, as previously stated, in a
well-designed form,
'formfields should never be preceded by a
tab, as it's 'better use table cells
(removing borders as necessary).
Do While Not FmFldCount = _
oSection.Range.FormFields.Count
oDoc.Undo
Loop

'Also due to a Word bug, if the formfield is
preceded by a
'tab, the text within the formfield may now be
selected
'without the formfield itself being selected!
'Hence the following convoluted workaround
If Selection.FormFields.Count = 0 Then
Selection.MoveRight unit:=wdCharacter
Selection.MoveLeft unit:=wdCharacter,
Extend:=True End If
If Not IsObjectValid(FmFld) Then
Set FmFld = Selection.FormFields(1)
End If
FmFld.Result = CorrectedError
End If
End If
Application.ScreenUpdating = False
End If
End If
End If
Next FmFld

End Sub


--------------------------------------------------------------------------
------

Private Sub TurnNoProofingOff(FmFld As FormField)
'This subroutine is called only in Word 2000 and above
FmFld.Range.NoProofing = False
End Sub


--------------------------------------------------------------------------
------

Private Sub Word97TableBugWorkaround(FmFld As FormField)

'Unlink formfield (convert to text)
Set MyRange = FmFld.Range
FmFld.Range.Fields(1).Unlink
Application.ScreenUpdating = True
MyRange.CheckSpelling
If MyRange.SpellingErrors.Count 0 Then
'User pressed Cancel button
'(Pressing Ignore reduces the count, pressing Cancel doesn't)
Cancelled = True
End If
CorrectedError = MyRange.Text
'Undo to reinstate the formfield
Do While Not IsObjectValid(FmFld)
oDoc.Undo
Loop
FmFld.Range.Fields(1).Result.Text = CorrectedError
Application.ScreenUpdating = False

End Sub


End Sub