VBS如何访问、修改PowerPoint（PPT）文档？

Batcher

哪位手上有用VBS对PowerPoint（PPT）文档进行常见操作（访问、修改d等）的教程或者例子，能否分享一下？多谢！

google、论坛搜索了半天，只找到一个例子，希望能有更多的资料可以学习。

1. '/////////////////////////////
   
2. '/PowerPoint文件转图像脚本(ppt2img)
   
3. '/作者:www.51windows.net，海娃
   
4. '/使用方法：将此文件放在sendto文件中，然后在ppt文件上点右键，发送到，ppt2img.vbs中，输入要输出图像的格式，然后输入图像的宽与高，脚本会生成一个同名的文件，里面为生成的图像文件。
   
5. '/机器上要安装Powerpoint程序
   
6. '/////////////////////////////
   
7. 'on error resume next
   
8. Set ArgObj = WScript.Arguments
   
9. pptfilepath = ArgObj(0)
   
10. imgType = InputBox("输入导出文件的格式，可以是jpg,png,bmp,gif","输入导出文件的格式","png")
    
11. 
    
12. if imgType = "" or (lcase(imgType)<>"jpg" and lcase(imgType)<>"png" and lcase(imgType)<>"bmp" and lcase(imgType)<>"gif") then
    
13.         imgType = "png"
    
14.         msgbox "输入不正确，以png格式输出"
    
15. end if
    
16. 
    
17. imgW = InputBox("输入导出图像的宽度","输入导出图像的宽度","640")
    
18. if imgW = "" or isnumeric(imgW)=false then
    
19.         imgW = 640
    
20.         msgbox "输入不正确,程序使用默认值:640"
    
21. end if
    
22. 
    
23. 
    
24. imgH = InputBox("输入导出图像的高度","输入导出图像的高度","480")
    
25. 
    
26. if imgH = "" or isnumeric(imgH)=false then
    
27.         imgH = imgW*0.75
    
28.         msgbox "输入不正确,程序使用默认值:"&imgH
    
29. end if
    
30. 
    
31. 
    
32. call Form_Load(pptfilepath,imgType)
    
33. 
    
34. Private Sub Form_Load(Filepath,format)
    
35.         if format = "" then
    
36.                 format = "gif"
    
37.         end if
    
38.         Folderpath = left(Filepath,len(Filepath)-4)
    
39.         if lcase(right(Filepath,4))<>".ppt" then
    
40.                 call ConvertPPT(Filepath,Folderpath&".ppt")
    
41.         end if
    
42.         Filepath = Folderpath&".ppt"
    
43.         CreateFolder(Folderpath)
    
44.     Set ppApp = CreateObject("PowerPoint.Application")
    
45.     Set ppPresentations = ppApp.Presentations
    
46.     Set ppPres = ppPresentations.Open(Filepath, -1, 0, 0)
    
47.     Set ppSlides = ppPres.Slides
    
48. 
    
49.         For i = 1 To ppSlides.Count
    
50. 
    
51.                 iname = "000000"&i
    
52.                 iname = right(iname,4)'取四位数
    
53.                 Call ppSlides.Item(i).Export(Folderpath&""&iname&"."&format, format, imgW, imgH)
    
54.         Next
    
55. 
    
56.         Set ppApp = Nothing
    
57.         Set ppPres = Nothing
    
58. End Sub
    
59. 
    
60. Function CreateFolder(Filepath)
    
61.         Dim fso, f
    
62.         on error resume next
    
63.         Set fso = CreateObject("Scripting.FileSystemObject")
    
64.         if not fso.FolderExists(Filepath) then
    
65.                 Set f = fso.CreateFolder(Filepath)
    
66.         end if
    
67.         CreateFolder = f.Path
    
68.         set fso = Nothing
    
69.         set f = Nothing
    
70. End Function
    
71. 
    
72. Sub ConvertPPT(FileName1, FileName2)
    
73.     Dim PPT
    
74.     Dim Pres
    
75. 
    
76.     Set PPT = CreateObject("PowerPoint.Application")
    
77.     Set Pres = PPT.Presentations.Open(FileName1, False, False, False)
    
78.     Pres.SaveAs FileName2, , True
    
79. 
    
80.     Pres.Close
    
81.     PPT.Quit
    
82. 
    
83.     Set Pres = Nothing
    
84.     Set PPT = Nothing
    
85. End Sub

复制代码

rat

搜索PowerPoint.Application