Results 1 to 5 of 5
  1. #1
    New Lounger
    Join Date
    Nov 2001
    Location
    Springfield, Virginia, USA
    Posts
    19
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Spelling but NO grammar check (2000/SR1)

    Folks,

    I prepare a lot of specs, having cryptic titles for headers that I would like to exempt from grammar, but not spell, checking.

    e.g.
    4.4.4 Additional Authorization List (AAL). The AAL is provided...
    [auto-num, in ->] [Heading 3 Style] [Hidden text para mark] [Body text]

    I want the system to verify that I have spelled the words correctly, but not report the phrase to be a fragment.
    Since I want that functionality for the rest of the (body) text, I envision stipulating this "language" exception for my heading style(s)

    Has anyone devised a way of doing this... or any other automated solution?


    Much thanks for your thoughts on this,
    BobM.

  2. #2
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Los Angeles Area, California, USA
    Posts
    7,453
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Spelling but NO grammar check (2000/SR1)

    Hi Bob:
    Tools/Options/Spelling tab/ & untick "check grammer with spelling" before you spell check. I generally find the grammer check to be inadequate anyhow.
    Hope this helps.

  3. #3
    5 Star Lounger
    Join Date
    Jan 2001
    Location
    Cumberland, Maryland, USA
    Posts
    880
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Spelling but NO grammar check (2000/SR1)

    Right! It's been a while since I read an article about the accuracy/reliability of the grammar checker, but as I recall, an English professor, as part of a sabbatical leave project, fed thousands of grammatically incorrect sentence into Word. She found that the grammar check was accurate less than 50% of the time. On some errors, it was worse; on others, a bit better.

  4. #4
    New Lounger
    Join Date
    Nov 2001
    Location
    Springfield, Virginia, USA
    Posts
    19
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Spelling but NO grammar check (2000/SR1)

    Hey Phil,

    Thanks for your thoughts, and for taking the time to respond. I am trying to accomplish exactly what you said... but selectively.
    Thought about recording a macro to do just that, then was faced with the perplexity of how to invoke it for a style. Again I'm trying to apply this to specific text (headings).

    As for bashing the Grammar Checker utility... not going there. I write for a living, it's what I am supposed to do better than the average Joe. If the checker could do all we'd like it to, I'd be out of a job !! Besides, it's useful for repeated words, sentence length, and such.

    Any other ideas (on the original issue) ??


    Thanx,
    BobM.

  5. #5
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Los Angeles Area, California, USA
    Posts
    7,453
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Spelling but NO grammar check (2000/SR1)

    Hi Bob:
    The only idea that I have is one that I can't help with, as I'm not a VBA expert. It seems to me that what you want is a macro that:

    1. Goes to Tools/Options/Spelling & unticks the option to check grammer with spelling.
    2. Spell checks the document.
    3. Finds all Heading styles (or just all Heading 1 styles).
    4. Defines Heading 1 as "no proofing" (old terminology, but the Language option for not checking spelling).
    5. Goes to Tools/Option/Spelling & ticks the option to check grammer with spelling.
    6. Spell checks the document again (supposedly, only grammer checking, as spell checking is already done).
    7. Redefines Heading 1 as English (or unticks the "don't check..." Language option).

    I would think that all these things are possible. I just recorded such a macro in Word 97 & got this:
    <pre>Sub Macro1()
    '
    ' Macro1 Macro
    ' Macro recorded 10/31/02 by Phil Rabichow
    '
    With Options
    .CheckSpellingAsYouType = False
    .CheckGrammarAsYouType = False
    .SuggestSpellingCorrections = True
    .SuggestFromMainDictionaryOnly = False
    .CheckGrammarWithSpelling = False
    .ShowReadabilityStatistics = False
    .IgnoreUppercase = False
    .IgnoreMixedDigits = True
    .IgnoreInternetAndFileAddresses = True
    End With
    ActiveDocument.ShowGrammaticalErrors = True
    ActiveDocument.ShowSpellingErrors = True
    Languages(wdEnglishUS).SpellingDictionaryType = wdSpelling
    Languages(wdEnglishUS).DefaultWritingStyle = "Formal"
    ActiveDocument.ActiveWritingStyle(wdEnglishUS) = "Formal"
    With CustomDictionaries
    .ClearAll
    .Add("C:Program FilesMicrosoft OfficeOfficeCUSTOM.DIC"). _
    LanguageSpecific = False
    .ActiveCustomDictionary = CustomDictionaries.Item( _
    "C:Program FilesMicrosoft OfficeOfficeCUSTOM.DIC")
    End With
    If Options.CheckGrammarWithSpelling = True Then
    ActiveDocument.CheckGrammar
    Else
    ActiveDocument.CheckSpelling
    End If
    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("Heading 1")
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = ""
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Options
    .CheckSpellingAsYouType = False
    .CheckGrammarAsYouType = False
    .SuggestSpellingCorrections = True
    .SuggestFromMainDictionaryOnly = False
    .CheckGrammarWithSpelling = True
    .ShowReadabilityStatistics = False
    .IgnoreUppercase = False
    .IgnoreMixedDigits = True
    .IgnoreInternetAndFileAddresses = True
    End With
    ActiveDocument.ShowGrammaticalErrors = True
    ActiveDocument.ShowSpellingErrors = True
    Languages(wdEnglishUS).SpellingDictionaryType = wdSpelling
    Languages(wdEnglishUS).DefaultWritingStyle = "Formal"
    ActiveDocument.ActiveWritingStyle(wdEnglishUS) = "Formal"
    With CustomDictionaries
    .ClearAll
    .Add("C:Program FilesMicrosoft OfficeOfficeCUSTOM.DIC"). _
    LanguageSpecific = False
    .ActiveCustomDictionary = CustomDictionaries.Item( _
    "C:Program FilesMicrosoft OfficeOfficeCUSTOM.DIC")
    End With
    If Options.CheckGrammarWithSpelling = True Then
    ActiveDocument.CheckGrammar
    Else
    ActiveDocument.CheckSpelling
    End If
    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("Heading 1")
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = ""
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    End Sub</pre>


    Hope this helps.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •