在2019年初發布的申報資料 | 告別低效率排版，專注資料內涵！一文中，針對申報資料的插圖給出了快速批處理的一種方法，在后續使用過程中，對批量插圖的代碼進行了一系列優化升級，本文將對升級的方法進行系統的說明。

1. 總體思路

• 將pdf格式的圖譜批量轉換成圖片格式，如jpg、png等
• 在excel中整理將要插入的圖譜目錄，作為批量命名的源文件
• 使用命名軟件對圖譜進行批量重命名，并對圖譜進行排序。
• 使用代碼批量將圖片插入到word中，通過抓取圖片名稱并將其插入到對應圖譜的下方，同時以題注的形式自動生成圖譜編號。
• 一鍵生成目錄，并可在文中進行交叉索引。

2. 準備工具

• office：本文所使用的office版本為2016
• pdf轉圖片工具：smallpdf
• 重命名工具：renamer

下載鏈接：https://pan.baidu.com/s/12RCtYwmBadu7gKPKw3JgHA

提取碼：svw3

3. 轉換格式

安裝smallpdf軟件

• 下載smallpdf安裝包
• 雙擊程序Smallpdf-Installer.exe進行安裝，安裝完后，單擊『File』下的『Exit』。(不要直接點擊右上角關閉！)。

可以看到試用版的軟件只能用5天！

• 為了延長試用期，可以用記事本打開如下路徑的文件，在下圖紅色箭頭位置，可將5修改為50000，保存。

“

C:\Users\用戶名\AppData\Roaming\Smallpdf\preferences.json

”

• 為防止聯網后文件被系統改回原值，將文件設置為只讀模式。
• 重新打開軟件，可以看到頂部試用天數為50000，可以隨意使用了。

轉換格式

步驟如下：

• 選擇PDF to Image
• 選擇圖譜，也可以直接拖拽
• 新建文件夾，自定義圖譜輸出位置
• 批量轉換

4. 批量重命名

整理目標圖譜名稱

可以先在excel中進行目標圖譜的命名，排序，目的也是為了給目錄留個底。

使用軟件對圖譜批量重命名

rename軟件無需安裝，雙擊程序中的ReNamer.exe，即可運行使用。

添加規則1：將圖譜批量修改為excel中已編輯好的圖譜名稱

選擇需要重命名的圖譜文件夾，對照excel中的圖譜名稱順序，將圖譜拖拽調整順序。

單擊『點擊此處來添加規則』，選擇『用戶輸入』，將excel中的圖譜名稱復制粘貼過來，單擊窗口底部的『添加規則』。

添加規則2：在圖譜名稱前添加『#』?。此處『#』作為后續代碼抓取圖譜名稱的分割點，也就是說，代碼只抓取『#』后面的內容插入到word中。

添加規則3：在圖譜名稱前添加流水號。

點擊『重命名』，完成圖譜命名。生成的圖譜按流水號進行排序，作為源文件非常重要。

對修改完的圖譜進行反選或者直接清除，保留上述3條規則，后續添加的圖譜直接點擊『重命名』即可。

5. 創建主控文檔和子文檔

按照之前的方式，其實這一步就可以插入圖譜了，但是申報資料包含內容和圖譜較多，導致后續編輯速度越來越慢，程序經常會處于無響應狀態。

對此，解決方案是把圖譜所在章節拆出來單獨編輯，如果圖譜過多，也可以考慮將圖譜分成多個章節后單獨編輯。

創建子文檔

打開申報資料，選擇大綱視圖，在『主控文檔』位置，點擊『顯示文檔』，單擊圖譜標題編號前的『+』，點擊『創建』，關閉文檔，保存。該申報資料文檔為主文檔，在其所在文件夾中，生成了一個文件名為『圖譜』的新文檔，可在此進行編輯。

也可打開申報資料主文檔，會發現原來的『圖譜』章節生成了一個超鏈接，可點擊進行編輯。

可能有人會說，費那勁干嘛，直接新建獨立文檔，圖譜插完后再粘貼回去不就得了？

這個只要實際測試下就理解了。

首先大量圖譜的復制粘貼需要時間，并且格式等會有一定出錯概率，而在主文檔中通過超鏈接統一控制和操作是非常方便的。

完成子文檔的編輯后，單擊功能區中的『大綱』、『主控文檔』及『取消鏈接』，切斷鏈接后會自動將子文檔的所有內容寫入主文檔中。

為了使插入的圖譜盡量充滿頁面，可根據公司內部的要求，調整頁邊距至合適距離。

6. ?批量插入圖譜

前面做了一堆準備工作，終于到重點了。

打開文檔，依次選擇『文件』、『選項』，在彈出的word選項窗口中，選擇『高級』，確認壓縮的圖片分辨率為220psi，當然也可以根據實際圖片顯示的質量進行調整。否則插入原圖，文檔會過于龐大，原則上只要清晰即可。

運行下方代碼，按提示操作即可完成批量插圖。

Sub?BatchInsertFig_CapWangzpV4()
????Dim?fd?As?FileDialog
????Dim?oILS?As?InlineShape
????Dim?vrtSelectedItem?As?Variant
????Dim?ex?As?String
????Dim?oRng?As?Word.Range
????????Set?fd?=?Application.FileDialog(msoFileDialogFilePicker)
????????With?fd
????????????.Title?=?"請選擇單張或多張圖譜！"
????????????.Filters.Add?"Images",?"*.gif;?*.jpg;?*.jpeg;?*.bmp;?*.tif;?*.png"
????????????.FilterIndex?=?2
????Set?oRng?=?Selection.Range
????????ex?=?InputBox("請填寫圖譜前綴名稱!")
????If?.Show?=?-1?Then
????????CaptionLabels.Add?Name:=ex
????????For?Each?vrtSelectedItem?In?.SelectedItems
????????????Set?oRng?=?ActiveDocument.Range
????????????????oRng.Collapse?wdCollapseEnd
????????????Set?oILS?=?oRng.InlineShapes.AddPicture(FileName:=?_
????????????vrtSelectedItem,?LinkToFile:=False,?SaveWithDocument:=True,?_
????????????Range:=Selection.Range)
????????????oILS.Range.InsertCaption?Label:=ex,?TitleAutoText:="",?Title:="??"?&?Split(vrtSelectedItem,?"#")(UBound(Split(vrtSelectedItem,?"#"))),?_
????????????Position:=wdCaptionPositionBelow,?ExcludeLabel:=0
????????????unitsMoved?=?Selection.MoveDown(Unit:=wdParagraph,?_
????????????Count:=2,?Extend:=wdMove)
????????????Selection.InsertBreak?Type:=wdPageBreak
????????Next?vrtSelectedItem
????????Else
????End?If
????End?With
????Set?fd?=?Nothing
End?Sub

插入的圖譜帶有擴展名，通過『ctrl+H』替換成空白即可。

關于該方法的優勢及具體操作說明，請仔細閱讀篇首提到的文章并親自測試體驗，本次更新就到這里。

Enjoy it!

與50位技術專家面對面20年技術見證，附贈技術全景圖

總結

以上是生活随笔為你收集整理的批处理 批量s扫1433_申报资料 | 批量整理图谱（续）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。