摘要

 1.上篇文章分享了使用Deepseeki对话生成VBA脚本,在WPS上实现了PPT内容生成和格式美化。详见：使用DeepSeek自动制作PPT-CSDN博客

2.Kimi和Deepseek都无法直接生成PPT文件。可以通过生成VBA/JavaScript/Python脚本的方式半自动生成。WPS对Kimi生成的VBA和JavaScript脚本存在兼容性问题。

3.本文通过Kimi对话生成Python脚本的方式实现了PPT内容生成和格式美化。

一、工具

1.1 Kimi  Kimi.ai - 会推理解析，能深度思考的AI助手

问：你是谁？

Kimi：我是Kimi，一个由Moonshot AI开发的人工智能助手。我擅长中文和英文对话，可以帮助你解答问题、处理文件、搜索信息，还能陪你聊天。如果你有任何需要，随时告诉我哦！

1.2 Pycharm 社区版

PyCharm是一种Python IDE（Integrated Development Environment，集成开发环境），带有一整套可以帮助用户在使用Python语言开发时提高其效率的工具。

二、Kimi对话生成脚本

提示语：生成一个关于黄纬禄生平介绍的PPT,页数五页

Kimi:

以下是关于黄纬禄生平介绍的PPT内容安排，共5页：

### 幻灯片1：封面
- **标题**：黄纬禄：用一生铸就“导弹人生”
- **副标题**：中国航天事业的奠基人之一
- **背景图片**：黄纬禄的照片或导弹发射的照片
- **页脚**：姓名、日期

---

### 幻灯片2：生平简介
- **标题**：生平简介
- **内容**：
  - **出生与求学**：1916年12月18日出生于安徽芜湖。1936年考入国立中央大学电机系，1940年毕业并获学士学位。
  - **留学经历**：1943年赴英国实习，1945年进入伦敦大学帝国学院攻读无线电专业，获硕士学位。
  - **回国报效**：1947年回国，投身国防科技。1957年加入国防部五院，开启导弹研制生涯。
- **背景图片**：年轻时的黄纬禄照片或中央大学、伦敦大学的校园图

---

### 幻灯片3：主要贡献
- **标题**：主要贡献
- **内容**：
  - **液体导弹控制系统**：20世纪50年代末，主持突破液体战略导弹控制系统仿制和改型设计，解决液体晃动、弹性弹体稳定等关键技术。
  - **固体导弹开创者**：20世纪70年代，领导研制中国第一枚固体潜地战略导弹“巨浪一号”，提出“一弹两用”设想，成功研制陆基机动固体战略导弹。
  - **重大奖项**：因固体导弹研制获国家科技进步奖特等奖。
- **背景图片**：导弹发射照片或导弹模型图

---

### 幻灯片4：科研精神与事迹
- **标题**：科研精神与事迹
- **内容**：
  - **“导弹医生”**：以独特方法解决技术难题，被技术人员称为“导弹医生”。
  - **“剜肉补弹”**：66岁时，为完成新型潜地导弹发射任务，忍受病痛折磨，体重骤减。
  - **“四共同”原则**：提出“有问题共同商量，有困难共同克服，有余量共同掌握，有风险共同承担”，成为航天科研战线的“金科玉律”。
- **背景图片**：黄纬禄在工作中的照片或导弹试验场景

---

### 幻灯片5：总结与评价
- **标题**：总结与评价
- **内容**：
  - **航天事业奠基人**：黄纬禄是中国导弹与航天事业的奠基人之一，被誉为“巨浪之父”“东风-21之父”。
  - **爱国奉献精神**：他一生践行科学救国、工业救国的信念，将个人命运与国家命运紧密相连。
  - **精神传承**：他的爱国、创新、协同、奉献精神，激励着一代又一代航天人。
- **背景图片**：黄纬禄的纪念雕像或航天事业相关图片

---

以上内容可根据实际需求调整文字和图片，确保PPT简洁明了、重点突出。

Kimi根据提示语，轻松完美地生成了PPT大纲及内容。能否直接整成PPT文件？

提示语：

生成PPT文件

Kimi：

很抱歉，我目前无法直接生成PPT文件。不过，如果你需要创建PPT，我可以为你提供一个详细的PPT大纲，你可以根据这个大纲在WPS演示或Microsoft PowerPoint中手动创建幻灯片。以下是关于黄纬禄生平介绍的PPT大纲：

---

### PPT大纲：黄纬禄生平介绍

#### 幻灯片1：封面……

#### 幻灯片2：生平简介……

#### 幻灯片3：主要贡献……

#### 幻灯片4：科研精神与事迹……

#### 幻灯片5：总结与评价……

不能直接生成PPT文件。还是继续让Kimi提出美化建议并生成VBA脚本。 

2.1 生成VBA脚本

提示语 ：生成适用于WPS的VBA脚本

Kimi：

好的！为了使VBA脚本更适用于WPS Office，并且生成的PPT更加美观，我将对脚本进行以下优化：

1. **调整布局和设计**：使用更美观的布局和模板。
2. **添加图片**：为每一页添加背景图片或相关图片。
3. **格式化文本**：设置字体、字号和颜色，使内容更易读。
4. **确保兼容性**：确保脚本在WPS Office中能够正常运行。

以下是修改后的VBA脚本：

---

Sub CreateHuangWeiluPresentation()
    Dim pptApp As Object
    Dim pptPres As Object
    Dim pptSlide As Object
    Dim slideIndex As Integer
    
    ' 尝试启动WPS演示，如果未打开则创建新实例
    On Error Resume Next
    Set pptApp = GetObject(, "KWPS.Application")
    If pptApp Is Nothing Then
        Set pptApp = CreateObject("KWPS.Application")
    End If
    On Error GoTo 0
    
    ' 创建新演示文稿
    Set pptPres = pptApp.Presentations.Add
    pptApp.Visible = True
    
    ' 设置演示文稿的整体设计（可选）
    pptPres.Designs("Office").Apply
    
    ' 第1页：封面
    Set pptSlide = pptPres.Slides.Add(1, ppLayoutTitle)
    With pptSlide
        .Shapes.Title.TextFrame.TextRange.Text = "黄纬禄：用一生铸就“导弹人生”"
        .Shapes.Placeholders(2).TextFrame.TextRange.Text = "中国航天事业的奠基人之一"
        .Shapes.Placeholders(2).TextFrame.TextRange.Paragraphs.ParagraphFormat.LineSpacingRule = ppLineSpaceSingle
        ' 设置字体和颜色
        .Shapes.Title.TextFrame.TextRange.Font.Name = "微软雅黑"
        .Shapes.Title.TextFrame.TextRange.Font.Size = 32
        .Shapes.Placeholders(2).TextFrame.TextRange.Font.Name = "微软雅黑"
        .Shapes.Placeholders(2).TextFrame.TextRange.Font.Size = 24
        .Shapes.Placeholders(2).TextFrame.TextRange.Font.Color = RGB(255, 255, 255)
        ' 添加背景图片
        .Shapes.AddPicture "C:\path\to\background.jpg", msoFalse, msoTrue, 0, 0, pptPres.PageSetup.SlideWidth, pptPres.PageSetup.SlideHeight
    End With
    
    ' 第2页：生平简介
    Set pptSlide = pptPres.Slides.Add(2, ppLayoutText)
    With pptSlide
        .Shapes.Title.TextFrame.TextRange.Text = "生平简介"
        .Shapes.Placeholders(2).TextFrame.TextRange.Text = _
            "出生与求学：1916年12月18日出生于安徽芜湖。1936年考入国立中央大学电机系，1940年毕业并获学士学位。" & vbCrLf & _
            "留学经历：1943年赴英国实习，1945年进入伦敦大学帝国学院攻读无线电专业，获硕士学位。" & vbCrLf & _
            "回国报效：1947年回国，投身国防科技。1957年加入国防部五院，开启导弹研制生涯。"
        ' 设置字体和颜色
        .Shapes.Title.TextFrame.TextRange.Font.Name = "微软雅黑"
        .Shapes.Title.TextFrame.TextRange.Font.Size = 28
        .Shapes.Placeholders(2).TextFrame.TextRange.Font.Name = "微软雅黑"
        .Shapes.Placeholders(2).TextFrame.TextRange.Font.Size = 18
        .Shapes.Placeholders(2).TextFrame.TextRange.Font.Color = RGB(0, 0, 0)
        ' 添加背景图片
        .Shapes.AddPicture "C:\path\to\background.jpg", msoFalse, msoTrue, 0, 0, pptPres.PageSetup.SlideWidth, pptPres.PageSetup.SlideHeight
    End With
    
    ' 第3页：主要贡献
    Set pptSlide = pptPres.Slides.Add(3, ppLayoutText)
    With pptSlide
        .Shapes.Title.TextFrame.TextRange.Text = "主要贡献"
        .Shapes.Placeholders(2).TextFrame.TextRange.Text = _
            "液体导弹控制系统：20世纪50年代末，主持突破液体战略导弹控制系统仿制和改型设计，解决液体晃动、弹性弹体稳定等关键技术。" & vbCrLf & _
            "固体导弹开创者：20世纪70年代，领导研制中国第一枚固体潜地战略导弹“巨浪一号”，提出“一弹两用”设想，成功研制陆基机动固体战略导弹。" & vbCrLf & _
            "重大奖项：因固体导弹研制获国家科技进步奖特等奖。"
        ' 设置字体和颜色
        .Shapes.Title.TextFrame.TextRange.Font.Name = "微软雅黑"
        .Shapes.Title.TextFrame.TextRange.Font.Size = 28
        .Shapes.Placeholders(2).TextFrame.TextRange.Font.Name = "微软雅黑"
        .Shapes.Placeholders(2).TextFrame.TextRange.Font.Size = 18
        .Shapes.Placeholders(2).TextFrame.TextRange.Font.Color = RGB(0, 0, 0)
        ' 添加背景图片
        .Shapes.AddPicture "C:\path\to\background.jpg", msoFalse, msoTrue, 0, 0, pptPres.PageSetup.SlideWidth, pptPres.PageSetup.SlideHeight
    End With
    
    ' 第4页：科研精神与事迹
    Set pptSlide = pptPres.Slides.Add(4, ppLayoutText)
    With pptSlide
        .Shapes.Title.TextFrame.TextRange.Text = "科研精神与事迹"
        .Shapes.Placeholders(2).TextFrame.TextRange.Text = _
            "导弹医生：以独特方法解决技术难题，被技术人员称为“导弹医生”。“剜肉补弹”：66岁时，为完成新型潜地导弹发射任务，忍受病痛折磨，体重骤减。" & vbCrLf & _
            "四共同原则：提出“有问题共同商量，有困难共同克服，有余量共同掌握，有风险共同承担”，成为航天科研战线的“金科玉律”。"
        ' 设置字体和颜色
        .Shapes.Title.TextFrame.TextRange.Font.Name = "微软雅黑"
        .Shapes.Title.TextFrame.TextRange.Font.Size = 28
        .Shapes.Placeholders(2).TextFrame.TextRange.Font.Name = "微软雅黑"
        .Shapes.Placeholders(2).TextFrame.TextRange.Font.Size = 18
        .Shapes.Placeholders(2).TextFrame.TextRange.Font.Color = RGB(0, 0, 0)
        ' 添加背景图片
        .Shapes.AddPicture "C:\path\to\background.jpg", msoFalse, msoTrue, 0, 0, pptPres.PageSetup.SlideWidth, pptPres.PageSetup.SlideHeight
    End With
    
    ' 第5页：总结与评价
    Set pptSlide = pptPres.Slides.Add(5, ppLayoutText)
    With pptSlide
        .Shapes.Title.TextFrame.TextRange.Text = "总结与评价"
        .Shapes.Placeholders(2).TextFrame.TextRange.Text = _
            "航天事业奠基人：黄纬禄是中国导弹与航天事业的奠基人之一，被誉为“巨浪之父”“东风-21之父”。“爱国奉献精神：他一生践行科学救国、工业救国的信念，将个人命运与国家命运紧密相连。”" & vbCrLf & _
            "精神传承：他的爱国、创新、协同、奉献精神，激励着一代又一代航天人。"
        ' 设置字体和颜色
        .Shapes.Title.TextFrame.TextRange.Font.Name = "微软雅黑"
        .Shapes.Title.TextFrame.TextRange.Font.Size = 28
        .Shapes.Placeholders(2).TextFrame.TextRange.Font.Name = "微软雅黑"
        .Shapes.Placeholders(2).TextFrame.TextRange.Font.Size = 18
        .Shapes.Placeholders(2).TextFrame.TextRange.Font.Color = RGB(0, 0, 0)
        ' 添加背景图片
        .Shapes.AddPicture "C:\path\to\background.jpg", msoFalse, msoTrue, 0, 0, pptPres.PageSetup.SlideWidth, pptPres.PageSetup.SlideHeight
    End With
    
    MsgBox "PPT已成功创建！", vbInformation
End Sub

### 修改说明
1. **WPS兼容性**：将 `PowerPoint.Application` 替换为 `KWPS.Application`，以确保在WPS Office中运行。
2. **美化设计**：
   - 添加了背景图片（请将 `"C:\path\to\background.jpg"` 替换为实际图片路径）。
   - 设置了字体、字号和颜色，使内容更美观。
3. **布局优化**：使用了更合适的布局模板。

### 使用方法
1. 打开WPS表格，按下 `Alt + F11` 打开VBA编辑器。
2. 在VBA编辑器中，点击 `插入` -> `模块

 脚本在WPS执行中频繁报错，将错误多次反馈给Kimi后,Kimi给出一下分析和建议： 

提示语：

Set pptPres = pptApp.Presentations.Add此行代码报错:对象不支持这个属性或方法（错误 438）

Set pptPres = pptApp.Presentations.Add(msoTrue) ' 此行代码报错:对象不支持这个属性或方法（错误 438）

Kimi： 

根据最新的搜索结果，WPS Office在VBA支持方面存在一些限制和兼容性问题，尤其是在PowerPoint对象模型的调用上。以下是针对问题的分析和解决方案：

### 问题分析
1. **WPS Office不完全支持VBA**：
   - WPS Office虽然支持VBA，但其兼容性并不完美，尤其是在PowerPoint对象模型方面。
   - 某些VBA方法和属性可能在WPS中不可用，例如 `Presentations.Add`。

2. **沙箱保护功能限制**：
   - WPS Office的沙箱保护功能可能会限制VBA代码的执行权限，尤其是涉及文件操作或外部调用的部分。

3. **版本限制**：
   - WPS的某些版本（如个人版）默认不支持VBA宏功能，需要升级到商业版。

### 解决方案
1. **关闭沙箱保护功能**：
   - 打开WPS Office，点击左上角的“文档”按钮，然后点击右上角的“≡”全局设置按钮。
   - 在设置中心里关闭“沙箱保护”功能，然后重启WPS。

2. **检查WPS版本**：
   - 确保你使用的是支持VBA功能的WPS版本（如商业版或政府采购版）。个人版可能需要升级。

3. **调整代码以适应WPS**：
   - 由于WPS的VBA支持并不完全兼容Microsoft Office，某些方法可能需要替换或简化。例如，`Presentations.Add`方法可能不被支持。

### 替代方案
如果WPS Office无法满足需求，可以考虑以下替代方案：
1. **使用Microsoft Office**：
   - 如果需要完整的VBA支持，建议使用Microsoft Office，尤其是对于复杂的PowerPoint自动化任务。

2. **使用WPS Script**：
   - WPS提供了自己的宏语言WPS Script，可以实现类似VBA的自动化功能。

### 总结
由于WPS Office在VBA支持方面存在限制，特别是PowerPoint对象模型的兼容性问题，建议关闭沙箱保护功能并检查WPS版本。如果问题仍然无法解决，可以考虑使用Microsoft Office或WPS Script作为替代方案。

2.2 生成 WPS Script

提示语：

转为WPS Script

Kimi：

 根据搜索结果，WPS Office虽然不直接支持VBA编程，但提供了类似的功能，例如WPS Script（基于JavaScript的脚本语言）。以下是将之前VBA代码转换为WPS Script的实现方法，用于创建一个PPT并填充内容。

### WPS Script代码示例
以下是一个基于WPS Script的JavaScript代码，用于创建一个包含5页的PPT，内容与之前VBA代码类似：

```javascript
// 创建一个新的PPT演示文稿
let pptApp = wps.Application;
let pptPres = pptApp.CreatePresentation();

// 第1页：封面
let slide1 = pptPres.Slides.Add(1, wps.PpLayoutTitle);
slide1.Shapes.Title.TextFrame.TextRange.Text = "黄纬禄：用一生铸就“导弹人生”";
slide1.Shapes.Placeholders(2).TextFrame.TextRange.Text = "中国航天事业的奠基人之一";

// 第2页：生平简介
let slide2 = pptPres.Slides.Add(2, wps.PpLayoutText);
slide2.Shapes.Title.TextFrame.TextRange.Text = "生平简介";
slide2.Shapes.Placeholders(2).TextFrame.TextRange.Text = 
    "出生与求学：1916年12月18日出生于安徽芜湖。1936年考入国立中央大学电机系，1940年毕业并获学士学位。\n" +
    "留学经历：1943年赴英国实习，1945年进入伦敦大学帝国学院攻读无线电专业，获硕士学位。\n" +
    "回国报效：1947年回国，投身国防科技。1957年加入国防部五院，开启导弹研制生涯。";

// 第3页：主要贡献
let slide3 = pptPres.Slides.Add(3, wps.PpLayoutText);
slide3.Shapes.Title.TextFrame.TextRange.Text = "主要贡献";
slide3.Shapes.Placeholders(2).TextFrame.TextRange.Text = 
    "液体导弹控制系统：20世纪50年代末，主持突破液体战略导弹控制系统仿制和改型设计，解决液体晃动、弹性弹体稳定等关键技术。\n" +
    "固体导弹开创者：20世纪70年代，领导研制中国第一枚固体潜地战略导弹“巨浪一号”，提出“一弹两用”设想，成功研制陆基机动固体战略导弹。\n" +
    "重大奖项：因固体导弹研制获国家科技进步奖特等奖。";

// 第4页：科研精神与事迹
let slide4 = pptPres.Slides.Add(4, wps.PpLayoutText);
slide4.Shapes.Title.TextFrame.TextRange.Text = "科研精神与事迹";
slide4.Shapes.Placeholders(2).TextFrame.TextRange.Text = 
    "导弹医生：以独特方法解决技术难题，被技术人员称为“导弹医生”。“剜肉补弹”：66岁时，为完成新型潜地导弹发射任务，忍受病痛折磨，体重骤减。\n" +
    "四共同原则：提出“有问题共同商量，有困难共同克服，有余量共同掌握，有风险共同承担”，成为航天科研战线的“金科玉律”。";

// 第5页：总结与评价
let slide5 = pptPres.Slides.Add(5, wps.PpLayoutText);
slide5.Shapes.Title.TextFrame.TextRange.Text = "总结与评价";
slide5.Shapes.Placeholders(2).TextFrame.TextRange.Text = 
    "航天事业奠基人：黄纬禄是中国导弹与航天事业的奠基人之一，被誉为“巨浪之父”“东风-21之父”。“爱国奉献精神：他一生践行科学救国、工业救国的信念，将个人命运与国家命运紧密相连。”\n" +
    "精神传承：他的爱国、创新、协同、奉献精神，激励着一代又一代航天人。";

// 提示用户PPT已创建
wps.Application.MessageBox("PPT已成功创建！", "提示", wps.MB_OK);
```

### 使用方法
1. 打开WPS演示。
2. 点击“开发工具”选项卡，选择“新建脚本”。
3. 将上述代码粘贴到脚本编辑器中。
4. 点击“运行”按钮执行脚本。

### 注意事项
- WPS Script基于JavaScript语法，与VBA有较大差异，但功能类似。
- 如果你对JavaScript不熟悉，可以参考WPS Script的官方文档或教程。
- 确保你的WPS版本支持脚本功能，部分个人版可能需要升级。

通过这种方式，你可以在WPS Office中实现类似VBA的自动化功能。

 在WPS中执行报错：wps is not defined。

对此，Kimi这么说：

很抱歉，之前提供的脚本代码存在误导性。根据最新的信息，WPS Office的JavaScript API（WPS Script）并不直接支持PowerPoint操作，而是主要用于Excel和Word的自动化任务。目前WPS Office的JavaScript API（WPS Script）并不支持创建或编辑PPT文件。

因此，如果你需要在WPS Office中生成PPT，目前没有直接的JavaScript API可以使用。不过，你可以考虑以下替代方案：

替代方案 1：手动创建PPT

根据之前提供的PPT大纲，手动在WPS演示中创建幻灯片。虽然这种方法需要手动操作，但可以确保内容的准确性和设计的灵活性。

替代方案 2：使用Python或其他编程语言

如果你熟悉Python，可以使用python-pptx库来生成PPT文件。以下是一个简单的Python脚本示例，用于生成关于黄纬禄生平介绍的PPT：

  2.3 生成python脚本

Kimi给出了Python脚本：

很抱歉，之前提供的脚本代码存在误导性。根据最新的信息，WPS Office的JavaScript API（WPS Script）并不直接支持PowerPoint操作，而是主要用于Excel和Word的自动化任务。目前WPS Office的JavaScript API（WPS Script）并不支持创建或编辑PPT文件。

因此，如果你需要在WPS Office中生成PPT，目前没有直接的JavaScript API可以使用。不过，你可以考虑以下替代方案：

### 替代方案 1：手动创建PPT
根据之前提供的PPT大纲，手动在WPS演示中创建幻灯片。虽然这种方法需要手动操作，但可以确保内容的准确性和设计的灵活性。

### 替代方案 2：使用Python或其他编程语言
如果你熟悉Python，可以使用`python-pptx`库来生成PPT文件。以下是一个简单的Python脚本示例，用于生成关于黄纬禄生平介绍的PPT：

#### Python脚本示例
```python
from pptx import Presentation
from pptx.util import Pt
from pptx.enum.text import PP_ALIGN

# 创建一个新的PPT演示文稿
ppt = Presentation()

# 幻灯片1：封面
slide1 = ppt.slides.add_slide(ppt.slide_layouts[5])  # 标题幻灯片
title = slide1.shapes.title
subtitle = slide1.placeholders[1]
title.text = "黄纬禄：用一生铸就“导弹人生”"
subtitle.text = "中国航天事业的奠基人之一"

# 幻灯片2：生平简介
slide2 = ppt.slides.add_slide(ppt.slide_layouts[1])  # 标题和内容
title = slide2.shapes.title
content = slide2.placeholders[1]
title.text = "生平简介"
content.text = (
    "出生与求学：1916年12月18日出生于安徽芜湖。1936年考入国立中央大学电机系，1940年毕业并获学士学位。\n"
    "留学经历：1943年赴英国实习，1945年进入伦敦大学帝国学院攻读无线电专业，获硕士学位。\n"
    "回国报效：1947年回国，投身国防科技。1957年加入国防部五院，开启导弹研制生涯。"
)

# 幻灯片3：主要贡献
slide3 = ppt.slides.add_slide(ppt.slide_layouts[1])
title = slide3.shapes.title
content = slide3.placeholders[1]
title.text = "主要贡献"
content.text = (
    "液体导弹控制系统：20世纪50年代末，主持突破液体战略导弹控制系统仿制和改型设计，解决液体晃动、弹性弹体稳定等关键技术。\n"
    "固体导弹开创者：20世纪70年代，领导研制中国第一枚固体潜地战略导弹“巨浪一号”，提出“一弹两用”设想，成功研制陆基机动固体战略导弹。\n"
    "重大奖项：因固体导弹研制获国家科技进步奖特等奖。"
)

# 幻灯片4：科研精神与事迹
slide4 = ppt.slides.add_slide(ppt.slide_layouts[1])
title = slide4.shapes.title
content = slide4.placeholders[1]
title.text = "科研精神与事迹"
content.text = (
    "导弹医生：以独特方法解决技术难题，被技术人员称为“导弹医生”。\n"
    "剜肉补弹：66岁时，为完成新型潜地导弹发射任务，忍受病痛折磨，体重骤减。\n"
    "四共同原则：提出“有问题共同商量，有困难共同克服，有余量共同掌握，有风险共同承担”，成为航天科研战线的“金科玉律”。"
)

# 幻灯片5：总结与评价
slide5 = ppt.slides.add_slide(ppt.slide_layouts[1])
title = slide5.shapes.title
content = slide5.placeholders[1]
title.text = "总结与评价"
content.text = (
    "航天事业奠基人：黄纬禄是中国导弹与航天事业的奠基人之一，被誉为“巨浪之父”“东风-21之父”。\n"
    "爱国奉献精神：他一生践行科学救国、工业救国的信念，将个人命运与国家命运紧密相连。\n"
    "精神传承：他的爱国、创新、协同、奉献精神，激励着一代又一代航天人。"
)

# 保存PPT文件
ppt.save("黄纬禄生平介绍.pptx")
print("PPT已成功生成！")
```

### 使用方法
1. 安装`python-pptx`库：
   ```bash
   pip install python-pptx
   ```
2. 将上述代码保存为`.py`文件，例如`generate_ppt.py`。
3. 运行脚本：
   ```bash
   python generate_ppt.py
   ```
4. 生成的PPT文件将保存为`黄纬禄生平介绍.pptx`。

### 替代方案 3：使用Microsoft PowerPoint
如果你需要更复杂的自动化功能，建议使用Microsoft PowerPoint的VBA或Python库（如`python-pptx`）。Microsoft PowerPoint的自动化功能更为强大，且支持VBA和Python等多种编程语言。

希望这些替代方案能帮助你解决问题！

 python脚本放到pycharm中执行。报错：

KeyError: 'no placeholder on this slide with idx == 1' 

根据搜索结果，`python-pptx`中出现`KeyError: 'no placeholder on this slide with idx == 1'`的错误，是因为某些幻灯片布局中可能不存在索引为1的占位符。为了解决这个问题，我们需要检查每个幻灯片布局中实际存在的占位符，并正确地引用它们。

以下是修正后的代码，确保在添加内容时正确地访问幻灯片的占位符：

```python
from pptx import Presentation
from pptx.util import Pt

# 创建一个新的PPT演示文稿
ppt = Presentation()

# 幻灯片1：封面
slide1 = ppt.slides.add_slide(ppt.slide_layouts[5])  # 选择标题幻灯片布局
title = slide1.shapes.title
subtitle = slide1.placeholders[1] if len(slide1.placeholders) > 1 else None
title.text = "黄纬禄：用一生铸就‘导弹人生’"
if subtitle:
    subtitle.text = "中国航天事业的奠基人之一"

# 幻灯片2：生平简介
slide2 = ppt.slides.add_slide(ppt.slide_layouts[1])  # 选择标题和内容布局
title = slide2.shapes.title
content = slide2.placeholders[1] if len(slide2.placeholders) > 1 else None
title.text = "生平简介"
if content:
    content.text = (
        "出生与求学：1916年12月18日出生于安徽芜湖。1936年考入国立中央大学电机系，1940年毕业并获学士学位。\n"
        "留学经历：1943年赴英国实习，1945年进入伦敦大学帝国学院攻读无线电专业，获硕士学位。\n"
        "回国报效：1947年回国，投身国防科技。1957年加入国防部五院，开启导弹研制生涯。"
    )

# 幻灯片3：主要贡献
slide3 = ppt.slides.add_slide(ppt.slide_layouts[1])
title = slide3.shapes.title
content = slide3.placeholders[1] if len(slide3.placeholders) > 1 else None
title.text = "主要贡献"
if content:
    content.text = (
        "液体导弹控制系统：20世纪50年代末，主持突破液体战略导弹控制系统仿制和改型设计，解决液体晃动、弹性弹体稳定等关键技术。\n"
        "固体导弹开创者：20世纪70年代，领导研制中国第一枚固体潜地战略导弹“巨浪一号”，提出“一弹两用”设想，成功研制陆基机动固体战略导弹。\n"
        "重大奖项：因固体导弹研制获国家科技进步奖特等奖。"
    )

# 幻灯片4：科研精神与事迹
slide4 = ppt.slides.add_slide(ppt.slide_layouts[1])
title = slide4.shapes.title
content = slide4.placeholders[1] if len(slide4.placeholders) > 1 else None
title.text = "科研精神与事迹"
if content:
    content.text = (
        "导弹医生：以独特方法解决技术难题，被技术人员称为“导弹医生”。\n"
        "剜肉补弹：66岁时，为完成新型潜地导弹发射任务，忍受病痛折磨，体重骤减。\n"
        "四共同原则：提出“有问题共同商量，有困难共同克服，有余量共同掌握，有风险共同承担”，成为航天科研战线的“金科玉律”。"
    )

# 幻灯片5：总结与评价
slide5 = ppt.slides.add_slide(ppt.slide_layouts[1])
title = slide5.shapes.title
content = slide5.placeholders[1] if len(slide5.placeholders) > 1 else None
title.text = "总结与评价"
if content:
    content.text = (
        "航天事业奠基人：黄纬禄是中国导弹与航天事业的奠基人之一，被誉为“巨浪之父”“东风-21之父”。\n"
        "爱国奉献精神：他一生践行科学救国、工业救国的信念，将个人命运与国家命运紧密相连。\n"
        "精神传承：他的爱国、创新、协同、奉献精神，激励着一代又一代航天人。"
    )

# 保存PPT文件
ppt.save("黄纬禄生平介绍.pptx")
print("PPT已成功生成！")
```

### 关键修正点：
1. 在引用占位符时，通过`len(slide.placeholders)`检查是否存在索引为1的占位符。
2. 如果某个幻灯片布局中不存在索引为1的占位符，则跳过对该占位符的操作。

运行上述代码后，将生成一个包含5页的PPT文件，内容与之前的设计一致。

生成成功。再美化一下。

好的！为了生成一个更美观的PPT，我们可以使用 `python-pptx` 库来添加格式化文本、图片和设计元素。以下是一个美化后的脚本，包含以下改进：

1. **设置字体和段落格式**。
2. **添加背景图片**。
3. **调整文本框样式**。
4. **统一设计风格**。

以下是美化后的Python脚本：

from pptx import Presentation
from pptx.util import Pt, Inches
from pptx.enum.text import PP_ALIGN
from pptx.enum.shapes import MSO_SHAPE
from pptx.enum.dml import MSO_THEME_COLOR

# 创建一个新的PPT演示文稿
ppt = Presentation()

# 添加背景图片并尝试模拟透明度效果
def set_background(slide, image_path):
    left = top = Inches(0)  # 从幻灯片左上角开始
    width = ppt.slide_width
    height = ppt.slide_height

    # 添加背景图片
    background = slide.shapes.add_picture(image_path, left, top, width=width, height=height)

    # 将背景图片置于底层（z-order 最低）
    slide.shapes._spTree.insert(2, background._element)

# 动态查找占位符
def get_placeholder_by_idx(slide, idx):
    for shape in slide.placeholders:
        if shape.placeholder_format.idx == idx:
            return shape
    return None

# 幻灯片1：封面
slide1 = ppt.slides.add_slide(ppt.slide_layouts[5])  # 标题幻灯片
title = slide1.shapes.title

# 动态查找副标题占位符（如果存在）
subtitle = get_placeholder_by_idx(slide1, 1)
if subtitle:
    subtitle.text = "中国航天事业的奠基人之一"
else:
    print("警告：当前幻灯片没有 idx == 1 的占位符，跳过副标题设置。")

title.text = "黄纬禄：用一生铸就‘导弹人生’"

# 设置标题和副标题样式
for paragraph in title.text_frame.paragraphs:
    for run in paragraph.runs:
        run.font.size = Pt(44)
        run.font.bold = True
        run.font.color.theme_color = MSO_THEME_COLOR.ACCENT_1

if subtitle:
    for paragraph in subtitle.text_frame.paragraphs:
        for run in paragraph.runs:
            run.font.size = Pt(32)
            run.font.italic = True
            run.font.color.theme_color = MSO_THEME_COLOR.ACCENT_2

# 设置背景图片并尝试模拟透明度效果
set_background(slide1, "D:\\Users\\yanmz\\OneDrive\\桌面\\background.jpg")

# 幻灯片2：生平简介
slide2 = ppt.slides.add_slide(ppt.slide_layouts[1])  # 标题和内容布局
title = slide2.shapes.title

# 动态查找内容占位符（如果存在）
content = get_placeholder_by_idx(slide2, 1)
if content:
    content.text = (
        "出生与求学：1916年12月18日出生于安徽芜湖。1936年考入国立中央大学电机系，1940年毕业并获学士学位。\n"
        "留学经历：1943年赴英国实习，1945年进入伦敦大学帝国学院攻读无线电专业，获硕士学位。\n"
        "回国报效：1947年回国，投身国防科技。1957年加入国防部五院，开启导弹研制生涯。"
    )
else:
    print("警告：当前幻灯片没有 idx == 1 的占位符，跳过内容设置。")

title.text = "生平简介"

# 设置内容样式
if content:
    for paragraph in content.text_frame.paragraphs:
        for run in paragraph.runs:
            run.font.size = Pt(18)
            run.font.color.theme_color = MSO_THEME_COLOR.TEXT_1

# 设置背景图片并尝试模拟透明度效果
set_background(slide2, "D:\\Users\\yanmz\\OneDrive\\桌面\\background.jpg")

# 幻灯片3：主要贡献
slide3 = ppt.slides.add_slide(ppt.slide_layouts[1])
title = slide3.shapes.title

# 动态查找内容占位符（如果存在）
content = get_placeholder_by_idx(slide3, 1)
if content:
    content.text = (
        "液体导弹控制系统：20世纪50年代末，主持突破液体战略导弹控制系统仿制和改型设计，解决液体晃动、弹性弹体稳定等关键技术。\n"
        "固体导弹开创者：20世纪70年代，领导研制中国第一枚固体潜地战略导弹“巨浪一号”，提出“一弹两用”设想，成功研制陆基机动固体战略导弹。\n"
        "重大奖项：因固体导弹研制获国家科技进步奖特等奖。"
    )
else:
    print("警告：当前幻灯片没有 idx == 1 的占位符，跳过内容设置。")

title.text = "主要贡献"

# 设置内容样式
if content:
    for paragraph in content.text_frame.paragraphs:
        for run in paragraph.runs:
            run.font.size = Pt(18)
            run.font.color.theme_color = MSO_THEME_COLOR.TEXT_1

# 设置背景图片并尝试模拟透明度效果
set_background(slide3, "D:\\Users\\yanmz\\OneDrive\\桌面\\background.jpg")

# 幻灯片4：科研精神与事迹
slide4 = ppt.slides.add_slide(ppt.slide_layouts[1])
title = slide4.shapes.title

# 动态查找内容占位符（如果存在）
content = get_placeholder_by_idx(slide4, 1)
if content:
    content.text = (
        "导弹医生：以独特方法解决技术难题，被技术人员称为“导弹医生”。\n"
        "剜肉补弹：66岁时，为完成新型潜地导弹发射任务，忍受病痛折磨，体重骤减。\n"
        "四共同原则：提出“有问题共同商量，有困难共同克服，有余量共同掌握，有风险共同承担”，成为航天科研战线的“金科玉律”。"
    )
else:
    print("警告：当前幻灯片没有 idx == 1 的占位符，跳过内容设置。")

title.text = "科研精神与事迹"

# 设置内容样式
if content:
    for paragraph in content.text_frame.paragraphs:
        for run in paragraph.runs:
            run.font.size = Pt(18)
            run.font.color.theme_color = MSO_THEME_COLOR.TEXT_1

# 设置背景图片并尝试模拟透明度效果
set_background(slide4, "D:\\Users\\yanmz\\OneDrive\\桌面\\background.jpg")

# 幻灯片5：总结与评价
slide5 = ppt.slides.add_slide(ppt.slide_layouts[1])
title = slide5.shapes.title

# 动态查找内容占位符（如果存在）
content = get_placeholder_by_idx(slide5, 1)
if content:
    content.text = (
        "航天事业奠基人：黄纬禄是中国导弹与航天事业的奠基人之一，被誉为“巨浪之父”“东风-21之父”。\n"
        "爱国奉献精神：他一生践行科学救国、工业救国的信念，将个人命运与国家命运紧密相连。\n"
        "精神传承：他的爱国、创新、协同、奉献精神，激励着一代又一代航天人。"
    )
else:
    print("警告：当前幻灯片没有 idx == 1 的占位符，跳过内容设置。")

title.text = "总结与评价"

# 设置内容样式
if content:
    for paragraph in content.text_frame.paragraphs:
        for run in paragraph.runs:
            run.font.size = Pt(18)
            run.font.color.theme_color = MSO_THEME_COLOR.TEXT_1

# 设置背景图片并尝试模拟透明度效果
set_background(slide5, "D:\\Users\\yanmz\\OneDrive\\桌面\\background.jpg")

# 保存PPT文件
ppt.save("黄纬禄生平介绍.pptx")
print("PPT已成功生成！")

### 美化点说明：
1. **背景图片**：为每一页添加了背景图片，确保路径正确（如`background.jpg`）。
2. **字体样式**：统一设置了标题和内容的字体大小、颜色和格式。
3. **段落对齐**：确保文本对齐方式一致。
4. **颜色主题**：使用了主题颜色，使整体设计更加协调。

### 使用方法：
1. 确保安装了`python-pptx`库：
   ```bash
   pip install python-pptx
   ```
2. 将上述代码保存为`.py`文件，例如`generate_ppt.py`。
3. 确保背景图片路径正确（如`background.jpg`）。
4. 运行脚本：
   ```bash
   python generate_ppt.py
   ```
5. 生成的PPT文件将保存为`黄纬禄生平介绍.pptx`。

希望这个美化后的脚本能满足你的需求！

每页PPT加上了背景图，看起来还不错。 

三、总结

 1.Kimi和Deepseek都无法直接生成PPT文件。可以通过生成VBA/JavaScript/Python脚本的方式半自动生成。WPS对Kimi生成的VBA和JavaScript脚本存在兼容性问题。

2.本文通过Kimi对话生成Python脚本的方式实现了PPT内容生成和格式美化。