Change all text in frames

WJSwanepoel · #1 01-08-2025, 11:40 PM

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 · #2 01-09-2025, 02:52 AM

For example:

Code:

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 · #3 01-09-2025, 03:42 AM

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 · #4 01-09-2025, 04:36 AM

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 · #5 01-09-2025, 04:46 AM

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

Code:

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 · #6 01-09-2025, 05:06 AM

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Using text frames in the Footnote area	RRB	Word	9	12-07-2023 02:30 AM
Preventing Word inserting unwanted frames around text	SueN	Word	4	04-05-2023 08:28 PM
why does applying "table text bold" format to last row sometimes trigger the appearance of frames?	pkacsor	Word Tables	3	02-27-2023 03:56 PM
Convert all Frames to Text	stky	Word VBA	1	12-05-2021 06:41 AM
Frames, Frames, Frames: How to eliminate them but keep the text?	Dakota	Word	8	02-09-2014 01:07 AM