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

yhl87217

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



感谢大神

yhl87217

回复 2# pd1


    感谢

pd1

保存为.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()
	}
复制代码