Recommended is installation and maintenance of this as a Word macro. But if you wish, it can be imported as a Dragon NaturallySpeaking macro, named "fix dragon mistakes". This can be downloaded in .dat file format, then Imported into DNS 7 Pro/Medical/Legal.
Download Word-2002 Version (TBD -- the Reference to the Word object library is different)
No need to install as a Word macro if you go this route -- but highlighting of optional changes is not as good with the Dragon macro as with the Word macro.
There are other ways of installing macros. Use them if you choose to do so.
Next, you can set up to use the macro. But first you should understand it and learn to edit the macro so that it includes words/phrases that consistently create problems for you.
TBD
The Function FixDragonWords does the heavy work, the FixDNSWords is just a place to make calls. Add lines to "FixDragonWords" as you see fit. If you think you have replacements that have general applicability (even if only within medicine, or only within law), e-mail them to info@pcspeak.com and they may be added.
The three arguments to the FixDragonWords function are:
This macro isn't anything more (or less) than automating Find/Replace operations.
This is saved in your Normal.dot template. You may be asked whether or not you wish to save Normal.dot upon exiting Word, answer "yes" to save it.
With this installed, one click and you are on your way to eliminating common mistakes. Try it out on a test document first. Then add some of what you need -- phrases like:
FixDragonWords messup:="Mease Countryside hospital", fixup:="Mease
Countryside Hospital", verify:=False
Some items may need verification more than others. For instance, if you might end a sentence with the word "one" then verification of the "one." example below is in order. That is, some of you might want the line:
Code:
Sub FixDNSwords()
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:=True
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:=True
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.
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 ' June 5 2003 change
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
selFlag = Selection.Find.Execute
If selFlag Then
changeFlag = Not verify
If verify Then changeFlag = (MsgBox("Fix " & Chr(34) & messup
& Chr(34) & " with " & Chr(34) & fixup & Chr(34)
& "? ", vbYesNo) = 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
top