提高环境卫生检查照片处理效率经验总结

摘要：在日常的环境卫生检查中，每天都要记录大量环境卫生问题，对每处问题都要拍摄照片。对每张照片进行处理的方式费时费力，因此介绍在Word中实现照片批处理、用Excel实现照片批处理重命名等方式，大大提高工作效率和质量。

关键字：环境卫生； 检查； 照片； 宏； 批处理

Abstract: in the daily environment health examination, everyday want to record a large environmental health, every place to issue the photo was taken. For each picture on the means of processing time-consuming, therefore introduced in Word realize batch, use Excel photos realize photos batch rename wait for means, greatly improving working efficiency and quality.

Keyword: environmental health; Check; Photos; Macro; batch

中图分类号：G478文献标识码： A 文章编号：

一、前言

环境卫生管理工作中重要的一项内容是现场拍照，每发现一处问题，都要拍至2-3张照片。按环卫检查小组平均工作量计算，每天每个小组至少要发现100余个问题，每天需要整理的照片约300张。为及时将问题信息反馈相关部门，工作人员检查完后要立即对照片内容进行整理汇总。如果要将所查问题以文件的形式下发至有关部门，管理人员要将每张照片插入Word 方档，且要对每张照片进行大小编辑，从选图、插入、编辑完照片，每张照片至少耗时20秒钟，300张照片至少耗时100分钟，加上文字编辑、数据分析等工作，整理照片信息过程所用时间比检查过程所用时间少不了多少。简单、机械的整理方式使工作变得枯燥、乏味，且耗时太长，极大地增大了整理中出理错误的可能性。用Word中的宏处理功能，将对一个照片所做的工作覆盖所有照片，可使所有枯燥、重复性工作一键完成，大大提高工作效率。用批处理功能可实现所有照片的自动重新命名，为以后照片查找及整理工作带来极大方便，下面介绍方法的具体应用。

1.照片导入

打开Word空白文档，全部选中所需编辑的照片，用鼠标左键点击第一张照片（按拍摄先后顺序），按住左键将所有照片拖入Word空白文档。用鼠标左键点击第一张照片的目的是保持所有拖入照片的顺序不便，以便对照检查记录内容录入文字信息。完成操作后，会发现所有照片按拍摄顺序在Word空白文档排列。

如果采用复制、粘贴的方式将照片导入Word文档，照片的排列顺序会发生变化，导致无法按检查顺序输入存在问题，不便与照片内容进行问题核对，需进一步调整照片前后顺序，可能出现照片与问题说明不匹配的错误，且耗时较大，所以不采用此种导入方式。

如果采用Word工具栏中的“插入”方式，全部选中一次性插入会发现先后顺序错乱，单张插入会耗费大量时间，所以也不采用此种方式导入照片。

2.用宏实现照片的集中处理

打开Word工具栏中“工具”下拉框，选择“宏”，向右选择并打开“宏…”，在“宏名”中输入“shapeact”，然后点击“编辑”在弹出窗口中输入以下代码：

Sub shapeact()

Dim iSha As InlineShape

For Each iSha In ActiveDocument.InlineShapes

If iSha.Type = wdInlineShapePicture Then

iSha.LockAspectRatio = msoFalse '不锁定纵横比

iSha.Width = CentimetersToPoints(7.96) '宽7.96CM

iSha.Height = CentimetersToPoints(6.01) '高6.01CM

End If

Next

End Sub

退出宏窗口，重新进入Word工具栏中“宏”中，并选择宏名“shapeact”，然后点击运行，会发现所有照片变成以上代码中要求的尺寸，当然也可另行规定尺寸。在实际操作中可能会出现禁止宏运行的提示，这时可点击“工具-选项-安全性-宏安全性”进行降低安全级别调整。

有了此宏后，可将带宏的空白文档留作编辑照片模板，在以后的工作中一键完成照片的处理，处理完后将文档另存为以实际检查内容命名的文件，不仅节省大量的照片编辑时间，也为工作带来的乐趣。

3．照片压缩

以上只是改变了照片的大小尺寸，但所占存贮空间并没有降低。检查文件一般要通过网络对外，一张照片就约2M，上百张照片根本无法网络发送。为解决此问题，可对照片进行压缩，右键点击文档中照片，在列表中点击“设置图片格式”，在弹出窗口中点击压缩，在“应用于”选项中选择“文中所有图片”，“更改分辨率选择” 选项中选择“WEB/屏幕”，然后确定，会弹出此操作会更改照片质量的提示，点击确定，会发现文件占用存贮数据大大变小。

图片压缩步骤一 图片压缩步骤二

4.输入检查内容

照片编辑完成后，剩下仅是文字输入工作。根据检查记录，在每张（组）照片后输入检查中发现的问题，同时可对照片进行选择，删除拍摄不理想照片，只保留拍摄效果较好的照片。

三、用批处理实现所有照片重命名

1.将检查内容导入Excel表中

导入的方式很多，根据我的经验介绍如下两种：

①Word中Ctrl+A选中所有图片及文字，复制，在另一空白文档中粘贴，在文字右下方的“粘贴选项”中选择“只保留文字”，然后将文字提制到Excel表。

②Word中Ctrl+A选中所有图片及文字，复制，在Excel表中选择性粘贴，只保留文字。

导入的文字（例：重庆南路221号，排水沟内积存垃圾）放在Excel表中“重命名名称”列（第二列），如下图。

照片原名 重命名名称 原名后加后缀 重命名后加后缀 重命名

DSCF2213

重庆南路221号，排水沟内积存垃圾 DSCF2213.JPG 重庆南路221号，排水沟内积存垃圾.JPG REN DSCF2213.JPG 重庆南路221号，排水沟内积存垃圾.JPG

…… …… …… …… ……

第三列中输入“=" "&A2&".JPG"”，第四列中输入“=B2&".JPG"”，第五列中输入“="REN"&C2&" "&D2”，在第一列中输入图片原名称，Excel表中会出现以上内容，第五列内容即为重命名命令。

3.重命名批处理操作

复制第五列中内容到记事本，保存类型选为“所有文件”，文件名为“重命名.BAT”，将记事本文件保存在原图片文件目录下，运行此批处理文件，可实现所有图片一键重命名，减少了工作量，且不易出错。照片按实际内容命名后，可提高查找、现场比对等工作效率。熟悉了批处理重命名操作流程后，在以后的拍照记录过程中，只要记录了照片的原始编号和存在问题，即可快速实现照片的重命名。

利用以上方法，为实际工作中的照片处理、数据查找等工作带来极大的方便。实际操作中可能会有更好的方法，需要根据实际情况进行进一步完善。

参考方献：

[1]吕鲁江 高校图书馆读者注册时照片的批量处理图书馆建设2006年1期

[2]张淑荣（广东白云学院）Word中宏的应用 科技视野 2006年第21期

[3]汪晴Office2007办公软件应用高等教育出版社2009-07-01 第1版2009-07-01 第1次印刷

[4]赵勇军郑惠 利用EXCLE实现照片关联重命名的方法 办公自动化 2010年第4期