如何把word文档中的图片复制出来?

 
提取Word文档中图片的原图,可以用另存为“网页”的办法,保存后会生成一个与文档同名的文件夹,这里面就有该篇文档所有图形的原图了。注意:不要另存为“单个文件网页”
  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
### 回答1: 以下是 Word 文档批量选图片的 VBA 宏代码: ``` Sub SelectAllPictures() Dim oShape As Shape For Each oShape In ActiveDocument.Shapes If oShape.Type = msoPicture Then oShape.Select msoTrue End If Next End Sub ``` 您可以在 Word 打开 "开发工具",然后在 "模块" 窗口粘贴并运行上面的代码。代码将选择文档的所有图片。 ### 回答2: 在Word批量选图片可以通过宏代码来实现。 首先,打开Word文档并按下“Alt+F11”键打开VBA编辑器。 然后,选择“插入 - 模块”来添加一个新的模块。 接下来,编写宏代码来选图片,代码如下: Sub SelectAllImages() Dim myShape As InlineShape For Each myShape In ActiveDocument.InlineShapes With myShape .Select End With Next myShape End Sub 代码的解释: 1. 使用For Each循环来遍历文档所有的内联形状(图片)。 2. 使用Select方法来选每个形状。 最后,点击VBA编辑器顶部的“运行 - 运行子过程”或按下“F5”键来运行宏。 当运行宏后,所有的图片都会被选。 注意:此代码仅适用于内联图片,无法选浮动图片。 ### 回答3: 批量选Word文档图片可以通过编写一个宏代码来实现。下面是一个简单的示例: 1. 打开Word文档并按下Alt + F11键,打开VBA编辑器。 2. 在VBA编辑器的项目浏览器窗格,双击打开你的文档对象,比如"Microsoft Word Objects" -> "ThisDocument"。 3. 在ThisDocument的代码窗格,输入下面的宏代码: ```vba Sub 选所有图片() Dim shp As Shape ' 遍历文档的所有形状 For Each shp In ActiveDocument.Shapes ' 选图片形状 If shp.Type = msoPicture Then shp.Select (False) End If Next shp End Sub ``` 4. 按下F5键或点击运行按钮来运行宏代码。 5. 这将自动遍历文档的所有形状,如果形状是图片,则会选图片。 请注意,上述示例是一个简单的宏代码,只会选所有图片形状。如果你有特定的选择需求,可以根据自己的实际情况进行修改和扩展。如果需要在其他文档或模板使用这个宏代码,可以将代码复制到对应的文档或模板的VBA编辑器

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值