批量修改World和PPT的文字格式、颜色、大小等

首先是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真好用，又需要的自取，有疑问的在评论去留言吧~