True Type Font

[jessewalker]

Hi all,

DFPKaiShu-GB5 is a true type Chinese Font. Could you please help how to change this font?


Sub GB()
ActiveWindow.Selection.ShapeRange(1).Select
With ActiveWindow.Selection.ShapeRange.TextFrame.TextRange
.Font.Name = "DFPKaiShu-GB5"
End With
End Sub

[John Wilson]

What do you want to change it to?? I'm guessing the chinese font is double byte (unlike nearly all western fonts)

What happens if you use the replace fonts dialogue (it will help if you mention which version of Office you have)

This may work but it may fail with double byte fonts

Sub switchfont()
ActivePresentation.Fonts.Replace Original:="DFPKaiShu-GB5", Replacement:="Arial"
End Sub

BTW there's no point selecting a selection!