Find/delete comma/period - MacroDiva

I would put on a hot key combo.  This looks for the first comma or period to the left, deletes it, and then returns to  original insertion point.  If you need to undo it just use control-Z.  Position your cursor at very end of the meds list, and run it until all the periods and commas are gone.

Sub FindLastCommaPeriod()

With Selection   

.TypeText "^"   

.MoveUntil cset:=",.", Count:=wdBackward   

.TypeBackspace   

.MoveUntil cset:="^", Count:=wdForward   

.Delete

End With

End Sub

Sorry for the delay, been busy. - Word Student

Delete Comma/Period #2 - MacroDiva

Of concern, does your med list ever contain dosages?  (For example, Synthroid .125 mcg?)  This macro would delete any decimals, so does this need to be changed to accommodate decimals?

I would put this on a hot key combo for ease of use.

Sub RemoveCommaPeriod2()

' Macro created 5/17/2014 by WordExpress Transcriptions

 ' To delete unwanted punctuation in medication list

' Position cursor at very end of medication list

Selection.TypeText "^"

Selection.MoveUntil cset:=":", Count:=wdBackward

GoSub RemovePunc

While Char <> "^"

GoSub RemovePunc

Wend

Selection.TypeBackspace   

Exit Sub

RemovePunc:

Char = Selection.Text

If Char = "." Or Char = "," Then Selection.Delete:Return

Selection.MoveRight unit:=wdCharacter

Return

End Sub

Yes, occasionally contains dosages, about 1/4 to 1/3 of the time. - Word Student

Remove comma/period in list but protect decimal - MacroDiva

Sub RemoveCommaPeriod3()

' Macro created 5/17/2014 by WordExpress Transcriptions

' To delete unwanted punctuation in list; protects decimals

' Position cursor at very end of medication list

Dim Char As Variant

Selection.TypeText "^"

Selection.MoveUntil cset:=":", Count:=wdBackward

GoSub RemovePunc

While Char <> "^": GoSub RemovePunc: Wend

Selection.TypeBackspace

Exit Sub

RemovePunc:

Char = Selection.Text

If Char = "," Then Selection.Delete: Return

If Char = "." Then GoSub Check4Number: Return

Selection.MoveRight unit:=wdCharacter:Return

Check4Number:

Selection.MoveRight unit:=wdCharacter: Char = Asc(Selection.Text)

If Char > 47 And Char < 58 Then Return

Selection.TypeBackspace: Return

End Sub

Awesome, fantastic! Thanks so much, once again!! - Word Student (nm)

Darn, I forgot something... - Word Student

t.i.d., p.r.n., e.t.c. - MacroDiva

Reminder - MacroDiva

Thanks, I'll play around with it. Appreciate all your help. - Word Student (nm)

update: So far, so good. - Word Student