利用宏进行批量修改字体类型以及颜色等
首先是PPT:
宏代码如下:
Sub RemoveEmptyTextBoxes()
Dim SlideObj As Slide
Dim shap As Shape
Dim text_range As TextRange
Dim ch As ChartFont
Dim i As Integer
For Each SlideObj In ActivePresentation.Slides
For Each shap In SlideObj.Shapes
If shap.HasTextFrame Then
Set text_range = shap.TextFrame.TextRange
If Not IsNull(text_range) Then
With text_range.Font
.Name = "Times New Roman" '/*非中文有效*/
.NameFarEast = "微软雅黑" '/*中文有效*/
.Size = 12
.Color = RGB(0, 0, 0)
End With
End If
End If
Next
Next
MsgBox ("完成")
End Sub
只需要修改对应位置的参数就行,例如 .Size = 12等
在PPT里面添加红代码示意图如下:
1、点击视图下面的宏标签
2、然后给宏取一个名字,然后点击创建
3、接着把上述PPT的宏代码复制到这个位置
最后按F5运行宏,当出现下图的提示框,就代表执行完了
接着是World
world的启用宏操作是一样的,就没有放示意图了,直接贴代码
Sub FormatSelection()
ActiveDocument.Range(ActiveDocument.Paragraphs.First.Range.Start, ActiveDocument.Paragraphs.Last.Range.End).Select
With Selection.Font
.Name = "Times New Roman" '/*英文以及数字*/
.NameFarEast = "微软雅黑" '/*中文字体*/
.Size = 14 '/*大小*/
End With
MsgBox ("完成")
End Sub
这里是默认选中全部的内容,然后一起修改
这里有一个比较重要的是区分了中文和非中文,想着自己以前写毕业论文,反反复复的修改英文字体为Times New Roman,然后中文字体为另外一种字体,那时候真的是一个一个去找的,真是一个体力活,现在发现VBA真好用,又需要的自取,有疑问的在评论去留言吧~