Here is the macro. It does the replacement as I require, but any bold or italic matches are replaced with plain text.
Sub TEST_All_TEXT_CONVERT_COMMA_TO_HYPHEN_AT_PARAGRAPH_START()
'
' TEST_All_TEXT_CONVERT_COMMA_TO_HYPHEN_AT_PARAGRAPH_START
'
'
Dim regExp As Object
Set regExp = CreateObject("vbscript.regexp")
With regExp
'Generic pattern
.Pattern = "(\r)([1-3 ]*[^ ]{1,15} )(\d+:\d+), (\d+\.)"
.Global = True
Selection.WholeStory
Selection = .Replace(Selection, "$1$2$3-$4")
End With
Selection.Collapse Direction:=wdCollapseEnd
'MsgBox "Done"
End Sub