파이썬 기반의 사무 자동화 연구는 네 개의 노트

PPT
(1)에 PPT写

수입 win32com의
수입 win32com.client

데프 makeppt (경로) :
PPT = win32com.client.Dispatch ( "PowerPoint.Application")
ppt.Visible = 진정한
pptFile = ppt.Presentations.Add ()

#创建页
PAGE1 pptFile.Slides.Add = (1, 1)
T1 = page1.Shapes [0] .TextFrame.TextRange
t1.Text = "sunck"
T2 = page1.Shapes [1] .TextFrame.TextRange
t2.Text = "sunck이 좋은 사람이다"
#保存
pptFile.SaveAs (경로)
pptFile.Close ()
ppt.Quit ()

경로 = R "E : \\ 파이썬 \\ py17 \\ automatictext \\ sunk.ppt"
makeppt (경로)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
5 PDF

수입 win32com의
수입 win32com.client

데프 makeppt (경로) :
PPT = win32com.client.Dispatch ( "PowerPoint.Application")
ppt.Visible = 진정한
pptFile = ppt.Presentations.Add ()

#创建页
PAGE1 pptFile.Slides.Add = (1, 1)
T1 = page1.Shapes [0] .TextFrame.TextRange
t1.Text = "sunck"
T2 = page1.Shapes [1] .TextFrame.TextRange
t2.Text = "sunck이 좋은 사람이다"
#保存
pptFile.SaveAs (경로)
pptFile.Close (http://www.amjmh.com/v/BIBRGZ_558768/)
ppt.Quit ()

경로 = R "E : \\ 파이썬 \\ py17 \\ automatictext \\ sunk.ppt"
makeppt (경로)
---------------------