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

83 respuestas a “Word 2010 (2013): Insertar imagen desde escáner o cámara”

  1. mira yo encontre una forma mas facil de escanear desde office 2013, lo primero que tienes que hacer es conceguirte un OCR como ser ABBY FINE READER he instalarlo, automaticamente se fusiona con office y aparece en la barra de tareas de office 2013, abre world o cualquier aplicacion de office y le das click a ABBY FINE READER y automaticamente escanea un documento editable y con imagenes si este lo tiene, en la ventana previa al escaneo tu configuras las opciones del escaner como sea escanear en color o blanco y negro o escala de grises, le das digitalizar y aparece una ventana que te dice que ya digitalizo y le das detener digitalizacion lo lee y acontinuacion aparece en la pagina de word y listo tienes documentos editables o fotos.

    espero les haya servido este aporte

    gracias

    • Pero eso es con aplicaciones o complementos de terceros y, si bien hay algunos que funcionan al 100% y no producen incompatibilidades, no siempre es así.
      En cualquier caso, gracias por el aporte.

  2. Buenos dias, e instalado recientemente el office 2010 y e intentado utilizar la funcion de escanear desde él pero me da un error continuamente y es que me dice que no reconoce ningun escaner o camara o no se puede establecer coneccion con ningun escaner o camara, es extraño porque con el office 2003 funcionaba perfectamente y el unico cambio fue desintalar el 2003 e instalar el 2010, e utilizado las dos vias, desde la galeria de multimedia e insertando un macro pero en ambos casos me da el mismo error. si podeis darme alguna ayuna o agradeceria mucho,
    muchas gracias de antemano.
    Orlando

  3. 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

  4. 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”.

  5. 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.

  6. 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

  7. 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.

  8. 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?

  9. 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?

  10. 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

  11. 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.

  12. 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.

  13. 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.

Deja un comentario

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.