LHSP‡ fix dragon mistakespcspeakýðÿ!'#Reference {00020905-0000-0000-C000-000000000046}#8.1#0#G:\Program Files\Microsoft Office\Office\MSWORD9.OLB#Microsoft Word 9.0 Object Library Sub Main FixDragonWords messup:="a cult", fixup:="occult", verify:=True FixDragonWords messup:="she is", fixup:="she has", verify:=True FixDragonWords messup:="numeral one", fixup:="1", verify:=False FixDragonWords messup:="numeral two", fixup:="2", verify:=False FixDragonWords messup:=" ;", fixup:=";", verify:=False FixDragonWords messup:=" :", fixup:=":", verify:=False FixDragonWords messup:=" .", fixup:=".", verify:=False FixDragonWords messup:=" 's", fixup:="'s", verify:=False FixDragonWords messup:=" .", fixup:=".", verify:=False FixDragonWords messup:="to thousand two", fixup:="2002", verify:=False FixDragonWords messup:="numeral one", fixup:="1", verify:=False FixDragonWords messup:="numeral two", fixup:="2", verify:=False FixDragonWords messup:="numeral three", fixup:="3", verify:=False FixDragonWords messup:="numeral four", fixup:="4", verify:=False FixDragonWords messup:="numeral five", fixup:="5", verify:=False FixDragonWords messup:="numeral six", fixup:="6", verify:=False FixDragonWords messup:="numeral seven", fixup:="7", verify:=False FixDragonWords messup:="numeral eight", fixup:="8", verify:=False FixDragonWords messup:="numeral ate", fixup:="8", verify:=False FixDragonWords messup:="numeral nine", fixup:="9", verify:=False FixDragonWords messup:="one.", fixup:="1.", verify:=True ' July 2 2003 change FixDragonWords messup:="two.", fixup:="2.", verify:=False FixDragonWords messup:="three.", fixup:="3.", verify:=False FixDragonWords messup:="four.", fixup:="4.", verify:=False FixDragonWords messup:="five.", fixup:="5.", verify:=False FixDragonWords messup:="six.", fixup:="6.", verify:=False FixDragonWords messup:="seven.", fixup:="7.", verify:=False FixDragonWords messup:="eight.", fixup:="8.", verify:=False FixDragonWords messup:="nine.", fixup:="9.", verify:=True ' July 2 2003 change FixDragonWords messup:="to.", fixup:="2.", verify:=True ' July 2 2003 change FixDragonWords messup:="one mg", fixup:="1 mg", verify:=False FixDragonWords messup:="two mg", fixup:="2 mg", verify:=False FixDragonWords messup:="three mg", fixup:="3 mg", verify:=False FixDragonWords messup:="four mg", fixup:="4 mg", verify:=False FixDragonWords messup:="five mg", fixup:="5 mg", verify:=False FixDragonWords messup:="six mg", fixup:="6 mg", verify:=False FixDragonWords messup:="seven mg", fixup:="7 mg", verify:=False FixDragonWords messup:="eight mg", fixup:="8 mg", verify:=False FixDragonWords messup:="nine mg", fixup:="9 mg", verify:=False FixDragonWords messup:="to mg", fixup:="2 mg", verify:=False FixDragonWords messup:="40 2nd St.", fixup:="42nd Street", verify:=False FixDragonWords messup:="Minutes Each Way", fixup:="minutes each way ", verify:=False FixDragonWords messup:="Minutes Each Way", fixup:="minutes each way ", verify:=False FixDragonWords messup:="Motion for Summary Judgement", fixup:="motion for summary judgement", verify:=False FixDragonWords messup:="1999 Or. 2000", fixup:="1999 or 2000", verify:=False FixDragonWords messup:="2000 Or. 2001", fixup:="2000 or 2001", verify:=False FixDragonWords messup:="2001 Or. 2002", fixup:="2001 or 2002", verify:=False End Sub Function FixDragonWords(messup As String, fixup As String, verify As Boolean) ' ' Courtesy of Softnet Systems, Inc. ' http://www.pcspeak.com ' Dim selFlag As Boolean Dim changeFlag As Boolean selFlag = True Selection.HomeKey Unit:=wdStory Do While selFlag Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = messup .Replacement.Text = fixup .Forward = True .Wrap = wdFindContinue .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With selFlag = Selection.Find.Execute ' If selFlag Then Wait .5 changeFlag = Not verify If verify Then changeFlag = (MsgBox("Fix " & Chr(34) & messup & Chr(34) & " with " & Chr(34) & fixup & Chr(34) & "? ", vbYesNo+vbSystemModal) = vbYes) If changeFlag Then Selection.MoveLeft Unit:=wdCharacter Selection.Find.Execute Replace:=wdReplaceOne Selection.MoveRight Unit:=wdCharacter End If End If ' selFlag ' Loop ' End Function