农村削坡建房风险点详情表

本文通过根据前期调查的《农村削坡建房风险点详情表》excel信息表，及各个风险点的照片数据，再通过邮件功能批量生产《农村削坡建房风险点详情表》Word信息展示表格。

1 我们先根据下村的调查数据整理出先关信息excel；我们在读取照片所在文件的列表的时候，可以使用BAT命令获取照片文件夹及照片文件夹里面的照片名称：

@echo off

if exist list.txt del list.txt /q
:input
cls
set input=:
set /p input=Please input path:
set "input=%input:"=%"
:: 上面这句为判断%input%中是否存在引号，有则剔除。
if "%input%"==":" goto input
if not exist "%input%" goto input
for %%i in ("%input%") do if /i "%%~di"==%%i goto input
pushd %cd%
cd /d "%input%">nul 2>nul || exit
set cur_dir=%cd%
popd
:: %%~nxi只显示文件名,%%i显示带路径的文件信息
for /f "delims=" %%i in ('dir /b /a-d /s "%input%"') do echo %%i>>list.txt
if not exist list.txt goto no_file
start list.txt
exit

:no_file
cls
echo %cur_dir% Folder does not have a separate document
pause

读取到的list文件，改成csv文件打开，编辑里面的数据。这里需要做的是将相同文件夹的照片名称转化成行，list原本是数列，我们通过插入>>数据透视表>>表格和区域>>选择文件夹列及照片名称列，就可以转化为行。

 2 在Word里面整理出模板，利用邮件>>选择收件人>>插入整理的excel，再>>插入合并域。

照片的批量插入需要利用插入>>文档部件>>找到InclidePicture>>“在文件名或URL:”  里面填写照片文件夹的目录（例如 C:\Users\Administrator\照片文件根目录）>>点击确定。alt+F9可以编辑照片域，F9就是刷新照片。

 

3 最后的步骤就是点击>>完成并合并，生成所有的word。生成的word后全选所有文档，F9刷新图片（很关键），过程有点卡，耐心等待。

4 最后插入所有照片后，再利用VBA命令修改所有照片的大小。点击开发者工具>>visual basic将下面的代码粘贴进去，点击运行就整理好所有的照片文件大小。

Sub ShenWei()
  SWwidth = 5
  SWheigth = 4.2
  For Each iShape In ActiveDocument.InlineShapes
  iShape.Height = 28.345 * SWheigth
  iShape.Width = 28.345 * SWwidth
  Next iShape
End Sub