O
Oh God It's Him Again
Can anyone please help. On the computers at work, Word 2002 is run on
workstations from a central server. My employer has set various options to
what they think is best - obviously so that individual preferences aren't
imposed on everyone else. However, they do allow individuals to create their
own macros, and we each have our own Normal.dot - although we can't actually
see the folder where they are stored. So we can make some individual changes
such as creating macros, toolbar buttons etc, but only the one who creates
them can see them.
One of their options is to not have the spellchecker set to check spelling
as you type, so if you want to check as you type you have to set that every
time you open Word.
So I want to create a macro that will do that for me. So I started up the
macro recorder, opened the spellcheck dialogue box from "Tools - Spelling
and grammar", selected "options", selected the "spellcheck as you type"
option, closed out of the dialogue box and stopped the recorder. The macro
below is what was created.
Only thing is, when I run the macro it doesn't do anything on the face of
it. However if having run it I simply open the spellcheck dialogue box,
without doing anything else at all the macro suddenly kicks in.
Any help appreciated.
*******************************
Sub spellcheckauto()
'
' spellcheckauto Macro
' Macro recorded 23/02/2005 by fredsmith
'
With Options
.CheckSpellingAsYouType = True
.CheckGrammarAsYouType = False
.SuggestSpellingCorrections = True
.SuggestFromMainDictionaryOnly = False
.CheckGrammarWithSpelling = True
.ShowReadabilityStatistics = False
.IgnoreUppercase = True
.IgnoreMixedDigits = True
.IgnoreInternetAndFileAddresses = True
.AllowCombinedAuxiliaryForms = True
.EnableMisusedWordsDictionary = True
.AllowCompoundNounProcessing = True
.UseGermanSpellingReform = True
End With
ActiveDocument.ShowGrammaticalErrors = True
ActiveDocument.ShowSpellingErrors = True
Languages(wdEnglishUK).SpellingDictionaryType = wdSpelling
With CustomDictionaries
.ClearAll
.Add( _
"\\mlwcls01\appdata\terminal\johnpricemlw\Microsoft\Proof\CUSTOM.DIC"
_
).LanguageSpecific = False
.ActiveCustomDictionary = CustomDictionaries.Item( _
"\\mlwcls01\appdata\terminal\johnpricemlw\Microsoft\Proof\CUSTOM.DIC"
_
)
End With
End Sub
workstations from a central server. My employer has set various options to
what they think is best - obviously so that individual preferences aren't
imposed on everyone else. However, they do allow individuals to create their
own macros, and we each have our own Normal.dot - although we can't actually
see the folder where they are stored. So we can make some individual changes
such as creating macros, toolbar buttons etc, but only the one who creates
them can see them.
One of their options is to not have the spellchecker set to check spelling
as you type, so if you want to check as you type you have to set that every
time you open Word.
So I want to create a macro that will do that for me. So I started up the
macro recorder, opened the spellcheck dialogue box from "Tools - Spelling
and grammar", selected "options", selected the "spellcheck as you type"
option, closed out of the dialogue box and stopped the recorder. The macro
below is what was created.
Only thing is, when I run the macro it doesn't do anything on the face of
it. However if having run it I simply open the spellcheck dialogue box,
without doing anything else at all the macro suddenly kicks in.
Any help appreciated.
*******************************
Sub spellcheckauto()
'
' spellcheckauto Macro
' Macro recorded 23/02/2005 by fredsmith
'
With Options
.CheckSpellingAsYouType = True
.CheckGrammarAsYouType = False
.SuggestSpellingCorrections = True
.SuggestFromMainDictionaryOnly = False
.CheckGrammarWithSpelling = True
.ShowReadabilityStatistics = False
.IgnoreUppercase = True
.IgnoreMixedDigits = True
.IgnoreInternetAndFileAddresses = True
.AllowCombinedAuxiliaryForms = True
.EnableMisusedWordsDictionary = True
.AllowCompoundNounProcessing = True
.UseGermanSpellingReform = True
End With
ActiveDocument.ShowGrammaticalErrors = True
ActiveDocument.ShowSpellingErrors = True
Languages(wdEnglishUK).SpellingDictionaryType = wdSpelling
With CustomDictionaries
.ClearAll
.Add( _
"\\mlwcls01\appdata\terminal\johnpricemlw\Microsoft\Proof\CUSTOM.DIC"
_
).LanguageSpecific = False
.ActiveCustomDictionary = CustomDictionaries.Item( _
"\\mlwcls01\appdata\terminal\johnpricemlw\Microsoft\Proof\CUSTOM.DIC"
_
)
End With
End Sub