Macro to add drug to AutoCorrect - macroLady

Sub ChangeControl1Key()

CustomizationContext = ActiveDocument.AttachedTemplate

KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, wdKey1), _

    KeyCategory:=wdKeyCategoryMacro, Command:="AddMedToAutoCorrect"

End Sub

Sub AddMedToAutoCorrect()

Dim BrandString, GenericString, Title, Message, LittleString

Title = "WordExpress Transcriptions"

Message = "Type in brand name of medication as you would like it " _

& "to appear in your text:"

BrandString = InputBox(Message, Title)

BrandString = Trim(BrandString)

If BrandString = "" Then

    End

End If

LittleString = LCase(BrandString)

AutoCorrect.Entries.Add Name:=LittleString, Value:=BrandString

Message = BrandString & "®" & vbCr _

& "Type in generic name of medication as you would like it " _

& "to appear in your text (this should be lower case):"

GenericString = InputBox(Message, Title)

GenericString = Trim(GenericString)

If GenericString = "" Then

    End

End If

    GenericString = Trim(GenericString)

    AutoCorrect.Entries.Add Name:=LittleString & " ??", Value:=BrandString & " (" & GenericString & ")"

    Message = LittleString & " (" & GenericString & ")"

    BrandString = BrandString & " "

    AutoCorrect.Entries.Add Name:=Message, Value:=BrandString

    Message = (BrandString) & "(" & GenericString & ")="

    AutoCorrect.Entries.Add Name:=Message, Value:=GenericString & " "

    AutoCorrect.Entries.Add Name:=BrandString & ".", Value:=Trim(BrandString) & ".  "

    AutoCorrect.Entries.Add Name:=GenericString & " .", Value:=GenericString & ".  "

    AutoCorrect.Entries.Add Name:=BrandString & ",", Value:=Trim(BrandString) & ", "

    AutoCorrect.Entries.Add Name:=GenericString & " ,", Value:=GenericString & ", "

End Sub