批量字宏將圖像頁眉和頁腳添加到文件夾中的所有文件並保存

Question

我有一個文件夾，其中包含沒有頁眉或頁腳的單詞文檔以及包含標題圖像的「信箋擡頭」模板頁腳文本。

我需要一個宏來打開文件夾中的每個文件，並將該頁眉/頁腳添加到該文件，然後保存在舊副本上。

我不確定最好的方式去做這件事，我還沒有發現它的任何地方宏的interwebs。

Answer 1

在這裏你去：

@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 

修改你的信頭的圖像，你想要什麼頁腳文本的路徑。將腳本放入Word文檔的目錄中，然後從那裏運行它。