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來寫代碼正確率都是比較高的，大家可以試一下，之前一些重復性的工作都可以編寫為代碼，一勞永逸！