如何使用OpenXml及StreamReader/StreamWriter编辑PPT幻灯片XML流？

嘿，既然你已经熟练搞定Word的XML流操作了，那转去PPT其实逻辑相通，只是对象模型的层级和类型不一样而已。我给你拆解具体步骤，再附VB.NET的示例代码，和你之前的Word操作风格对齐！

PPT的OpenXml结构层级和Word略有不同：
PresentationDocument（整个PPT包）→ PresentationPart（主内容部分）→ SlideIdList（幻灯片ID列表）→ 单个SlideId → 对应的SlidePart（单张幻灯片的内容容器）→ Slide（幻灯片的XML内容对象）

你可以选择两种方式编辑：类型安全的OpenXml元素操作（推荐，不容易破坏文档结构），或者直接读写XML流（和你操作Word的方式一致）。

先确保导入必要的命名空间（你已经导入了，这里再列一遍方便对照）：

Imports System.IO
Imports DocumentFormat.OpenXml
Imports DocumentFormat.OpenXml.Packaging
Imports DocumentFormat.OpenXml.Presentation

然后是具体实现：

Dim pptFilePath As String = "你的PPT文件路径.pptx"

' 打开PPT文档，可写模式（和Word的Open方法逻辑一致）
Using pptDoc As PresentationDocument = PresentationDocument.Open(pptFilePath, True)
    ' 获取PPT的主内容部分PresentationPart
    Dim presentationPart As PresentationPart = pptDoc.PresentationPart
    If presentationPart Is Nothing Then
        Throw New InvalidOperationException("无效的PPT文档，缺少核心内容部分")
    End If

    ' 找到第一张幻灯片的SlideId（如果要操作所有幻灯片，遍历SlideIdList即可）
    Dim targetSlideId As SlideId = presentationPart.Presentation.SlideIdList.FirstOrDefault()
    If targetSlideId Is Nothing Then
        Throw New InvalidOperationException("PPT中没有任何幻灯片")
    End If

    ' 通过SlideId的关联ID获取对应的SlidePart
    Dim slidePart As SlidePart = CType(presentationPart.GetPartById(targetSlideId.RelationshipId), SlidePart)
    If slidePart Is Nothing Then
        Throw New InvalidOperationException("无法找到目标幻灯片的内容容器")
    End If

    ' --------------------------
    ' 方式1：类型安全的OpenXml元素操作（推荐）
    ' --------------------------
    Dim slide As Slide = slidePart.Slide
    ' 示例：修改幻灯片标题（假设标题占位符存在，名称包含"标题"）
    Dim titleShape As Shape = slide.Descendants(Of Shape)().FirstOrDefault(Function(s) 
        s.NonVisualShapeProperties.NonVisualDrawingProperties.Name.Value.Contains("标题")
    End Function)
    If titleShape IsNot Nothing Then
        Dim textBody As TextBody = titleShape.TextBody
        Dim titleParagraph As Paragraph = textBody.Descendants(Of Paragraph)().FirstOrDefault()
        If titleParagraph IsNot Nothing Then
            Dim titleRun As Run = titleParagraph.Descendants(Of Run)().FirstOrDefault()
            If titleRun IsNot Nothing Then
                titleRun.Text.Text = "修改后的新幻灯片标题"
            End If
        End If
    End If

    ' --------------------------
    ' 方式2：直接读写XML流（和你操作Word的方式完全对齐）
    ' --------------------------
    ' 读取幻灯片的原始XML内容
    Dim slideXmlContent As String = ""
    Using reader As New StreamReader(slidePart.GetStream())
        slideXmlContent = reader.ReadToEnd()
    End Using

    ' 在这里修改XML内容（注意：必须符合PPT的OpenXml Schema，否则会导致文档损坏）
    ' 示例：替换文本
    slideXmlContent = slideXmlContent.Replace("原始文本内容", "替换后的新文本")

    ' 将修改后的XML写回SlidePart
    Using writer As New StreamWriter(slidePart.GetStream(FileMode.Create))
        writer.Write(slideXmlContent)
    End Using

    ' 保存Presentation的修改
    presentationPart.Presentation.Save()
End Using

• 如果要操作所有幻灯片，只需要遍历presentationPart.Presentation.SlideIdList中的每个SlideId，重复上述获取SlidePart和编辑的步骤即可。
• 直接修改XML流时，一定要确保修改后的内容符合PPT的OpenXml规范，否则可能导致PPT无法打开。优先推荐使用类型安全的元素操作。
• 幻灯片中的文本是嵌套在Shape→TextBody→Paragraph→Run→Text层级中的，和Word的文本结构类似，但容器对象不同。

内容的提问来源于stack exchange，提问作者Andrew Siddel