之前跟大家分享很多DeepSeek與Excel的使用方法，最近我發(fā)現(xiàn)DeepSeek與Word才是絕配，能夠解決很多重復(fù)且繁瑣的工作，主要還是通過VBA代碼來實現(xiàn)，我們來看下今天的案例，批量修改圖片大小。

一、常規(guī)方法

在Word文檔中想要快速的統(tǒng)一圖片大小，最常見的方法就是F4鍵，具體操作如下動圖，我們需要先點擊1個圖片，然后點擊鼠標(biāo)右鍵找到屬性，不要勾選【鎖定縱橫比】之后設(shè)置長度和寬度

設(shè)置好一個之后，選中其他的圖片，按下F4鍵，來一個一個的設(shè)置。

這個方法數(shù)量少了還行，數(shù)量多了，鍵盤都得按包漿了，這個時候就要請出DeepSeek了

二、代碼編寫

向DeepSeek詢問：

如何在Word文檔中，使用vba代碼將所有圖片大小都修改為寬6cm高4cm

稍等下就會給出如下的代碼，這個代碼只需修改4處，用于設(shè)置圖片的高度與寬度，6是長度，4是寬度，根據(jù)自己的需要來設(shè)置即可

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轉(zhuǎn)換為磅(1cm=28.35磅)?:ml-citation{ref="1,8" data="citationList"}
.Height = 4 * 28.35 '4cm轉(zhuǎn)換為磅?: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文件，然后點擊【開發(fā)工具】找到【VisualBasic】在窗口的左側(cè)點擊空白區(qū)域，之后點擊鼠標(biāo)右鍵找到【插入】選擇【模塊】將代碼粘貼到右側(cè)，最后按下F5鍵來運行這個VBA代碼，即可實現(xiàn)批量的修改圖片大小。

至此設(shè)置完畢，Word的VBA代碼一般都比較簡單，DeepSeek來寫代碼正確率都是比較高的，大家可以試一下，之前一些重復(fù)性的工作都可以編寫為代碼，一勞永逸！