office转pdf

var files = WScript.Arguments;
var fso = new ActiveXObject("Scripting.FileSystemObject");
var word = new ActiveXObject("Word.Application");
var PDF = new ActiveXObject("PDFDistiller.PDFDistiller.1");
word.ActivePrinter = "MS Publisher Color Printer";

//files(0) 为WORD文档文件名
//files(1) 为,转换后需要保存的路径
//调用fso.GetBaseName(files(0))后,为无路径,无扩展名,的文件名
//files.length为文件参数的个数,使用循环可以支持多个WORD文档的转换
//https://www.doczj.com/doc/f316614755.html,

var docfile = files(0);
var psfile = files(1) + fso.GetBaseName(files(0)) + ".ps";
var pdffile = files(1) + fso.GetBaseName(files(0)) + ".pdf";
var logfile = files(1) + fso.GetBaseName(files(0)) + ".log";

try{
var doc = word.Documents.Open(docfile);
//WORD文件转成PS文件;
word.PrintOut(false, false, 0, psfile);
doc.Close(0);

//PS文件转成PDF文件;
PDF.FileToPDF(psfile,pdffile,"");

fso.GetFile(psfile).Delete();//删除PS脚本文件
fso.GetFile(logfile).Delete();//删除转换的日志文件

word.Quit();
WScript.Echo("isuccess");//成功
WScript.Quit(0);
}
catch(x)
{
word.Quit();
WScript.Echo("isfail");//失败
WScript.Quit(0);
}



var files = WScript.Arguments;
var fso = new ActiveXObject("Scripting.FileSystemObject");
var word = new ActiveXObject("Excel.Application");
var PDF = new ActiveXObject("PDFDistiller.PDFDistiller.1");
word.Workbooks.add();
//word.ActivePrinter = "MS Publisher Color Printer 在 LPT1:";
var docfile = files(0);
var psfile = files(1) + fso.GetBaseName(files(0)) + ".ps";
var pdffile = files(1) + fso.GetBaseName(files(0)) + ".pdf";
var logfile = files(1) + fso.GetBaseName(files(0)) + ".log";

var doc = word.Workbooks.Open(docfile);
//Excel文件转成PS文件;
var xlsheet = doc.Worksheets(1);
xlsheet.PrintOut(1, 2, 1, false, "MS Publisher Color Printer 在 LPT1:", true, true, psfile); //这个是打印机关于得到Excel默认打印机的VBA可以在网上搜，有很多
try {
doc.Close(0);
//PS文件转成PDF文件;
PDF.FileToPDF(psfile, pdffile, "");
fso.GetFile(psfile).Delete(); //删除PS脚本文件
fso.GetFile(logfile).Delete(); //删除转换的日志文件

word.Quit();
WScript.Echo("isuccess"); //成功
WScript.Quit(0);
}
catch (x) {
word.Quit();
WScript.Echo("isfail"); //失败
WScript.Quit(0);
}



var files = WScript.Arguments;
var fso = new ActiveXObject("Scripting.FileSystemObject");
var powerpoint = new ActiveXObject("PowerPoint.Application");
var PDF = new ActiveXObject("PDFDistiller.PDFDistiller.1");
//word.Presentations.add();
//word.ActivePrinter = "MS Publisher Color Printer";
var docfile = files(0);
var psfile = files(1) + fso.GetBaseName(files(0)) + ".ps";
var pdffile = files(1) + fso.GetBaseName(files(0)) + ".pdf";
var logfile = files(1) + fso.GetBaseName(files(0)) + ".log";

//var doc = word.Presentations.Open(docfile);
//Excel文件转

成PS文件;
//var xlsheet = doc.Worksheets(1);
//xlsheet.PrintOut(1, 2, 1, false, "MS Publisher Color Printer 在 LPT1:", true, true, psfile); //这个是打印机关于得到Excel默认打印机的VBA可以在网上搜，有很多
//word.PrintOut(1,2,1,false,"MS Publisher Color Printer 在 LPT1:",true,true,psfile);
try {
//var doc = word.Presentations.Open(docfile);
//Presentations.ActivePrinter = "MS Publisher Color Printer";
//word.PrintOut(-1,-1,false,"MS Publisher Color Printer",true,true,psfile);
//WScript.Echo("0");
//var powerpoint = new PowerPoint.ApplicationClass();
//application = new PowerPoint.ApplicationClass();
var ppt = powerpoint.Presentations.Open(docfile, true, false, false);
ppt.PrintOut(-1, -1, psfile, 1, true);
//ppt.Close(0);
//PS文件转成PDF文件;
PDF.FileToPDF(psfile, pdffile, "");
fso.GetFile(psfile).Delete(); //删除PS脚本文件
fso.GetFile(logfile).Delete(); //删除转换的日志文件
powerpoint.Quit();
WScript.Echo("isuccess"); //成功
WScript.Quit(0);
}
catch (x) {
powerpoint.Quit();
WScript.Echo("isfail"); //失败
WScript.Quit(0);
}