Question

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

示例：

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个新的powerpoint（幻灯片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

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

1 个答案: