Hi
I've been searching for a VBA method to change all instances of bold text in a ppt presentation from one font to a different font.


I can find code for the font change (using .Replace), what I can't do is put it together with code that will look for instances of bold text and then change the font. I can find code that will search for strings, change colours, underline text... pretty much everything except what I'm trying to do.


I'd really appreciate any help with this, and thank you.




BigJ

Sub ChangeBolds()

Dim oSld As Slide
Dim oSh As Shape
Dim x As Long

For Each oSld In ActivePresentation.Slides
For Each oSh In oSld.Shapes

If oSh.HasTextFrame Then

With oSh.TextFrame.TextRange
For x = 1 To .Runs.Count
If .Runs(x).Font.Bold Then
.Runs(x).Font.Name = "Futura Std Book"
End If
Next
End With

End If
Next
Next

End Sub