写材料word和PPT

一、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