Sub Demo()
Application.ScreenUpdating = False
Dim Para As Paragraph
  With ActiveDocument
    For Each Para In .Paragraphs
      With Para
        If .Borders.Enable = True Then
          .Range.Font.Name = "Calibri"
          .Range.Font.Bold = True
          If .Range.ListFormat.ListType <> 0 Then
             .Range.ListFormat.ListTemplate.ListLevels(1).Font.Name = "Calibri"
          End If
          .Borders.Enable = False
        End If
      End With
    Next
  End With
  Application.ScreenUpdating = True
End Sub