Ir para o conteúdo principal

Como remover todas as imagens do documento no Word?

Se você deseja remover todas as imagens e manter toda a formatação inalterada em um documento, o que fazer? Este tutorial irá mostrar algumas coisas complicadas para remover todas as imagens sem alterar a formatação do documento.

Remova todas as imagens do documento pela função Localizar e Substituir
Remova todas as imagens do documento usando o código VBA
Remova facilmente todas as imagens do documento com o Kutools for Word


Remova todas as imagens do documento pela função Localizar e Substituir

Localizar e substituir A função fornece uma maneira fácil de converter ou remover valores, portanto, você também pode usá-la para remover todas as imagens do documento.

Etapa 1: clique Início > Substituir para abrir o Localizar e substituir janela;

Etapa 2: no Localizar e substituir janela, clique no Mais botão para abrir mais Pesquisar Opções e clique em Destaque > Designere, finalmente, clique no substituir tudo botão. Veja a imagem:

Note: você também pode entrar ^g no Encontre o que diretamente, mantenha a caixa substituir por vazia e clique no botão substituir tudo botão para remover todas as imagens do documento;

Agora, todas as imagens nos documentos atuais são removidas imediatamente, conforme mostrado a imagem abaixo.


Remova facilmente todas as imagens do documento com o Kutools for Word:

A Remover Imagens utilidade de Kutools for Word pode ajudá-lo a remover rapidamente todas as imagens de um intervalo selecionado ou todo o documento conforme necessário. Veja a operação conforme a imagem mostrada abaixo. Baixe e experimente agora! (60-dia de trilha livre)


Remova todas as imagens do documento usando o código VBA

Usar o código VBA é outra maneira mais fácil de remover todas as imagens do documento. Você pode usar um código VBA da seguinte maneira para remover todas as imagens do documento.

Etapa 1: pressione o outro + F11 chaves para abrir o Microsoft Visual Basic para aplicativos janela;

Etapa 2: clique inserção > Módulo, copie e cole o seguinte código VBA no Módulo janela;

Etapa 3: clique no botão Execute botão para aplicar o VBA.

Código VBA: Remova todas as imagens do documento:

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

Agora, todas as imagens nos documentos atuais são removidas imediatamente, conforme mostrado a imagem abaixo.


Remova todas as imagens do documento com o Kutools for Word

Kutools for Word fornece a maneira mais conveniente de remover todas as imagens do documento. Ele pode remover todas as imagens de todo o documento ou todas as imagens da parte selecionada do documento.

Kutools for Word : com mais de 100 suplementos úteis do Word, livre para tentar sem limitação em 60 dias.

Remova as imagens de um intervalo:

1. Selecione o intervalo que contém as imagens que deseja remover e, em seguida, aplique este utilitário clicando em Kutools > Mais > Remover Imagens para removê-los de uma vez. Veja a imagem:

Remova as imagens de todo o documento:

1. Basta habilitar o utilitário clicando em Kutools > Mais > Remover Imagens sem selecionar nenhuma parte do documento. Então uma Kutools for Word caixa de diálogo está aparecendo para lembrá-lo da remoção de todas as fotos. Clique Sim para iniciar a remoção.

Agora, todas as imagens nos documentos atuais são removidas imediatamente, conforme mostrado a imagem abaixo.

Se você deseja ter um teste gratuito deste utilitário, vá para baixe gratuitamente o software primeiro e, em seguida, aplique a operação de acordo com as etapas acima.


Melhores ferramentas de produtividade de escritório

Kutools for Word - Eleve sua experiência com palavras com mais 100 Recursos notáveis!

🤖 Assistente de IA do Kutools: Transforme sua escrita com IA - Gerar conteúdo  /  Reescrever texto  /  Resumir documentos  /  Pergunte para obter informações com base no documento, tudo dentro do Word

📘 Domínio de documentos: Páginas divididas  /  Mesclar Documentos  /  Seleção de exportação em vários formatos (PDF/TXT/DOC/HTML...)  /  Conversão em lote para PDF  /  Exportar páginas como imagens  /  Imprima vários arquivos de uma vez...

Edição de conteúdo: Localização e substituição em lote em vários arquivos  /  Redimensionar todas as imagens  /  Transpor linhas e colunas da tabela  /  Converter tabela em texto...

🧹 Limpeza sem esforço: Varrer Espaços extras  /  Quebras de seção  /  Todos os cabeçalhos  /  Caixas de Texto  /  hiperlinks  / Para mais ferramentas de remoção, acesse nosso Remover Grupo...

Inserções criativas: Inserir Mil Separadores  /  Caixas de seleção  /  botões de rádio  /  QR Code  /  Código de barras  /  Tabela de linhas diagonais  /  Legenda da equação  /  Legenda da Imagem  /  Legenda da Tabela  /  Várias fotos  / Descubra mais no Inserir Grupo...

🔍 Seleções de precisão: Identificar páginas específicas  /  tabelas  /  formas  /  parágrafos de título  / Melhore a navegação com mais Selecione recursos...

Aprimoramentos de estrelas: Navegue rapidamente para qualquer local  /  inserir automaticamente texto repetitivo  /  alternar perfeitamente entre janelas de documentos  /  11 ferramentas de conversão...

👉 Quer experimentar esses recursos? Kutools para Word oferece um 60-day free trial, sem limitações! 🚀
 
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Great reminder about the find & replace>special>graphics option!

Saved me so much work!
This comment was minimized by the moderator on the site
i dont know but some of the graphic is not capturing in replace button.
This comment was minimized by the moderator on the site
Wow, yes thank you. Several other previous matches did not work.
This comment was minimized by the moderator on the site
Thank you so much for this how to - it saved me HOURS of work taking photos out of a document!! nancy
This comment was minimized by the moderator on the site
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.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations