VBS applet code of PDF

Time:2020-5-29

Dim ls_File
Set objArgs = WScript.Arguments ‘command line parameters

if objArgs.Count<1 then
    return
end if
Ls_ File = obvargs (0) ‘the first parameter is usually the file name
ls_new = left(ls_File, len(ls_File) -4 )+”.pdf

Set pptApp = CreateObject(” PowerPoint.Application “) ‘declaration calling function
pptApp.Visible =True ‘when using PowerPoint, you must have this sentence, otherwise you will make an error

Set MyPress = pptApp.Presentations.Open ( ls_ File) ‘presentation object
MyPress.Saveas ls_new,32
pptApp.Quit