一、WORD
1、写内容
2、参考GPT改：内容、逻辑结构、语句
3、查标题及其标号
4、修改格式：仿宋 、正文统一为小三，标题三号，1.5倍行距，加页码。

采用VBA代码自动修改，不知为何标题无法修改字体

Sub 插入页码_及设置格式()Dim rng As RangeDim par As Paragraph' 设置正文格式Set rng = ActiveDocument.RangeWith rng.Font.Name = "仿宋" ' 设置字体为仿宋.Font.Size = 15 ' 设置字号为小三（这里以15磅为例，具体大小依Word的字体设置为准）.ParagraphFormat.LineSpacingRule = wdLineSpace150Percent ' 设置1.5倍行距End With' 设置标题格式并居中For Each par In ActiveDocument.ParagraphsIf par.Range.Style.NameLocal = "Heading 1" Then ' 假设一级标题使用样式 "Heading 1"With par.Range.Font.Size = 30 ' 设置字号为三号（Word中默认三号为16磅）.Name = "仿宋" ' 设置字体为仿宋End Withpar.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter ' 设置标题居中End IfNext par' 添加页码ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter = False '关闭奇偶页相同（防止上回启用奇偶页不同后没有关闭此项设置）With ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooterWith Selection.Expand wdStory.Font.Size = 9 '字号（小五）.Font.Name = "仿宋" '字体.ParagraphFormat.Alignment = wdAlignParagraphCenter.TypeText "第 ".Font.Name = "Times New Roman" '字体.Fields.Add .Range, wdFieldPage.Font.Name = "仿宋" '字体.TypeText " 页" ' 在数字和“页”之间增加空格End With.SeekView = wdSeekMainDocument '退出页码的编辑（即关闭页眉和页脚工具栏）End WithEnd Sub

VBA 自动雅黑

Sub ChangeFontInAllSlides()
Dim oSlide As Slide
Dim oShape As Shape
Dim oTable As Table
Dim oRow As Row
Dim oCell As Cell
Dim oTxtRange As TextRange
Dim oGroup As Shapes
Dim oChildShape As Shape

' 遍历演示文稿中的所有幻灯片
For Each oSlide In ActivePresentation.Slides' 遍历幻灯片中的所有形状For Each oShape In oSlide.Shapes' 如果形状包含文本框If oShape.HasTextFrame ThenSet oTxtRange = oShape.TextFrame.TextRange' 设置文本框中文本的字体属性With oTxtRange.Font.Name = "微软雅黑"'.Size = 14'.Color.RGB = RGB(255, 0, 0)'.Bold = True.Italic = False.Underline = FalseEnd With' 行距1.5oTxtRange.ParagraphFormat.SpaceWithin = 1.5End If' 如果形状是组合图形If oShape.Type = msoGroup Then' 直接遍历组合图形内的子形状For i = 1 To oShape.GroupItems.CountSet oChildShape = oShape.GroupItems.Item(i)' 如果子形状包含文本框If oChildShape.HasTextFrame ThenSet oTxtRange = oChildShape.TextFrame.TextRange' 设置文本框中文本的字体属性With oTxtRange.Font.Name = "微软雅黑"'.Size = 14'.Color.RGB = RGB(255, 0, 0)'.Bold = True.Italic = False.Underline = FalseEnd With' 行距1.5oTxtRange.ParagraphFormat.SpaceWithin = 1.5End IfNext iEnd If' 如果形状包含表格If oShape.HasTable ThenSet oTable = oShape.Table' 遍历表格中的所有行和单元格For Each oRow In oTable.RowsFor Each oCell In oRow.CellsIf oCell.Shape.HasTextFrame ThenSet oTxtRange = oCell.Shape.TextFrame.TextRange' 设置表格单元格中文本的字体属性With oTxtRange.Font.Name = "微软雅黑"'.Size = 20'.Color.RGB = RGB(255, 0, 0)'.Bold = True.Italic = False.Underline = FalseEnd WithEnd IfNext oCellNext oRowEnd IfNext oShape
Next oSlide

End Sub