2017-07-27 54 views

回答

2

這不是安全的(您可以添加文件存在檢查等)。另存爲.bat

@if (@X)==(@Y) @end /* JScript comment 
    @echo off 

    cscript //E:JScript //nologo "%~f0" %* 

    exit /b %errorlevel% 

@if (@X)==(@Y) @end JScript comment */ 

var source=WScript.Arguments.Item(0); 
var target=WScript.Arguments.Item(1); 
PP = new ActiveXObject("PowerPoint.Application"); 
PRSNT = PP.presentations.Open(source,0,0,0) 
//PRSNT.SaveCopyAs(target,32); 
//https://msdn.microsoft.com/en-us/vba/powerpoint-vba/articles/ppsaveasfiletype-enumeration-powerpoint 
PRSNT.SaveAs(target,32); 
PRSNT.Close(); 
PP.Quit(); 

第一個參數是PowerPoint文件,二是要保存新文件。有關presentation object

下一步更多信息是處理文件(如果以前的腳本保存爲ppt2pdf.bat):

@echo off 
::change the locataion in the line bellow 
set "ppt_dir=c:\ppts" 
for %%a in ("%ppt_dir%\*pptx" "%ppt_dir%\*ppt") do (
    call ppt2pdf.bat "%%~fa" "%%~dpna.pdf" 
) 
相關問題