PowerPoint幻灯片切换时自动打开对应Word文档的VBA技术问询

针对你的场景——笔记本运行Presenter模式、投影仪展示歌词、副显示器显示带和弦的Word文档，同时解决之前Word后台进程堆积（无可见窗口但任务管理器有多个winword.exe）的问题，我优化了你的VBA代码，确保切换幻灯片时自动关闭所有已打开的Word文档（保留Word程序在指定显示器位置），并精准打开当前幻灯片对应的Word文档：

Public Sub OnSlideShowPageChange()
    ' 启用错误处理，避免切换时崩溃
    On Error GoTo Cleanup
    
    Dim currentSlidePos As Integer
    currentSlidePos = ActivePresentation.SlideShowWindow.View.CurrentShowPosition
    
    ' 获取当前幻灯片中Word文档路径的文本框内容
    Dim wordDocPath As String
    On Error Resume Next
    wordDocPath = ActivePresentation.Slides(currentSlidePos).Shapes("WordLoc").TextFrame.TextRange.Text
    On Error GoTo Cleanup
    
    ' 如果路径为空，直接退出
    If Trim(wordDocPath) = "" Then Exit Sub
    
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    
    ' 尝试获取已运行的Word实例，避免创建新进程
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    On Error GoTo Cleanup
    
    ' 如果没有运行的Word实例，创建新实例
    If wdApp Is Nothing Then
        Set wdApp = CreateObject("Word.Application")
        ' 初始设置Word可见，防止后台无窗口进程
        wdApp.Visible = True
    End If
    
    ' 关闭所有已打开的Word文档（不保存，保留Word程序）
    wdApp.Documents.Close SaveChanges:=wdDoNotSaveChanges
    
    ' 打开对应路径的Word文档，设为只读避免锁定
    Set wdDoc = wdApp.Documents.Open(FileName:=wordDocPath, ReadOnly:=True)
    
    ' 确保Word窗口可见并激活，聚焦到副显示器（需提前手动设置好位置）
    wdApp.Visible = True
    wdDoc.Activate
    
Cleanup:
    ' 清理对象，避免内存泄漏
    Set wdDoc = Nothing
    Set wdApp = Nothing
    On Error GoTo 0
End Sub

关键改进说明 #

• 修复语法错误：移除了原代码中多余的End If，避免编译失败
• 避免后台进程残留：通过GetObject优先获取已存在的Word实例，而非重复创建新进程；同时强制设置wdApp.Visible = True，防止Word在后台无窗口运行
• 稳定的错误处理：添加了统一的错误捕获标签Cleanup，确保幻灯片切换时不会因路径错误或Word异常导致PPT崩溃
• 精准的文档关联：通过幻灯片中命名为WordLoc的文本框存储Word文档的完整路径，确保切换时能准确找到对应文件
• 保留程序位置：仅关闭Word文档，不退出Word程序，这样你提前在副显示器调整好的Word窗口位置会被保留

使用前的准备 #

1. 在每个需要关联Word文档的PPT幻灯片中，添加一个文本框，右键重命名为WordLoc
2. 在WordLoc文本框中填入对应和弦歌词Word文档的完整绝对路径（比如D:\Lyrics\MySong.docx）
3. 提前打开Word程序，将窗口拖到你指定的副显示器上，调整好大小——之后代码会保留这个位置，仅切换文档

内容的提问来源于stack exchange，提问作者Lynn Breaux