不能批量替換字体

ucla8899

我的PPT不能批量替换图片，我想从宋体替换成微软雅黑  ，和我的系统是繁体的office也是繁体的有关系么 但是我有安装简体字库啊 请各位大神帮我看看  

梧月书声

选中你要替换的文字（注意时拉黑选中，不能只选中表格），看图




楼主最好检查一下你pwerpoint的语言首选项，我看到你发的图片里左下角显示是韩文。

ucla8899

可是我的電腦就不能轉換 打開后沒有雅黑選項   我字庫中有雅黑的字體 但是雅黑和新細明體不能互相轉換  麻煩幫我在看看 謝謝

ucla8899

Sub OED01()
Dim Shape As Shape
Dim Slide As Slide
Dim TxtRange As TextRange
On Error Resume Next
For Each Slide In ActivePresentation.Slides
   For Each Shape In Slide.Shapes
          Set TxtRange = Shape.TextFrame.TextRange
          If Not IsNull(TxtRange) Then
         With TxtRange.Font
             .Name = "新細明體"
             .Size = 15
             .Color.RGB = RGB(Red:=0, Green:=125, Blue:=255)
          End With
          End If
   Next
   Next
End Sub

按照這個代碼執行 字號都變了 但是 字體不變啊 哎 ……

weiyingde

我也遇到了相同的情况，经过无数次的实验，证明：
   如果是office2010，
    shape.type为1、14、15、17（如自选图形、placeholder等）的，字体是无法通过VBA操控的，
    而shape.type为12的，则可以操控。
  而office2003则没有这种怪事。

不知同仁们是否由此体验？

weiyingde

ucla8899 发表于 2016-8-17 17:04
Sub OED01()
Dim Shape As Shape
Dim Slide As Slide

我遇到的问题已经自我解决。
你不妨这样试试：
将" .Name = "新細明體""改为:
.namefareast ="新細明體"
若成功，告我一声。

hunghe

谢谢老师们的分享，正在学习中！！！！！！！！！！！！