前言

在工作中，往往遇到大量数据的统计工作，耗时耗力，我们通常把这些信息用excel做成表单信息。除了统计分析，还面临汇报降解，这时候需要将excel转为PPT进行汇报，如果一个一个复制粘贴，那真的会让人崩溃。

一、分析数据

 这是一组入河排污口调查信息，目的要介绍每一个排口的具体情况。最好是一个排口一张PPT。

二、使用vba

不用会编程，问chatgpt就好了。

以下是我的问题：

excel表格有多行多列，其中第一列大纲级别为1，第二列及其后列大纲级别为2，请将其转为word大纲模式

以下是代码

Sub ExportToWordOutline()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdRange As Object
    Dim rng As Range
    Dim i As Long, j As Long
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    
    ' 创建新的Word文档
    Set wdDoc = wdApp.Documents.Add
    
    ' 获取Excel中的数据范围
    Set rng = ThisWorkbook.Sheets("Sheet1").UsedRange
    
    ' 将数据复制到Word大纲视图中
    Set wdRange = wdDoc.Range
    For i = 1 To rng.Rows.Count
        wdRange.Paragraphs.Add
        wdRange.Paragraphs.Last.Range.Text = rng.Cells(i, 1).Value
        wdRange.Paragraphs.Last.outlineLevel = 1
        
        For j = 2 To rng.Columns.Count
            wdRange.Paragraphs.Add
            wdRange.Paragraphs.Last.Range.Text = rng.Cells(i, j).Value
            wdRange.Paragraphs.Last.outlineLevel = 2
        Next j
    Next i
    
    ' 释放对象
    Set rng = Nothing
    Set wdRange = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

三、word大纲转PPT

运行后生成word大纲视图

 ppt 新建ppt - 幻灯片从大纲

得到效果如下

 四、PPT调整版式

视图-幻灯片母版

选择对应的版式就行修改。最后达到你想要的效果。