提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

如何从Word文档中删除所有图片?

如果您想要删除所有图片并在文档中保持所有格式不变,您将如何操作? 本教程将向您展示一些棘手的事情,在不更改文档格式的情况下删除所有图片。

通过查找和替换功能删除文档中的所有图片

使用VBA代码删除文档中的所有图片

使用Kutools for Word轻松删除文档中的所有图片


使用Kutools for Word轻松删除文档中的所有图片:

在此 删除图片 实用程序 Kutools for Word 可以帮助您根据需要快速删除选定范围或整个文档中的所有图片。 看到如下图所示的操作。

Kutools for Word:拥有超过100便利的Word插件,可以免费试用30时间不受限制。 下载并免费试用现在!


通过查找和替换功能删除文档中的所有图片

热卖
惊人! 使用Word(Office)中的高效选项卡,如Chrome,Firefox和新Internet Explorer!

了解更多 免费下载

查找和替换 函数为值转换或删除提供了一种简便的方法,因此您还可以使用它来从文档中删除所有图片。

步骤1:点击 主页 > 更换 打开 查找和替换 窗口;

步骤2:在 查找和替换 窗口,点击 更多 按钮来调出更多 搜索 选项,然后单击 特别 > 图像,最后点击 “全部替换” 按钮。 看截图:

注意:你也可以输入 ^g查找内容 直接保留箱子的空白,然后点击 “全部替换” 按钮从文档中删除所有图片;

现在,当前文档中的所有图片都会立即删除,如下图所示。


使用VBA代码删除文档中的所有图片

使用VBA代码是从文档中删除所有图片的另一种更简单的方法。 您可以按如下方式使用VBA代码从文档中删除所有图片。

步骤1:按下 其他 + F11 键打开 Microsoft Visual Basic for Application 窗口;

步骤2:点击 插页 > 模块,将以下VBA代码复制并粘贴到 模块 窗口;

步骤3:点击 按钮来应用VBA。

VBA代码:删除文档中的所有图片:

Sub DitchPictures()Dim objPic As InlineShape For Each objPic In ActiveDocument.InlineShapes objPic.Delete Next objPic End Sub

现在,当前文档中的所有图片都会立即删除,如下图所示。


使用Kutools for Word删除文档中的所有图片

Kutools for Word 提供了从文档中删除所有图片的最方便的方法。 它可以删除整个文档中的所有图片或文档选定部分的所有图片。

Kutools for Word :与超过60方便的Word插件, 免费试用30天无限制.

删除范围内的图片:

1。 请选择包含要删除的图片的范围,然后单击应用此实用程序 Kutools > 更多 > 删除图片 立即删除它们。 看截图:

从整个文档中删除图片:

1。 通过单击启用该实用程序 Kutools > 更多 > 删除图片 而不选择文件的任何部分。 然后a Kutools for Word 弹出对话框提醒您删除所有图片。 点击 开始移除。

现在,当前文档中的所有图片都会立即删除,如下图所示。

如果您想免费试用此实用程序,请转到 免费下载该软件 首先,按照上述步骤进行操作。


Office Tab - 在Word中选项卡式浏览,编辑和管理多个文档:

Office选项卡将Web浏览器(如Google Chrome,Internet Explorer新版本和Firefox)中显示的选项卡式界面带入Microsoft Word。 它 是一个省时的工具,在你的工作中无可替代。 见下面的演示:

点击免费试用Office Tab!

演示:使用Kutools for Word轻松删除文档中的所有图片




推荐的Word生产力工具

Kutools For Word - 超过100 Word的高级功能,节省您的50%时间

  • 复杂和重复的操作可以在几秒钟内完成一次性处理。
  • 一次将多个图像跨文件夹插入Word文档。
  • 将多个文件夹合并并组合成一个具有所需订单的文件。
  • 根据标题,分节符或其他标准将当前文档拆分为单独的文档。
  • 在Doc和Docx,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等等......
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Crystine · 1 years ago
    Great reminder about the find & replace>special>graphics option!

    Saved me so much work!
  • To post as a guest, your comment is unpublished.
    jyoti · 2 years ago
    i dont know but some of the graphic is not capturing in replace button.
  • To post as a guest, your comment is unpublished.
    Paul · 2 years ago
    Wow, yes thank you. Several other previous matches did not work.
  • To post as a guest, your comment is unpublished.
    Nancy · 3 years ago
    Thank you so much for this how to - it saved me HOURS of work taking photos out of a document!!

    nancy
  • To post as a guest, your comment is unpublished.
    bap · 5 years ago
    Your code will only remove inlineshapes, consider the following as I have sometimes seen problems when using collections


    Do While ActiveDocument.Shapes.count > 0
    ActiveDocument.Shapes(1).Delete
    Loop

    Do While ActiveDocument.InlineShapes.count > 0
    ActiveDocument.InlineShapes(1).Delete
    Loop

    I use these when changing a file to text only. I also convert all tables to tab delmited

    Do While ActiveDocument.Tables.count > 0
    ActiveDocument.Tables(1).ConvertToText Separator:=wdSeparateByTabs
    Loop


    I have not seen any problems with do while loops, but have occasionally when deleting from a collection that I am playing with

    I alternatively use .count to get a total of items and use a for next with a step -1 to work on them backwards.

    By the way, I work on a Mac and objects sometimes act funny and some windows VBA objects are not even available.