将ppt文本框中的指定的西文字符转化为斜体

keypress

数学文档中的西文字符常常表示变量，在现行的教材中是用斜体字符表示的，所以，在数学文档（包括PPT、DOC）中，最好也将其转化为斜体，看似专业些。

问题是，这些个字符是夹杂在汉字字符之间的，如果手动转化，费时费力，有没有自动化的办法呢？

一般而言，一个操作重复到第3遍，我就要设法通过自动化的方法解决，可当前的问题似乎除了极少数数学老师外，其他人没有这方面的需求，所以只能自己完成。

经过调试，我写出了如下的代码：

1. Sub 英文斜体()
   
2. On Error Resume Next
   
3. Dim myString As String, strFind As Variant
   
4. Dim i As Integer
   
5.     Dim TxtRng, foundText As TextRange
   
6.     myString = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
   
7.             Set TxtRng = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange
   
8.             If Not (TxtRng Is Nothing) Then
   
9.             For i = 1 To Len(myString)
   
10.             strFind = Mid(myString, i, 1)
    
11.             Set foundText = TxtRng.Find(FindWhat:=strFind)
    
12.             Do While Not (foundText Is Nothing)
    
13.                 With foundText
    
14.                     If .Font.Name = "Times New Roman" Then _
    
15.                     .Font.Italic = msoTrue
    
16.                     Set foundText = _
    
17.                         TxtRng.Find(FindWhat:=strFind, _
    
18.                         After:=.Start + .Length - 1)
    
19.                 End With
    
20.             Loop
    
21.             Next
    
22.             Else
    
23.             MsgBox "没有选择文本框对象，" & Chr(13) & "请选择后执行此过程"
    
24.             End If
    
25. End Sub
    

复制代码

这个宏可以将所有选中的文本框中的字体为“Times New Roman”的西文字符转化为斜体。之所以要限定为“Times New Roman ”，是因为在PowerPoint2010中，公式也可以作为文本框字符，只是其使用的字体为Cambria Math，所以这个宏不会影响到公式中的字符。贴个图，让大家看得清楚些：

wudixin96

谢谢分享，代码很清爽

keypress

wudixin96 发表于 2013-8-10 15:53
谢谢分享，代码很清爽

代码是东拼西凑的，所以不简洁，希望有高手拍砖。

dajiahaoxinku12

感谢楼主分享，学习