标签:获取 xtran text ppt .sh save 办公 epp visible
import win32com
import win32com.client
def makePPT(path):
ppt=win32com.client.Dispatch("PowerPoint.Application")
ppt.Visible=True
#增加一个文件
pptFile=ppt.Presentations.Add()
#创建页
page1=pptFile.Slides.Add(1,1)#参数1为页数(第一页开始),参数2为类型(按照PPT主题排列)
#page1.Shapes[0]获取第一个框
t1=page1.Shapes[0].TextFrame.TextRange#在框内写入内容
t1.Text="下雨天"
t2 = page1.Shapes[1].TextFrame.TextRange
t2.Text = "要带伞"
#t3 = page1.Shapes[2].TextFrame.TextRange#只有两个框,这个不打印
#t3.Text = "的一个人"
page2 = pptFile.Slides.Add(2, 1) #
# page1.Shapes[0]获取第一个框
t1 = page2.Shapes[0].TextFrame.TextRange # 在框内写入内容
t1.Text = "那么多"
t2 = page2.Shapes[1].TextFrame.TextRange
t2.Text = "的人"
#保存
pptFile.SaveAs(path)
#关闭
pptFile.Close()
ppt.Quit()
path=r"D:\x"
makePPT(path)
标签:获取 xtran text ppt .sh save 办公 epp visible
原文地址:https://www.cnblogs.com/zlong123/p/10508011.html