Ir para o conteúdo principal

Como inserir foto ou imagem de scanner ou câmera no Word?

Você pode ter problemas ao inserir imagens do scanner ou câmera no Word 2007 e versões posteriores, pois a Microsoft removeu a opção de inserir uma imagem de um scanner ou câmera que estava disponível apenas no Word 2003. Este tutorial mostrará vários métodos de inserção de imagens do scanner ou câmera no Word 2007 e versões posteriores.

Insira a imagem do scanner ou câmera no Word usando atalhos

Insira a imagem do scanner ou câmera no Word criando Macro

Insira a imagem do scanner ou câmera no Word com o Kutools for Word


Insira a imagem do scanner ou câmera no Word usando atalhos

Se você estiver usando o Word 2007 ou Word 2010, poderá acessar rapidamente o Inserir imagem do scanner ou câmera utilidade da seguinte forma:

1. Por favor, primeiro pressione outro chave no Word 2007 ou Word 2010 e, em seguida, continue digitando a sequência de teclas do menu ips
no seu teclado, e ele exibirá o Inserir imagem do scanner ou câmera diálogo.

Depois de digitar outro primeiro e i chave, você verá um Super Dica como se segue:

Depois de digitar p e s chave, vai aparecer o Inserir imagem do scanner ou câmera diálogo.

Então você pode escolher a imagem do dispositivo por meio do Inserir imagem do scanner ou câmera diálogo.


Insira a imagem do scanner ou câmera no Word criando Macro

1. Em primeiro lugar, você deve criar um Macro para o seu documento do Word. Por favor clique Ver > Macros > Ver Macros. Veja a imagem:

doc inserir imagem do scanner 1

2. Depois de clicar Ver Macros, haverá um Macros caixa de diálogo aparecendo. Debaixo Nome da macro, digitar "Escanear”; selecionar Normal. ponto (global modelo) do Macros em lista suspensa. Então clique Crie. Veja a imagem:

doc inserir imagem do scanner 2

3. E agora, um Janela Microsoft Visual Basic for Applications aparecer, copie e cole o código a seguir na caixa de diálogo localizada entre Sub scan e Subir final Linhas.

Código em 2013 e versão posterior:

On Error Resume Next
     Dim objCommonDialog As WIA.CommonDialog
     Dim objImage As WIA.ImageFile
     Dim strDateiname
     Set objCommonDialog = New WIA.CommonDialog
     Set objImage = objCommonDialog.ShowAcquireImage
     strDateiname = Environ("temp") & "\Scan.jpg"
     If Not objImage Is Nothing Then
       Kill strDateiname
       objImage.SaveFile strDateiname
       Selection.InlineShapes.AddPicture strDateiname
       Set objImage = Nothing
     End If
     Set objCommonDialog = Nothing

doc inserir imagem do scanner 3

Código em 2007 e 2010:

On Error Resume Next
WordBasic.InsertImagerScan

doc inserir imagem do scanner 4

4. Agora, você deve clicar Ferramentas > Referências para ir para o Referências - Normal caixa de diálogo, escolha e marque Biblioteca de aquisição de imagens do Microsoft Windows opção, veja a captura de tela:

doc inserir imagem do scanner 5

5. Então clique OK para fechar a caixa de diálogo, e agora, pressione F5 chave para executar este código.

Note: Certifique-se de que o scanner esteja ligado e conectado ao computador


Insira a imagem do scanner ou câmera no Word com o Kutools for Word

Com o Kutools for Word'S Do scanner ou câmera utilitário, você pode se livrar dessas operações irritantes e inserir facilmente a imagem do scanner ou câmera no word.

Kutools for Word : com mais de 100 suplementos úteis do Word, grátis para testar sem limitação em 60 dias. 

1. Posicione o cursor onde deseja inserir a imagem.

2. Em seguida, aplique este utilitário clicando em Kutools > Mais > Do scanner ou câmera. Veja a imagem:

3. Depois de clicar Do scanner ou câmera, ele exibirá o Inserir imagem do scanner ou câmera diálogo.

R: Sob dispositivo, selecione o dispositivo relacionado do qual deseja importar a imagem.

B: Selecione qualquer Resolução .

C: Clique inserção para começar a inserir.

Note: Este utilitário não pode ser aplicado para Word 2013 e versões posteriores.

Clique para baixar o Kutools for Word e testar gratuitamente agora!

Para informações mais detalhadas sobre Kutools for Word'S Do scanner ou câmera utilitário, visite: Do scanner ou câmera.


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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This should work in most versions 64 or 32 bit Add reference to Microsoft Windows Image Acquisition x2.0 Sub Scan() Dim objCommonDialog As WIA.CommonDialog Dim objImage As WIA.ImageFile Dim strScanName As String ' instantiate Scan WIA objects Set objCommonDialog = New WIA.CommonDialog Set objImage = objCommonDialog.ShowAcquireImage strScanName = Environ$("TEMP") & "\Scan.jpg" ' set temporary file If Not objImage Is Nothing Then If Dir(strScanName) "" Then Kill strScanName objImage.SaveFile strScanName 'save into temp file DoEvents 'Word Selection.InlineShapes.AddPicture strScanName ' insert in doc End If End Sub
This comment was minimized by the moderator on the site
I have followed ALL the instructions for loading a picture from my scanner and all that happens is a empty box outline appears on my Word 10 page?? Your help is sort. David 76 yrs young
This comment was minimized by the moderator on the site
Wow! supereasy. Thank you!
This comment was minimized by the moderator on the site
Thanks a lot for this very helpful article! The keyboard shortcut and the macro both work like a charm!
This comment was minimized by the moderator on the site
such an amazing and helpful.
This comment was minimized by the moderator on the site
So I created a Macro using the code you supplied, thank you, i was wondering if there was a way to go further and include code for the selection that you make once that Insert Image window pops up. Thanks
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations