Word 2010 (2013): Insertar imagen desde escáner o cámara

Publicidad


Artículo

¿Cómo puedo insertar una imagen desde el escáner?

Es una consulta frecuente en los foros ya que tanto en Word 2007 como en el 2010 ‘ha desaparecido’ el comando para hacerlo como sí existía en el 2003: Insertar – Imagen – Desde escáner o cámara (Imagen 1)

Hay un artículo en la KB de Microsoft con una solución para hacerlo con Word 2007

La manera de insertar imágenes desde un escáner en Word 2010 se hace desde la Galería Multimedia: Botón Inicio – Todos los programas – Microsoft Office – Herramientas de Office: Galería Multimedia de Microsoft , menú Archivo – Agregar clips a la galería: desde escáner o cámara (Imagen 2)

Una vez obtenida se inserta en Word mediante Insertar – Imágenes prediseñadas

Hoy me he encontrado con una respuesta de la MVP Mónica May en la que hace referencia a  una solución, mediante una macro.

La macro está en el siguiente enlace: Scanning into Word 2007/2010 y su autor es otro MVP, Herb Tyson

NOTA: para Word 2013 también están los pasos en ese mismo enlace y aquí, en el comentario 3956, Ramón nos lo expone desde otro enlace distinto, pero adaptado a nuestro idioma/teclado. (Gracias, Ramón)

El contenido de la macro es el siguiente:

Sub InsertFromScanner()
On Error Resume Next
WordBasic.InsertImagerScan
End Sub

Método completo:

Abrir Word

La ficha Programador deberá estar a la vista, para ello acceder a la ficha:

Archivo – Opciones – Personalizar la cinta de opciones, marcar la ficha Programador y Aceptar

[Forma sencilla]:

Desde la ficha Programador – Macros, damos un nombre a la macro (por ejemplo, Escáner) y pulsamos en Crear, se abre el Editor de Visual Basic en un nuevo módulo, seleccionamos todo el contenido que aparece en la ventana del código, borramos (Imagen 3)

y pegamos el contenido de la macro citada (Imagen 4)

Podemos modificar lo que va a ser el nombre de la macro “InsertFromScanner” por, por ejemplo, “Escáner”

Cerramos el editor.

Para insertar una imagen desde el escáner, una vez tengamos la macro creada, sólo tenemos que pulsar sobre la ficha Programador – Macros y seleccionando la macro “Escáner” (o el nombre que hayamos definido), pulsar Ejecutar (Imagen 5)

Se nos abrirá la ventana para seleccionar el escáner o cámara desde la cuál insertar así como la resolución y si deseamos agregar la imagen a la Galería multimedia (Imagen 6)

Si se utiliza la macro frecuentemente el siguiente paso sería colocar un botón en la barra de acceso rápido o agregarlo en un grupo y/o ficha de la Cinta de Opciones para ejecutar la macro desde él:

Archivo – Opciones – Barra de herramientas de acceso rápido – Comandos disponibles en: Macros seleccionar “Normal.NewMacros.Escáner” en la zona izquierda y pulsar en Agregar (a la zona derecha)
Seleccionando este comando desde la zona derecha y pulsando en Modificar podremos cambiar el botón  para diferenciarlo  y también el nombre mostrado, ejemplo (Imagen 7)

En Excel 2010 insertar una macro o módulo con la instrucción:
Sub Imagen()
On Error Resume Next
Application.CommandBars.FindControl(ID:=1764).Execute
End Sub

Word 2010: Insertar imagen desde escáner o cámara

¿Has encontrado ayuda en este blog?

Si quieres puedes hacer un pequeño aporte para mantenerlo

G R A C I A S

I M P O R T A N T E

Los artículos están realizados para ayudar y orientar a los usuarios, si tienes dudas o consultas NO las plantees en los artículos, hazlo en los FOROS y COMUNIDADES de USUARIO.

Palel  

Publicidad


72 pensamientos sobre “Word 2010 (2013): Insertar imagen desde escáner o cámara

  1. Muchas gracias este tipo de vídeos y artículos nos ayudan mucho a los que día a día sufrimos la nueva versión de Office.

  2. Pingback: Articulo Indexado en la Blogosfera de Sysmaya

  3. Como se suele decir “muy bien traido”.
    Como ha dicho otro compañero esto nos ayuda a enfrentarnos a la nueva version.
    Gracias.

  4. Pilar, muchisimas gracias, no tienes idea de lo que liaba para poder escanear directamente en Word.
    Son pasos muy sencillos y bien explicados, no hace falta ver el video si tienes un poco de conocimiento.
    Muchas gracias, en serio xD

  5. Desde que tengo Windows 7 me da error al insertar una imágen con Word, desde escaner tanto con office 2007 como con office 2010.
    Además si ejecuto la Galeria multimedia de Microsoft (microsoft officeherramientas de microsoft), al tratar de insertar una imágen desde escaner me dice que Clip Organizer dejó de funcionar, que se buscará una solución y tal y que el programa se cerrará.

    • ¿Tienes las dos versiones de Office instaladas en el mismo equipo? Hay algo en esa instalación que está interfiriendo en el buen funcionamiento.
      Quizás algún complemento ¿¿?? Revísalos y desactiva o quita cualquiera que pueda ser el culpable y/o repara la instalación de Office.

  6. Te agradezco muchísimo el tutorial, es magnífico y extremadamente útil. Me ha funcionado perfetamente. Pero me permito pedirte otro favor: He intentado hacer lo mismo en Publisher 2010 y no me funciona. Probablemente el contenido de texto de la macro deba ser diferente pero no consigo que funcione. ¿Podrías indicarme si conoces que debería poner en una macro para insertar desde escaner en Publisher 2010?. Muchas gracias de antemano.

  7. gracias por tu nota me salvo la vida, solo tengo una duda,

    trate de hacer lo mismo en publisher y no funciona, si tuevieras la explicacion te lo agradeceria mucho

    saludos, buen articulo

  8. hay algo mas sencillo que todo este follón, el cuál, ya probé con resultados no muy buenos ya que daba conflictos!!!
    La solución es usar la opción de Windows Fax and Scan. Con esa utilidad además de poder enviar faxes por teléfono con la utilización adecuada de un módem… también nos dá la opción enviar Imágenes y documentos escaneados, sin perjuicio de poder agregar el típico texto que queramos incluir en el e-mail.
    Gracias, no obstante, a la autora del “gadget de programación” por su aportación, para insertar…. pero a mí no me ha dado mas que problemas! Y he tenido que volver a dejarlo como estaba! Mi sistema operativo es Windows 7 – 64 bits.

    saludos

    • Gracias por tu aporte.
      El caso es que este artículo es para insertar imágenes directametente en documentos Word, no para enviarlos por correo o por fax.
      Allí queda también tu proceso para que pueda ser adoptado por quienes quieran.

  9. Pingback: Internet is a series of Blogs (XCVI) | NotiGeek

  10. Pingback: Internet is a series of Blogs (XCVI) | EmaCorp News

  11. Pingback: Desviaciones: Semana 3 - Agosto | El poder de las ideas

  12. Pingback: Internet is a series of Blogs (XCVI) - La Isla Buscada

  13. Hola. Gracias por el macro y la explicación pero yo tengo u problema que no me sale activa la pestaña de insertar eso porque puede ser?

  14. Muchas gracias por la explicación tan clara.
    ¿Cobrarán mucho los figuras que diseñan las interfaces-laberintos?
    Un saludo desde Galicia.

  15. Muchísimas gracias, ni siquiera nuestros técnicos informáticos han sido capaces de dar con la solución. Nos has salvado nuestro trabajo del día a día.

  16. Muchas Gracias por tu ayuda Pilar, la verdad es excelente, pero tengo una pequeña duda, puede ser que este a la visto pero no logro ver, como puedo visualizar de donde sale lo que se gráfica en el Bloc de notas??, favor si pudieras ayudarme te lo agradezco desde ya.
    saludos y muchísimas gracias por ayudar a la comunidad. desde Chile.

  17. Excelente tutorial..llevaba varios días tratando de solucionar y me ha funcionado sin problema alguno acá en la compañía..Mil gracias por compartir tu conocimiento!..saludos desde SV.

  18. Hola Pilar: Te escribo desde Argentina, antes que nada muchas gracias por compartir tus conocimientos, tengo un problema, cuando termina el escaneo la imagen se ve incompleta, falta una parte, a que se podrá deber, si tienes alguna pista te lo agradecería, uso word 2010.
    Saludos, Alejandra.

  19. La verdad es que es un atajo, pero la comodidad de antes…. Con esto pasa como con todo: avanzan mucho, pero siempre se pierde algo útil por el camino. Lo mismo me pasa con los smartphones que antes podía enlazar via bluetooth con el pc y llamar y mandar sms y ahora no.
    Podrían los desarrolladores hacer algo de caso a los usuarios para mejorar los productos

  20. Cada vez que inicio un documento debo hacer este paso del macro, no hay opcion de que quede grabado y que el icono que uno cree funcione siempre? debo hacerlo por cada documento a escanear, q problema es el q tengo?

  21. Muchas gracias Pilar Arguiñáriz, por este explícito tutorial está muy bien explicado, esperamos que siga nutriéndonos con más tutoriales de este tipo.

    Nos gustaría preguntarle, como lo haríamos en Office Word 2013?

  22. Esta muy bien el articulo y el video muy bien explicado.

    Ahora bien; hay alguna diferencia con un Sistema Operativo a 32bit y otro a 64bit, ya que, todo estuvo muy bien con el OS de 32bit; pero cuando lo intento con uno de 64bits me sale el siguiente mensaje “No se pudo establecer la conexión con el escáner o la cámara. Revise la conexión y vuelva a instalar el controlador si es necesario.

    Porfa, dame una pequeña explicación con relación a esto.

    • ¿El sistema operativo o el Office de 64?
      El artículo y el vídeo están realizados en un sistema de 64 bit, pero con Office de 32.

  23. GRACIAS MI AMOR ERES UNA FREGONA TE MANDO MIL BESOS PARA TI SOLITA APARTE DE GUAPA INTELIGENTE GRACIAS MI VIDA ME AYUDO COMO NO T IMAGINAS

  24. De nuevo Microsoft se aleja de los usuarios e impide el escaneo directo desde Word 2013. Se han “cargado” la instrucción en WordBasic y no encuentro alternativas válidas.

    ¿Por qué se empeñan en complicarnos la vida?

    Pilar, sabes si los “genios” de Richmond nos dan alguna alternativa realmente válida? No me vale ir a la galería y escanear allí, que, por cierto, no sé si se puede.

    Otrosi, los WordArt de 2013 son una auténtica birria si los comparamos con los que tienen las versiones anteriores, en especial la 2010. ¿Vamos hacia atrás como los cangrejos?

    Veo que no quieres que te hagamos consultas. Si decides responder, la comunidad te lo agradecerá, seguro.

    Salu2
    Ramon Díez

    • Buscando por Internet, he dado con la codificación Visualbasic que ha desarrollado Günter Born.

      Os dejo el enlace:
      http://www.borncity.com/blog/2013/02/04/scanning-in-word-2013/

      Cuidadín, hay que activar primero el módulo “Windows Image Acquisition Library”.

      Como hay algunos temas con las comas y comillas (él trabaja con teclado alemán), os paso el código con nuestro teclado que, naturalment, funciona.

      ‘ Scan for Word 2013
      ‘ Author: Günter Born http://www.borncity.de blog.borncity.com
      ‘ Implements a Scan function in Word 2013

      Private Declare Function GetTempPath Lib “kernel32″ Alias “GetTempPathA” (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

      Private Function TempPath() As String
      Const MaxPathLen = 256 ‘ Max path length
      Dim FolderName As String ‘ Folder name
      Dim ReturnVar As Long ‘ Return Value
      FolderName = String(MaxPathLen, 0)
      ReturnVar = GetTempPath(MaxPathLen, FolderName)
      If ReturnVar 0 Then
      TempPath = Left(FolderName, InStr(FolderName, Chr(0)) – 1)
      Else
      TempPath = vbNullString
      End If
      End Function

      Sub Scan()

      ‘ Scan Macro, to be invoked in Word

      On Error Resume Next
      Dim objCommonDialog As WIA.CommonDialog
      Dim objImage As WIA.ImageFile
      Dim strDateiname
      ‘ instantiate Scan WIA objects
      Set objCommonDialog = New WIA.CommonDialog
      Set objImage = objCommonDialog.ShowAcquireImage
      strDateiname = TempPath & “Scan.jpg” ‘ set temporary file
      If Not objImage Is Nothing Then
      Kill strDateiname
      objImage.SaveFile strDateiname ‘ save into temp file
      Selection.InlineShapes.AddPicture strDateiname ‘ insert in doc
      Set objImage = Nothing
      End If
      Set objCommonDialog = Nothing
      ‘MsgBox strDateiname ‘test output
      End Sub

      Salu2
      Ramon Díez

    • En el mismo artículo que enlazo del autor de la macro está añadida la forma de hacerlo con el 2013 :-)

      Respecto a las consultas y la Comunidad, espero que estas se hagan justamente en los foros de las Comunidades puesto que allí se encuentran la mayoría de respuestas a nuestras dudas y problemas.
      En un blog, generalmente, solo está el autor del blog, sin embargo en los foros de las Comunidades estamos muchas personas y cada una de ellas puede ir aportando; por lo tanto es la mejor manera de retroalimentarnos todos.

      Gracias por tu aporte.

  25. Pingback: El primer aniversario de palel.es | Soluciones, trucos, ayudas sobre Outlook, Office, Windows . . . | El Blog de PALEL

  26. Hola quice hacer lo con un office 2010 de 64 bits y truena, en el de 32 jala sin problemas, manda la leyenda de que no se puedo conectar con el escáner….. en el de 32 no importa si el os es de 32 o 64

    • Solo funciona en Office de 32.
      No es nada recomendable para la inmensa mayoría de usuarios el instalar Office de 64:
      “La versión @ 64 bits de Office 2010 estará disponible, sin embargo fuertemente recomendamos que la mayoría de los usuarios instalen la versión de 32 bits en ambos sistemas tanto con sistemas operativos de 32 como de 64 bits ya que muchas funciones no operarán en la versión de 64 bits. Esta versión estará disponible para usuarios que usen archivos muy grandes, componentes de programación conocidos como DataSets o archivos de Excel que manejen más de 2 GB de memoria”.

  27. Hola chicos, la version para Word 2013 aqui os la dejo con las comillas , las comas , los espacios y todo bien puesto para nuestro teclado en Español. A mi me funciona (W764b), la version de unos comentarios mas arriba me daba problemas. A disfrutarla.

    ‘ Scan for Word 2013
    ‘ Author: Günter Born http://www.borncity.de blog.borncity.com
    ‘ Implements a Scan function in Word 2013

    Private Declare PtrSafe Function GetTempPath Lib “kernel32″ Alias “GetTempPathA” (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

    Private Function TempPath() As String
    Const MaxPathLen = 256 ‘ Max path length
    Dim FolderName As String ‘ Folder name
    Dim ReturnVar As Long ‘ Return Value
    FolderName = String(MaxPathLen, 0)
    ReturnVar = GetTempPath(MaxPathLen, FolderName)
    If ReturnVar = 0 Then
    TempPath = Left(FolderName, InStr(FolderName, Chr(0)) – 1)
    Else
    TempPath = vbNullString
    End If
    End Function

    Sub scan()

    ‘ Scan Macro, to be invoked in Word

    On Error Resume Next
    Dim objCommonDialog As WIA.CommonDialog
    Dim objImage As WIA.ImageFile
    Dim strDateiname
    ‘ instantiate Scan WIA objects
    Set objCommonDialog = New WIA.CommonDialog
    Set objImage = objCommonDialog.ShowAcquireImage
    strDateiname = TempPath & “Scan.jpg” ‘ set temporary file
    If Not objImage Is Nothing Then
    Kill strDateiname
    objImage.SaveFile strDateiname ‘save into temp file
    Selection.InlineShapes.AddPicture strDateiname ‘ insert in doc
    Set objImage = Nothing
    End If
    Set objCommonDialog = Nothing
    ‘MsgBox strDateiname ‘test output
    End Sub

Puedes dejar tu comentario (CONSULTAS NO, por favor) GRACIAS