图片格式调整方法
通过我们柴丰丰同志的攻坚，我们完成了将所有图片一次性插入WORD文本后，可调整统一宽度（5CM），并附加边框的宏运行模式。

具体方法如下：
1.打开word文档；
2.按住ALT按键不要放手，再按F8按键，蹦出一个窗口；
3.在“宏名”字样下方边框输入图片格式，下拉“宏的位置”选择框，调
整至Normal.dot(共用模板)，并点击新窗口中，创建按钮；
4.完成第3步后，进入以下界面；
5.将新界面内所有内容调整为：
Sub 图片格式()
Dim H
Dim w
Dim N
N = 0
Myheigth = 5
For Each ishape In ActiveDocument.InlineShapes H = ishape.Height
w = ishape.Width
N = N + 1
ishape.Height = 28.345 * Myheigth
ishape.Width = w * ishape.Height / H
ishape.Borders(wdBorderLeft).LineStyle = wdLineStyleThickThinSmallGap
ishape.Borders(wdBorderLeft).LineWidth = wdLineWidth450pt ishape.Borders(wdBorderLeft).Color = wdColorGreen
ishape.Borders(wdBorderRight).LineStyle = wdLineStyleThinThickSmallGap
ishape.Borders(wdBorderRight).LineWidth = wdLineWidth450pt ishape.Borders(wdBorderRight).Color = wdColorGreen
ishape.Borders(wdBorderBottom).LineStyle = wdLineStyleThinThickSmallGap
ishape.Borders(wdBorderBottom).LineWidth = wdLineWidth450pt ishape.Borders(wdBorderBottom).Color = wdColorGreen
ishape.Borders(wdBorderTop).LineStyle = wdLineStyleThickThinSmallGap
ishape.Borders(wdBorderTop).LineWidth = wdLineWidth450pt ishape.Borders(wdBorderTop).Color = wdColorGreen
Next ishape
End Sub
6.完成后点击左上方“保存键”，然后点击右上角“”，关闭界面
后，会回到原word文档；
7.在word文档中，再次按住“ALT”按键的情况下，点击“F8”按键，再
次出现对话框，点击运行，所有照片格式调整完毕。

注意点：
1.因此方法调整照片格式为编码调整，一次性调整结束后，点击
按键，无法返回所有照片调整前情况。

2.调整后为统一宽度（5cm），因此请拍照时统一横截面拍摄，尽量不
要采用竖向拍摄。

为了便于操作可建立按钮，实施点击式操作，具体方法如下：
1.在word工具栏界面右击，选择最后自定义一栏，进入以下界面；
2.在“命令”界面，下拉选择项，选择“宏”选项；
3.鼠标左键按住图标，不要放手，将图标移动
到工具栏，完成快捷键设置，今后插入图片后仅需点击此按键即可。

注意点：使用“宏”编辑模式后，在部分杀毒软件会进行拦截，请无需恐慌，并根据提示进行操作，或者在使用时关闭部分杀毒软件。

此为正常现象。