Python输出PowerPoint（ppt）文件中全部文字信息的方法

import win32com
from win32com.client import Dispatch, constants
ppt = win32com.client.Dispatch('PowerPoint.Application')
ppt.Visible = 1
pptSel = ppt.Presentations.Open("c:\1.ppt")
win32com.client.gencache.EnsureDispatch('PowerPoint.Application')
f = file("c:\1.txt","w")
slide_count = pptSel.Slides.Count
for i in range(1,slide_count + 1):
 shape_count = pptSel.Slides(i).Shapes.Count
 print shape_count
 for j in range(1,shape_count + 1):
 if pptSel.Slides(i).Shapes(j).HasTextFrame:
 s = pptSel.Slides(i).Shapes(j).TextFrame.TextRange.Text
 f.write(s.encode('utf-8') + "
") 
f.close()
ppt.Quit()