Sub DPU_TimeFormat()
Dim Rng As Range
Application.ScreenUpdating = False
Set Rng = ActiveDocument.Range
With Rng.Find
    .MatchWildcards = True

'Delete periods in a.m./p.m.
    .Text = "[^s ]([ap]).m."
    .Replacement.Text = "^s\1m"
    .Execute Replace:=wdReplaceAll
    .Text = "[^s ]([ap]).m>"
    .Execute Replace:=wdReplaceAll

    'Delete spaces in # am/pm
    .Text = "([0-9])[^s ]([ap]m)"
    .Replacement.Text = "\1\2"
    .Execute Replace:=wdReplaceAll

    'Change period for colon in times
    .Text = "([0-9]{1,2}.[0-9]{1,2}[ap]m)"
    .Replacement.Text = "????"
    .Execute Replace:=wdReplaceAll

End With
Application.ScreenUpdating = True
End Sub