批处理如何批量让文件夹下的word文件转为PDF？

脑袋大

如何批量让文件夹下的word文件转为PDF：求助大神！转换完的PDF名称保留word的命名名字且路径在源文件夹内，例如：6界址点成果表.docx→6界址点成果表.pdf  注：word的名称只有两个（300多个文件夹下的word名称都叫：4地籍调查表.docx、6界址点成果表.docx，仅文件夹名称不一致）

hfxiang

回复 1# 脑袋大
看看这个能否满足要求：
https://www.cnblogs.com/Mr-nie/p/8029085.html

Five66

不知行否
pdf不带书签

1. 
   
2. @if (0)/*==(0)/* echo off
   
3. 
   
4. cmd /u /c dir /b /s /a-d *.docx | cscript //nologo //e:jscript //u "%~f0"
   
5. taskkill /F /IM winword.exe 2>nul
   
6. 
   
7. pause&exit/b
   
8. rem */@end
   
9. 
   
10. var nil=null,f=[];
    
11. while (!WScript.StdIn.AtEndOfStream) {
    
12. s=WScript.StdIn.ReadLine();
    
13. f.push(s);
    
14. }
    
15. 
    
16. var i,p,file,fso=GetObject("new:scripting.filesystemobject");
    
17. var wa=GetObject("new:word.application");
    
18. wa.Visible=false;wa.DisplayAlerts=false;wa.ScreenUpdating=false;
    
19. 
    
20. for (i in f){
    
21. p=f[i].split('.');
    
22. p.pop();
    
23. p.push('pdf');
    
24. if (fso.FileExists(p.join('.'))){}
    
25. else {
    
26. file=wa.Documents.Open(f[i]);
    
27. file.SaveAs2(p.join('.'),17);
    
28. file.Close(false);
    
29. }
    
30. }
    
31. 
    
32. wa.Visible=true;wa.DisplayAlerts=true;wa.ScreenUpdating=true;
    
33. wa.Quit();wa=nil;
    

复制代码

ppll2030

新手村再次挑战
把以下代码保存为bat文件，放在主文件夹下即可。会自动搜索该文件夹及其子文件夹下的所有word文件并另存为PDF

1. @echo off
   
2. 
   
3. :vbs
   
4. (echo Set fso = CreateObject^("Scripting.FileSystemObject"^)
   
5. echo For i= 0 To WScript.Arguments.Count -1
   
6. echo   doc = WScript.Arguments^(i^)
   
7. echo   doc = fso.GetAbsolutePathName^(doc^)
   
8. echo   If LCase^(Right^(doc, 4^)^) = ".doc" Or LCase^(Right^(doc, 5^)^) = ".docx" Then
   
9. echo     Set objWord = CreateObject^("Word.Application"^)
   
10. echo     pdfPath = FSO.GetFile^(doc^).ParentFolder
    
11. echo     pdfname = fso.GetBaseName^(doc^) ^& ".pdf"
    
12. echo     objWord.Visible = False
    
13. echo     Set objDoc = objWord.documents.open^(doc^)
    
14. echo     objDoc.saveas pdfPath ^& "" ^& pdfname,17
    
15. echo     objDoc.Close
    
16. echo     objWord.Quit
    
17. echo   End If
    
18. echo   Next ) > Word2PDF.vbs
    
19.   
    
20. for /f "delims=" %%i in ('dir /b /s /a-d *.doc') do Word2PDF.vbs "%%i"
    
21. del /p Word2PDF.vbs
    
22. echo.&echo 当前文件夹（含子文件夹）下的所有word文档已全部转换成PDF~! &pause >NUL
    

复制代码

温馨提示：
如果你的word文件过多或过大，脚本效率将大大降低。
这类操作还是建议用PDF批量工具完成较好。

脑袋大

回复 4# ppll2030
谢谢

脑袋大

回复 3# Five66

感谢！