PPT转JPEG图片小工具/第三方

老刘1号

纠结了很久到底是发第三方区还是VBS原创代码区……
算了，就发这里吧。

工具名：PPT转JPEG图片小工具
英译：Powerpoint document to JPEG image files tool~
用法：将单或多个ppt文件拖到vbs上，等待一会即可。会在ppt文件目录下生成同名文件夹，里面就是图片，并且已经排好了序。
Usage:  Pull the Powerpoint document(s) above the Vbscript file,then wait a moment.This application will create a folder that name same as the Powerpoint documents and in same path of it, inside of the folder are sort format JPEG images.
环境：office2007或更高，wps2013或更高。
Environment: Office 2007 or higher,WPS 2013 or higher.

PPT2JPEG.VBS源代码（Source）：

1. Option Explicit
   
2. If WScript.Arguments.Count > 0 Then
   
3.         Dim oPPT,oPPTFile,[幻灯片],[计数器],fso,Arg
   
4.         Set fso = CreateObject("Scripting.FileSystemObject")
   
5.         Set oPPT = CreateObject("PowerPoint.Application")
   
6.         Dim PPTFilePath,PPTFileBaseName
   
7.         For Each Arg In WScript.Arguments
   
8.                 If fso.FileExists(Arg) And _
   
9.                         (UCase(fso.GetExtensionName(Arg)) = "PPT" Or UCase(fso.GetExtensionName(Arg)) = "PPTX") Then
   
10.                        
    
11.                         With fso
    
12.                                 PPTFilePath = .GetParentFolderName(Arg)
    
13.                                 PPTFileBaseName = .GetBaseName(Arg)
    
14.                         End With
    
15.                        
    
16.                         If Not fso.FolderExists(PPTFilePath&""&PPTFileBaseName) Then
    
17.                                 fso.GetFolder(PPTFilePath).SubFolders.Add PPTFileBaseName
    
18.                         End If
    
19.                        
    
20.                         Set oPPTFile = oPPT.Presentations.Open(Arg)
    
21.                         [计数器] = 0
    
22.                         For Each [幻灯片] In oPPTFile.Slides
    
23.                                 [计数器] = [计数器] + 1
    
24.                                 [幻灯片].Export PPTFilePath&""&PPTFileBaseName&""&PPTFileBaseName&" ("&[计数器]&").JPG","JPG"
    
25.                         Next
    
26.                         oPPTFile.Close
    
27.                         Set oPPTFile = Nothing
    
28.                 End If
    
29.         Next
    
30.         oPPT.Quit
    
31.         Set oPPT = Nothing
    
32. Else
    
33.         MsgBox "请将文件拖到程序上～",,"【老刘制作】PPT转图片"
    
34. End If        fso.GetFolder(PPTFilePath).SubFolders.Add PPTFileBaseName
    
35.         End If
    
36.        
    
37.         Set oPPTFile = oPPT.Presentations.Open(WScript.Arguments(0))
    
38.         [计数器] = 0
    
39.         For Each [幻灯片] In oPPTFile.Slides
    
40.                 [计数器] = [计数器] + 1
    
41.                 [幻灯片].Export PPTFilePath&""&PPTFileBaseName&""&PPTFileBaseName&" ("&[计数器]&")."&"JPG","JPG"
    
42.         Next
    
43.         oPPTFile.Close
    
44.         Set oPPTFile = Nothing
    
45.         oPPT.Quit
    
46.         Set oPPT = Nothing
    
47. Else
    
48.         Msgbox "请将文件拖到程序上～",,"【老刘制作】PPT转图片"
    
49. End If

复制代码

英译有什么错误望各路高手指教，就当练习英语了。