PowerPointにてフォントを一括変換をWinActorで行おうとした場合、

「.TextRange.Font.Name」は使用できるのですが、「.TextRange.Font.NameFarEast」が

使用できず、2バイト文字のフォントが変換できません。

良い回避方法をご存知の方がいれば回答願います。

サンプルスクリプト

Fname = !フォント名!

objPpt.Visible = True

On Error Resume Next
Set objPpt = GetObject(, "PowerPoint.Application")
Set objPpx = objPpt.ActivePresentation

For Each sld In objPpx.Slides
For Each shp In sld.Shapes
If shp.HasTextFrame Then
With shp.TextFrame.TextRange.Font
.NameFarEast = Chr(34) & Fname & Chr(34)
.Name = Chr(34) & Fname & Chr(34)
End With
End If
Next
Next
On Error Goto 0

Set txtRng = Nothing
Set objPpx = Nothing