user_objgywzp 发表于 2016-4-12 13:32:01

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



如图，希望以★开头的段落全部首行缩进2厘米，手动调整有些费事，文档较大，求一可实现此功能的VBA

user_tgocxxwb 发表于 2016-4-12 14:40:18


[*]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 发表于 2016-4-12 16:51:52

非常感谢！！！！！！
页: [1]
查看完整版本: ppt 请教一个，有特定标记的段落缩进指定距离的vba