求助批处理如何实现批量图片插入doc

yhl87217 · 发表于 2022-11-7 10:48:29

如何实现下表，二级目录的所有图片全部插入到指定的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

感谢大神

pd1 · 发表于 2022-11-7 16:38:57

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

保存为.bat 放在一级目录里面运行

<# :
@echo off
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0' |Out-String|Invoke-Expression"
pause
#>
dir |?{$_ -is [System.IO.DirectoryInfo]}|%{
$filePath=$PWD.ToString()+""+$_.Name+".doc";
$word = New-Object -ComObject word.application;
$word.visible = $false;
$doc = $word.documents.add();
$selection = $word.selection;
dir $_|%{
$selection.InlineShapes.AddPicture($_.FullName);
}
$doc.saveas([ref] $filePath, [ref]$saveFormat::wdFormatDocument)
$word.Quit();
$doc=$null;
$selection=$null;
[GC]::Collect()
}

复制代码

yhl87217 · 发表于 2022-11-8 11:08:49

回复 2# pd1

感谢

		自动登录	找回密码
密码			注册

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

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