问批处理Word宏将图像页眉和页脚添加到文件夹中的所有文件并保存

EN

@echo off
setlocal


for /f "Tokens=*" %%b in ('dir /b /a-d "*.doc"') do (
    Echo searching %%b
    call :AddHeaderFooter "%%b"
)
exit /b


:AddHeaderFooter <WordDoc>
setlocal
set vbs="%temp%\_.vbs"
if exist %vbs% del /f /q %vbs%
>%vbs% echo on error resume next
>>%vbs% echo Set objWord = CreateObject("Word.Application")
>>%vbs% echo objWord.visible = false
>>%vbs% echo Set objDoc = objWord.Documents.Open("%~1")
>>%vbs% echo With objDoc.Sections(1)
>>%vbs% echo .Headers(1).Range.inlineshapes.addpicture "C:\lh.png"
>>%vbs% echo .Footers(1).Range.Text = "Footer goes here"
>>%vbs% echo End With
>>%vbs% echo objDoc.close
>>%vbs% echo objWord.quit
>>%vbs% echo set objDoc = Nothing
>>%vbs% echo set objWord = Nothing
cscript //nologo %vbs%
if exist %vbs% del /f /q %vbs%
exit /b