DeepSeek与Word文档才是绝配，批量修改图片大小，实在太秒了！

之前跟大家分享很多DeepSeek与Excel的使用方法，最近我发现DeepSeek与Word才是绝配，能够解决很多重复且繁琐的工作，主要还是通过VBA代码来实现，我们来看下今天的案例，批量修改图片大小。

一、常规方法

在Word文档中想要快速的统一图片大小，最常见的方法就是F4键，具体操作如下动图，我们需要先点击1个图片，然后点击鼠标右键找到属性，不要勾选【锁定纵横比】之后设置长度和宽度

设置好一个之后，选中其他的图片，按下F4键，来一个一个的设置。

这个方法数量少了还行，数量多了，键盘都得按包浆了，这个时候就要请出DeepSeek了

二、代码编写

向DeepSeek询问：

如何在Word文档中，使用vba代码将所有图片大小都修改为宽6cm高4cm

稍等下就会给出如下的代码，这个代码只需修改4处，用于设置图片的高度与宽度，6是长度，4是宽度，根据自己的需要来设置即可

Width = 6 * 28.35

Height = 4 * 28.35

Sub SetPicSizeTo6x4()
Dim n As Integer
'处理嵌入型图片(InlineShapes)
For n = 1 To ActiveDocument.InlineShapes.Count
With ActiveDocument.InlineShapes(n)
.LockAspectRatio = False '解除纵横比锁定‌:ml-citation{ref="1,5" data="citationList"}
.Width = 6 * 28.35 '6cm转换为磅(1cm=28.35磅)‌:ml-citation{ref="1,8" data="citationList"}
.Height = 4 * 28.35 '4cm转换为磅‌:ml-citation{ref="1,8" data="citationList"}
End With
Next n
'处理浮动型图片(Shapes)
For n = 1 To ActiveDocument.Shapes.Count
With ActiveDocument.Shapes(n)
.LockAspectRatio = False '‌:ml-citation{ref="5,8" data="citationList"}
.Width = 6 * 28.35
.Height = 4 * 28.35
End With
Next n
End Sub

三、代码粘贴

只需打开Word文件，然后点击【开发工具】找到【VisualBasic】在窗口的左侧点击空白区域，之后点击鼠标右键找到【插入】选择【模块】将代码粘贴到右侧，最后按下F5键来运行这个VBA代码，即可实现批量的修改图片大小。

至此设置完毕，Word的VBA代码一般都比较简单，DeepSeek来写代码正确率都是比较高的，大家可以试一下，之前一些重复性的工作都可以编写为代码，一劳永逸！