Hi,

I have a ppt presentation and am using Century Gothic as the main font. However Century Gothic has the world's worst question mark. So I went through all the font's and Dotum has the closest lookalike font question mark which fits. However I don't want to have to go through 140 slides a week and change by hand each question mark from Century Gothic to Dotum. Is there any way to macro this?



I am aware MS offers the complete font change option, but that's no good.

I've searched online and people have macros for entire font changes. again no good, any help appreciated.

I don't want to change the font size or colour, just the font for one character, the character might be 32, 30, 28 point century gothic but it needs to chaneg to the relevant 32,30,28 dotum for ?

Sub x()
Dim oSld As Slide
Dim oShp As Shape
Dim rTxt As TextRange
Dim rFind As TextRange

For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
If oShp.HasTextFrame Then
Set rTxt = oShp.TextFrame.TextRange
Set rFind = rTxt.Find(FindWhat:="?")
Do While Not rFind Is Nothing
With rFind
.Font.Name = "Dotum"
Set rFind = rTxt.Find(FindWhat:="?", _
After:=.Start + .Length - 1)
End With
Loop
End If
Next
Next
End Sub