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
      .Borders.Enable = False
      End If
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub