Word 97 Selection of only form fields in macro ALL form fields
Word 97 Selection of only form fields in macro ALL form fields
(OP)
I am trying to spell check a document with many form fields. In a macro I need to "select" all of the form fields at once and then complete the spell check. I am able to select formfields one at a time and loop through them all, but the user has to press the NO key to move between each form field. This is the code I am currenty using. I would like to find a way to skip the looping routine and select all of the form fields, without selecting any of the non form field text. ie. not using SELECTION.WHOLESTORY.
Here is the code I am currently using.
Sub FormsSpellCheck()
' If document is protected, Unprotect it.
If ActiveDocument.ProtectionType <> wdNoProtection Then
ActiveDocument.Unprotect Password:=""
End If
Dim aStory As Range
Dim aField As FormField
For Each aStory In ActiveDocument.StoryRanges
For Each aField In aStory.FormFields
aField.Select
' Set the language for the document and spell check selection.
Selection.Select
Selection.LanguageID = wdEnglishUS
' Perform Spelling/Grammar check.
If Options.CheckGrammarWithSpelling = True Then
ActiveDocument.CheckGrammar
Else
ActiveDocument.CheckSpelling
End If
Next aField
Next aStory
' ReProtect the document.
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End If
End Sub
Here is the code I am currently using.
Sub FormsSpellCheck()
' If document is protected, Unprotect it.
If ActiveDocument.ProtectionType <> wdNoProtection Then
ActiveDocument.Unprotect Password:=""
End If
Dim aStory As Range
Dim aField As FormField
For Each aStory In ActiveDocument.StoryRanges
For Each aField In aStory.FormFields
aField.Select
' Set the language for the document and spell check selection.
Selection.Select
Selection.LanguageID = wdEnglishUS
' Perform Spelling/Grammar check.
If Options.CheckGrammarWithSpelling = True Then
ActiveDocument.CheckGrammar
Else
ActiveDocument.CheckSpelling
End If
Next aField
Next aStory
' ReProtect the document.
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End If
End Sub