[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文件操作] 求助批处理如何实现批量图片插入doc

如何实现下表,二级目录的所有图片全部插入到指定的doc中,最好doc也是自动生成(doc名于二级目录名称相同,doc路径无所谓)
图片插入doc的命令不知道。。。




一级目录
           二级目录1      01.jpg
                              02.jpg
                              03.jpg             二级目录1.doc
                              04.jpg
                              05.jpg

           二级目录2      01.jpg
                              02.jpg
                              03.jpg             二级目录2.doc
                              04.jpg
                              05.jpg

           二级目录3      01.jpg
                              02.jpg
                              03.jpg             二级目录3.doc
                              04.jpg
                              05.jpg



感谢大神

回复 2# pd1


    感谢

TOP

本帖最后由 pd1 于 2022-11-7 16:43 编辑

保存为.bat  放在一级目录里面运行
  1. <# :
  2. @echo off
  3. powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0' |Out-String|Invoke-Expression"
  4. pause
  5. #>
  6. dir |?{$_ -is [System.IO.DirectoryInfo]}|%{
  7. $filePath=$PWD.ToString()+"\"+$_.Name+".doc";
  8. $word = New-Object -ComObject word.application;
  9. $word.visible = $false;
  10. $doc = $word.documents.add();
  11. $selection = $word.selection;
  12. dir $_|%{
  13. $selection.InlineShapes.AddPicture($_.FullName);
  14. }
  15.                 $doc.saveas([ref] $filePath, [ref]$saveFormat::wdFormatDocument)
  16. $word.Quit();
  17. $doc=$null;
  18. $selection=$null;
  19. [GC]::Collect()
  20. }
复制代码

TOP

返回列表