按主题对每张幻灯片进行分类

Question

我想知道是否可以为每张幻灯片添加某种标记系统，然后创建按主题分组的新幻灯片。

示例：

Slide 1 --> Category A 
Slide 2 --> Category B 
Slide 3 --> Category A 
Slide 4 --> Category B 
Slide 5 --> Category B 
Slide 6 --> N/A

产生 2 个新的 powerpoints（忽略幻灯片 6）：

 Category A.pptx (Contains 2 slides) 
 Category B.pptx (Contains 3 slides)

有什么想法吗？

我正在考虑在评论部分创建我的标签，阅读它们并根据我的标签创建新幻灯片，然后将该代码导出到插件。

代码逻辑示例

Sub ConvertComments()

Dim oSl As Slide
Dim oSlides As Slides
Dim oCom As Comment

Set oSlides = ActivePresentation.Slides

For Each oSl In oSlides
    For Each oCom In oSl.Comments
       //do stuff here
    Next oCom
Next oSl
Close 1
End Sub

Answer 1

除非你是唯一管理牌组内容的人，否则我建议不要使用用户可以通过 UI 访问的任何数据类型（例如，很容易从牌组中删除所有评论）并且依赖于只能以编程方式访问的其他数据类型。您可以使用以下任何一项：

oSl.Name = "category1" ' only good for one 'tag'
oSl.Tags.Add "CATEGORY1", "TRUE" ' good for multiple tags
oPres.CustomDocumentProperties ' in UI but not easy to find
CustomXML

按主题对每张幻灯片进行分类

Categorize each slide by topic

powerpoint

vba