Dim p As Paragraph
Dim oRng As Range
Dim Thistext As String
Dim meetssomecondition As Boolean

    For Each p In ActiveDocument.Paragraphs
        meetssomecondition = False
        Thistext = p.Range.Text
        If InStr(1, Thistext, "-") > 0 Then meetssomecondition = True
        If meetssomecondition = True Then
            Set oRng = p.Range    'set a range to the paragraph
            oRng.Collapse 1    'collapse the range to its start
            oRng.MoveEndUntil "-"    'move the end of the range to the hyphen
            oRng.Font.Bold = True    'format the range
        End If
    Next p