Change all text in frames

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

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