Spelling Options Collection Object Example

The following routine sets some spelling options and creates a new custom dictionary where added words during a spellcheck can be found:

Sub SetSpellingOptions()

'This one is as simple as it gets With Application.SpellingOptions .IgnoreCaps = True .IgnoreFileNames = True .IgnoreMixedDigits = True .SuggestMainOnly = False

'This property creates a custom dictionary ' called Wrox.dic, which can be found and directly edited

' in C:\WINDOWS\Application Data\Microsoft\Proof. 'Added words during a spellcheck will now appear ' in this custom dictionary. .UserDict = "Wrox.dic" End With End Sub

0 0

Post a comment