#@&cls&powershell "type %~s0|out-string|iex"&pause&exit
$f=gi '123.xlsx'	#表格文件名
$a=new-object -com excel.application
$a.Application.DisplayAlerts=0
$b=$a.workbooks.open("$f")
$b.saveas("$f`.csv",6)
$b.close()
$a.quit()
$a=Import-Csv "$f`.csv" -Header $((gc "$f`.csv")[0] -split ',')
$b=New-Object -com word.application
while($a[++$i] -ne $null){
[void]$b.Documents.Add()
$b.ActiveDocument.Content.InsertAfter("姓名:$($a[$i].姓名)`n")
$b.ActiveDocument.Content.InsertAfter("性别:$($a[$i].性别)`n")
$b.ActiveDocument.Content.InsertAfter("年龄:$($a[$i].年龄)`n")
$b.Documents.Item(1).saveas("$pwd\$($a[$i].姓名).doc")
$b.Documents.Item(1).close()
}
$b.quit()
复制代码