Change all text in frames

[WJSwanepoel]

I have a word document with many pieces of text with outside borders around. I wish to find all these and do the following:
1. remove the border
2. Change font of the text (say to Calibri)
3. Make it bold.



Would it be possible to do this in VBA?

A sample is attached.

[macropod]

For example:

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

[WJSwanepoel]

The VBA works , thank you.
Only one more question: As it stands it changes the font of the paragraph but leaves the numbers in whatever font it was. Is there any way of ensuring the font of the numbers change as well? If not, I will do those by hand.

[macropod]

You can do that for all numbered paragraphs in one go by simply clicking on a numbered paragraph and choosing Paragraph|Numbering>Define New Number Format>Font>Bold.

[gmaxey]

Macropod is on the other side of the world from me and may not be around for another couple of hours. You can try:

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

[WJSwanepoel]

Good day Greg,
Thank you very much. You have solved my problem excellently. Much appreciated.