替换 Power Point 文本中特定字符的字体名称答案

【问题标题】：Replace font name of a particular character in text in Power Point替换 Power Point 文本中特定字符的字体名称
【发布时间】：2013-07-12 06:59:11
【问题描述】：

我想查找grave accent ` 的所有实例并将其替换为名为@987654323@ 的字体

最近推出了卢比符号，但没有键盘符号...

当我尝试使用格式功能的 excel 替换功能 CRTL+H 时，它会更改整个文本字符串的字体，而我希望它只更改重音`

我找到了适用于 Excel 的解决方案，但我需要一个适用于 Powerpoint 2007 的类似解决方案。

Excel中使用的VBA是：

Sub InsertRupeeForandianSymbol()
  Dim X As Long, Cell As Range
  For Each Cell In Selection
    For X = 1 To Len(Cell.Value)
      If Mid(Cell.Value, X, 1) = "`" Then Cell.Characters(X, 1).Font.Name = "Rupee Foradian"
    Next
  Next
End Sub

【问题讨论】：

标签： vba fonts symbols powerpoint

【解决方案1】：

我能想到的最简单的方法是

 Sub InsertRupeeForandianSymbol()
    Dim oSld As Slide
    Dim oShp As Shape
    Dim x As Long
    Dim y As Long

    For Each oSld In ActivePresentation.Slides
     For Each oShp In oSld.Shapes
         For y = 1 To Len(oShp.TextFrame.TextRange)
          If Mid(oShp.TextFrame.TextRange, y, 1) = "`" Then
            oShp.TextFrame.TextRange.Characters(y).Font.Name = "Rupee Foradian"
          End If
         Next y
     Next oShp
    Next oSld
End Sub

【讨论】：

【解决方案2】：

在 Powerpoint 中，您必须遍历 Shapes 才能获取文本：

Sub InsertRupeeForandianSymbol()
    Dim sl As Slide, sh As Shape, X As Long
    For Each sl In ActiveWindow.Selection.SlideRange
        For Each sh In sl.Shapes
            With sh.TextFrame.TextRange.Characters
                For X = 1 To .Count
                    If .Characters(X, 1).Text = "'" Then .Characters(X, 1).Font.Name = "Rupee Forandian"
                Next
            End With
        Next
    Next
End Sub

这将更改所有当前选定幻灯片的字体。您可以将ActiveWindow.Selection.SlideRange 更改为ActivePresentation.Slides 并应用于当前演示文稿中的所有幻灯片。

【讨论】：