PPT 自动提取非隐藏标题和页码（用来建目录居多）

etkane

ppt-开发工具-vba，复制代码，F5运行或宏运行。
运行完粘贴。

[Visual Basic] 纯文本查看 复制代码

Sub 提取标题()
    
    Dim sh As Shape
    
    
    
    前部不加页码数 = 2  '可视页
    后部不加页码数 = 1  '可视页
    k = 1
    m = 0
    On Error Resume Next
    tt = ""
    
    For X = 1 + 前部不加页码数 To ActivePresentation.Slides.Count - 后部不加页码数
        If ActivePresentation.Slides(X).SlideShowTransition.Hidden = msoFalse Then
        m = m + 1
        tt = tt + ActivePresentation.Slides(X).Shapes("标题 1").TextFrame.TextRange.Text & vbTab & vbTab & m & vbCrLf
        End If
    Next
    sh.TextFrame.TextRange.Text = tt
    sh.Copy
    
    
    
End Sub

etkane

eeeeda 发表于 2024-8-22 21:57
有办法在PPT播放页面添加页数和当前页吗

另外里两个帖子有，不知道是不是你想要的。

etkane

eeeeda 发表于 2024-8-24 11:59
我想要的是工具，可以设置倒计时，还有自动识别PPT的总页数和当前页数，打开PPT，全屏播放后自动开始倒计 ...

倒计时插件就有啊，那个okey

anxingye

完美，已学习

etkane

这个注意，要用母版生成标题 1，标题名要一致，回头看看有没有其他防呆的法，目前如果不一致，提取不正常。更新会在本帖更新。

zhangzheh

感谢大佬分享

zerofire

感谢分享~~

cggm

感谢分享

DQyutian

小白，具体应该如何操作？