Question

我尝试使用R包ReporteRS创建演示文稿。无序列表似乎只服从ReporteRS设置的有限选项。有没有让get ReporteRS服从模板中的默认值？

Answer 1

解决方案虽然不是很优雅，但可以使用VBA或VBScript重置幻灯片。以下是我使用VBScript重置所有幻灯片的解决方案。只需将文件拖放到使用.vbs扩展名保存的脚本上即可。

Dim inputFile
Dim objPresentation

inputFile = WScript.Arguments(0)
Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
objPPT.Presentations.Open inputFile
Set objPresentation = objPPT.ActivePresentation

slideCount = objPresentation.Slides.Count

For i = 1 to slideCount
    objPresentation.Slides(i).Select
    objPresentation.Application.CommandBars.ExecuteMso("SlideReset")
Next

objPresentation.Save
objPPT.Quit

ReporteRS不服从模板项目符号

1 个答案: