1

グレイブアクセント `のすべてのインスタンスを見つけて、という名前のフォントに置き換えたいRupee Forandian

最近、ルピー記号が導入されましたが、そのためのキーボード記号はありません...

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
4

2 に答える 2

0

Powerpoint では、図形を繰り返し処理してテキストを取得する必要があります。

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

于 2013-07-12T07:57:50.563 に答える