word2003怎么批量选中图片，再复制？

Answer 1

在Word中，如何轻松地批量选中并处理图片？

面对领导突如其来的需求，批量选择Word中的所有图片并进行复制，我不得不深入探索一番。这里，我整理了三种实用技巧，帮助你在不借助VBA代码的情况下，高效地完成操作。

一、删除Word中的所有图片

简单快捷：只需按下Ctrl + H，在查找替换框中输入^g，或者选择图形，点击“全部替换”，图片瞬间消失。

二、批量选中Word中的图片

虽然常规的全选图片然后逐个复制并不高效，但我找到了一个巧妙的替代方案。首先全选文档内容（Ctrl + A），然后粘贴到新文档。接下来，在新文档中使用查找替换功能（Ctrl + H），查找内容输入^?或选择任意字符，保持替换框为空，全部替换后，非文本部分——主要是图片——就保留下来了。如果出现表格，可手动删除，剩下的是纯净的图形。

再次全选，图片就已选中，此时你可以复制或剪切到目标文档。

三、批量调整Word中图片大小

对于不写代码的情况，没有现成的简单方法。然而，如果你愿意尝试，VBA提供了一种解决方案。以下是一个VBA代码示例，用于批量调整图片尺寸：

Sub FormatPics()
Dim Shap As InlineShape
For Each Shap In ActiveDocument.InlineShapes
If Shap.Type = wdInlineShapePicture Then
Shap.LockAspectRatio = msoFalse '解除纵横比锁定
Shap.Width = CentimetersToPoints(10) '宽度10厘米
Shap.Height = CentimetersToPoints(7) '高度7厘米
End If
Next
End Sub

通过VBA编辑器（按Alt + F11快速打开），在新建模块中复制粘贴这段代码，保存宏后关闭，运行宏即可批量调整图片大小。

记住，这些技巧可以大大提高你在Word中的图片处理效率，让你在处理文档时更加得心应手。