写材料word和PPT

一、WORD

1、写内容

2、参考GPT改:内容、逻辑结构、语句

3、查标题及其标号

4、修改格式:仿宋 、正文统一为小三,标题三号,1.5倍行距,加页码。

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

复制代码
Sub 插入页码_及设置格式()

    Dim rng As Range
    Dim par As Paragraph

    ' 设置正文格式
    Set rng = ActiveDocument.Range
    With rng
        .Font.Name = "仿宋" ' 设置字体为仿宋
        .Font.Size = 15 ' 设置字号为小三(这里以15磅为例,具体大小依Word的字体设置为准)
        .ParagraphFormat.LineSpacingRule = wdLineSpace150Percent ' 设置1.5倍行距
    End With

    ' 设置标题格式并居中
    For Each par In ActiveDocument.Paragraphs
        If par.Range.Style.NameLocal = "Heading 1" Then ' 假设一级标题使用样式 "Heading 1"
            With par.Range.Font
                .Size = 30 ' 设置字号为三号(Word中默认三号为16磅)
                .Name = "仿宋" ' 设置字体为仿宋
            End With
            par.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter ' 设置标题居中
        End If
    Next par

    ' 添加页码
    ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter = False '关闭奇偶页相同(防止上回启用奇偶页不同后没有关闭此项设置)

    With ActiveWindow.ActivePane.View

        .SeekView = wdSeekCurrentPageFooter

        With 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 With

End 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 Then
            Set oTxtRange = oShape.TextFrame.TextRange
            ' 设置文本框中文本的字体属性
            With oTxtRange.Font
                .Name = "微软雅黑"
                
                '.Size = 14
                '.Color.RGB = RGB(255, 0, 0)
                '.Bold = True
                .Italic = False
                .Underline = False
            End With
            ' 行距1.5
              oTxtRange.ParagraphFormat.SpaceWithin = 1.5
        End If
        
        ' 如果形状是组合图形
        
        If oShape.Type = msoGroup Then
            ' 直接遍历组合图形内的子形状
            For i = 1 To oShape.GroupItems.Count
                Set oChildShape = oShape.GroupItems.Item(i)
                ' 如果子形状包含文本框
                If oChildShape.HasTextFrame Then
                    Set oTxtRange = oChildShape.TextFrame.TextRange
                    ' 设置文本框中文本的字体属性
                    With oTxtRange.Font
                        .Name = "微软雅黑"
                        
                        '.Size = 14
                        '.Color.RGB = RGB(255, 0, 0)
                        '.Bold = True
                        .Italic = False
                        .Underline = False
                    End With
                    ' 行距1.5
                    oTxtRange.ParagraphFormat.SpaceWithin = 1.5
                End If
            Next i
        End If

                   
        ' 如果形状包含表格
        If oShape.HasTable Then
            Set oTable = oShape.Table
            ' 遍历表格中的所有行和单元格
            For Each oRow In oTable.Rows
                For Each oCell In oRow.Cells
                    If oCell.Shape.HasTextFrame Then
                        Set oTxtRange = oCell.Shape.TextFrame.TextRange
                        ' 设置表格单元格中文本的字体属性
                        With oTxtRange.Font
                            .Name = "微软雅黑"
                             '.Size = 20
                             '.Color.RGB = RGB(255, 0, 0)
                             '.Bold = True
                            .Italic = False
                            .Underline = False
                        End With
                    End If
                Next oCell
            Next oRow
        End If
    Next oShape
Next oSlide

End Sub

相关推荐
振宇i5 小时前
Java 富文本转word
java·word·富文本·docx4j
南博萬1 天前
java将pdf转换成word
java·pdf·word
zhishishe2 天前
2025 年免费 Word 转 PDF 转换器有哪些?
android·windows·pdf·电脑·word
神奇侠20242 天前
基于PaddleOCR对图片中的excel进行识别并转换成word(一)
python·word·excel·paddleocr
zhishishe2 天前
工具指南:免费将 PDF 转换为 Word 的 10 个工具
android·windows·pdf·word
zhishishe3 天前
Word技巧:如何在 Mac 和 Windows 上检索未保存的 Word 文档
windows·macos·word
usdoc文档预览4 天前
Office文件内容提取 | 获取Word文件内容 |Javascript提取PDF文字内容 |PPT文档文字内容提取
javascript·pdf·word·ppt·office文件在线预览·word文档在线预览·ofd预览转pdf
AI偶然5 天前
AI智能体|扣子(Coze)搭建【一键转换为Word/pdf/Excel】工作流保姆级教学
人工智能·pdf·word
zdlu5 天前
Deepseek输出的内容如何直接转化为word文件?
word·deepseek
救救孩子把5 天前
Spring Boot 集成Poi-tl实现动态Word文档生成
spring boot·word