Change all text in frames

macropod · #1 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 · #2 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.

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