在Word中一次选中所有图片然后删除 您所在的位置:网站首页 word如何只选中图片 在Word中一次选中所有图片然后删除

在Word中一次选中所有图片然后删除

2024-04-18 14:14| 来源: 网络整理| 查看: 265

有时候会写结构差不多的报告,里面有很多插图,第一份写好以后可以作为后面的模板,需要删除里面的插图。插图不多的话,鼠标点点删删也快的。很多时候报告很长,插图很多,比如有300张,点鼠标点的想吐,最好能一次选中所有图片,一次删除。

可以使用word中的“选择多个对象”。“选择多个对象”要求word中形状的“环绕文字”为四周型,不满足“选择多个对象”要求需要先进行图片转形状,然后逐个修改形状的“环绕文字”为四周型。

word文件里面有100—200张图片需要删除,由于不是环绕文字”为四周型的形状,“选择多个对象”无法使用,用一段vba就可以实现图片转形状,“环绕文字”改为四周型。

效果嘛,只能说真香。165页的报告删除插图,只剩22页文字部分。

Sub 图片文字环绕改为四周型() Dim i As Integer Dim sp As Shape Dim lsp As InlineShape i = 0 '图片转形状 For Each lsp In ActiveDocument.InlineShapes lsp.ConvertToShape Next '形状环绕文字改为四周型 For Each sp In ActiveDocument.Shapes sp.WrapFormat.Type = wdWrapSquare i = i + 1 Next MsgBox Format(i, "完成,共转换了0个形状") End Sub

参考教程:B站“Word VBA 分栏、标题批量加批注、改变图片环绕方式”

截图插入word时,word默认图片的环绕文字是嵌入式,可以在word选项——高级——剪切、复制和粘贴中修改。

运行宏的需要将word保存为.docm类型。宏选项在开发工具里面,如果没有开发工具,在word选项——自定义功能区——主选项卡中勾选一下即可。

点开“选择多个对象”,里面没有对象,需要将word另存为.doc。



【本文地址】

公司简介

联系我们

今日新闻

    推荐新闻

    专题文章
      CopyRight 2018-2019 实验室设备网 版权所有