ppt 请教一个，有特定标记的段落缩进指定距离的vba

user_objgywzp

如图，希望以★开头的段落全部首行缩进2厘米，手动调整有些费事，文档较大，求一可实现此功能的VBA
请教.rar (189.31 KB, 下载次数: 126)

2016-4-12 13:32 上传

点击文件名下载附件

user_tgocxxwb

• For Each s In Application.ActivePresentation.Slides
  
•     For Each p In s.Shapes(1).TextFrame2.TextRange.Paragraphs
  
•       If p.Characters(1) = "★" Then p.ParagraphFormat.FirstLineIndent = 40 '这个40自己根据需要设置
  
•     NextNext
  

复制代码
现在只处理一个SLIDE中的第一个SHAPE。如果有多个SHAPE，自己循环处理。

user_qprhm

非常感谢！！！！！！