A community of 30,000 US Transcriptionist serving Medical Transcription Industry
I put them all just before End Sub once again, spelled exactly the same as when working up above since just cut & pasted to move them, but still not working. It's not just an EditScript thing either this time; they're not working even in Word before trying in ES. All of the replacement strings work, just not any of the calls when I move them all towards the bottom. I can't imagine what I might be doing incorrectly.
Sub General_Macro()
'Macro recorded 9/18/2013 by Word Student
'Updated 9/20/2013 by WordExpress Transcriptions
'Dim SrString RpString
Application.ScreenUpdating = False
GoSub Page1
SrString = "Operating Room": RpString = "operating room": GoSub FindIt
SrString = "Recovery Room": RpString = "recovery room": GoSub FindIt
SrString = "room, placed": RpString = "room and placed": GoSub FindIt
SrString = "-mm": RpString = " mm": GoSub FindIt
SrString = "-cm": RpString = " cm": GoSub FindIt
SrString = " degree": RpString = "-degree": GoSub FindIt
SrString = "-degrees": RpString = " degrees": GoSub FindIt
SrString = "arouseable": RpString = "arousable": GoSub FindIt
SrString = "wretching": RpString = "retching": GoSub FindIt
SrString = " including": RpString = ", including": GoSub FindIt
SrString = " as well as": RpString = ", as well as": GoSub FindIt
SrString = " without": RpString = ", without": GoSub FindIt
SrString = " which": RpString = ", which": GoSub FindIt
SrString = " followed by": RpString = ", followed by": GoSub FindIt
SrString = " as described": RpString = ", as described": GoSub FindIt
SrString = " as noted": RpString = ", as noted": GoSub FindIt
SrString = " as mentioned": RpString = ", as mentioned": GoSub FindIt
SrString = " where": RpString = ", where": GoSub FindIt
SrString = "&": RpString = " and ": GoSub FindIt
SrString = "nontoxic appearing": RpString = "nontoxic-appearing": GoSub FindIt
SrString = "well appearing": RpString = "well-appearing": GoSub FindIt
SrString = "M.D.": RpString = "MD": GoSub FindIt
SrString = "TPA": RpString = "alteplase": GoSub FindIt
SrString = "TNK": RpString = "tenecteplase": GoSub FindIt
SrString = "DSS": RpString = "docusate sodium": GoSub FindIt
SrString = " percent": RpString = "%": GoSub FindIt
SrString = "CK-MB%": RpString = "CK-MB percent": GoSub FindIt
SrString = "speech, swallowing difficulty": RpString = "speech or swallowing difficulty": GoSub FindIt
SrString = "^pOPERATION:": RpString = "^pNAME OF OPERATION:": GoSub FindIt
SrString = "^pOPERATIONS:": RpString = "^pNAME OF OPERATIONS:": GoSub FindIt
SrString = "^pPROCEDURES:": RpString = "^pNAME OF PROCEDURES:": GoSub FindIt
SrString = "^pPROCEDURE:": RpString = "^pNAME OF PROCEDURE:": GoSub FindIt
SrString = "4 x 4s": RpString = "4 x 4's": GoSub FindIt
SrString = "nurse's": RpString = "nurses'": GoSub FindIt
SrString = "open reduction internal fixation": RpString = "open reduction and internal fixation": GoSub FindIt
SrString = "Conjunctivae pink, nares patent.": RpString = "Conjunctivae pink. Nares patent.": GoSub FindIt
SrString = " as above": RpString = ", as above": GoSub FindIt
SrString = "eyedrops": RpString = "eye drops": GoSub FindIt
SrString = "kilograms": RpString = "kg": GoSub FindIt
SrString = "kilos": RpString = "kg": GoSub FindIt
SrString = "up-to-date": RpString = "up to date": GoSub FindIt
SrString = "Up-to-date": RpString = "Up to date": GoSub FindIt
SrString = "protime": RpString = "pro time": GoSub FindIt
SrString = "Protime": RpString = "Pro time": GoSub FindIt
SrString = "HCTZ": RpString = "hydrochlorothiazide": GoSub FindIt
SrString = "Harmonic scalpel": RpString = "Harmonic Scalpel": GoSub FindIt
SrString = "near syncope": RpString = "near-syncope": GoSub FindIt
SrString = "Near syncope": RpString = "Near-syncope": GoSub FindIt
SrString = "VQ": RpString = "V/Q": GoSub FindIt
SrString = "CHEST: Atraumatic.": RpString = "CHEST WALL: Atraumatic.": GoSub FindIt
SrString = "bilaterally, no": RpString = "bilaterally. No": GoSub FindIt
SrString = "rhythm, no": RpString = "rhythm. No": GoSub FindIt
SrString = "S2, no murmurs": RpString = "S2. No murmurs": GoSub FindIt
SrString = "Dr. ": RpString = "Dr. ": GoSub FindIt
SrString = " gauge": RpString = "-gauge": GoSub FindIt
SrString = "Pulse oximetry on": RpString = "PULSE OXIMETRY: On": GoSub FindIt
SrString = "is well-developed, well-nourished": RpString = "is well developed, well nourished": GoSub FindIt
SrString = "Appears well-hydrated": RpString = "Appears well hydrated": GoSub FindIt
SrString = "Sensory, motor strength": RpString = "Sensory and motor strength": GoSub FindIt
SrString = "meningismus tenderness, deformity, tracheal": RpString = "meningismus, tenderness, tracheal": GoSub FindIt
SrString = "This patient with the above situation.": RpString = "This is a patient with the above situation.": GoSub FindIt
SrString = "systems reviewed, rest": RpString = "systems reviewed, the rest": GoSub FindIt
SrString = "PSYCH:": RpString = "PSYCHIATRIC:": GoSub FindIt
SrString = "side port": RpString = "sideport": GoSub FindIt
SrString = "IA unit": RpString = "I/A unit": GoSub FindIt
SrString = "No known drug allergies.": RpString = "NO KNOWN DRUG ALLERGIES.": GoSub FindIt
SrString = "He has no known drug allergies.": RpString = "HE HAS NO KNOWN DRUG ALLERGIES": GoSub FindIt
SrString = "She has no known drug allergies.": RpString = "SHE HAS NO KNOWN DRUG ALLERGIES": GoSub FindIt
SrString = "ALLERGIES: None.": RpString = "ALLERGIES: NONE.": GoSub FindIt
SrString = "ALLERGIES: None known.": RpString = "ALLERGIES: NONE KNOWN.": GoSub FindIt
SrString = "ALLERGIES TO MEDICATIONS: None.": RpString = "ALLERGIES TO MEDICATIONS: NONE.": GoSub FindIt
SrString = "ALLERGIES: Denies.": RpString = "ALLERGIES: DENIES.": GoSub FindIt
SrString = "ALLERGIES: No significant drug allergies.": RpString = "ALLERGIES: NO SIGNIFICANT DRUG ALLERGIES.": GoSub FindIt
GoSub Page1
Application.ScreenUpdating = True: Application.ScreenRefresh
Exit Sub
FindIt:
GoSub Page1
With Selection.Find
.Text = SrString
.MatchCase = True
.MatchWholeWord = True
.ClearFormatting
.Replacement.Text = RpString
.Replacement.ClearFormatting
.Execute Replace:=wdReplaceAll, Forward:=True
End With
Return
Page1: Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1": Return
Call FixPX
Call FixROS
Call FixOBJ
Call FixCLINEX
Call GramLiter
End Sub