Cada semana, John debe crear una factura e insertar varias imágenes escaneadas en un documento de Word. Se pregunta si hay alguna forma de colocar todas las imágenes JPG de una carpeta en particular en el documento de Word actual.

Hay varias formas de hacer esto. Una forma es simplemente seleccionar todos los gráficos e insertarlos en un solo paso:

  1. Coloque el punto de inserción en el lugar del documento donde desea insertar los gráficos.

  2. Elija Insertar | Imagen | Desde el archivo. Word muestra el cuadro de diálogo Insertar imagen.

  3. Utilice el control Buscar en para localizar la carpeta que contiene las imágenes.

  4. Presione Ctrl + A. Word selecciona todos los archivos de la carpeta.

  5. Haga clic en Aceptar o Insertar, según su versión de Word.

Eso es; Word inserta todos los gráficos en el documento. Deberá tener cuidado al hacer esto, porque si hay muchos (más de, digamos, 100)

gráficos en la carpeta o si los archivos gráficos son bastante grandes, puede ralentizar Word o colgarlo por completo. Si la carpeta contiene más que solo gráficos o si desea solo algunos de los archivos gráficos, puede mantener presionada la tecla Ctrl mientras usa el mouse para seleccionar gráficos en el paso 4. El punto es que cualquier archivo que haya seleccionado en el paso 4, esos son los archivos que Word inserta en su documento.

Una variación de este enfoque implica el uso de Windows. Siga estos pasos generales:

  1. Coloque el punto de inserción en el lugar del documento donde desea insertar los gráficos.

  2. Minimice el documento de Word.

  3. En Windows, muestre la carpeta donde se encuentran las imágenes.

  4. Cree un conjunto de selección de las imágenes que desea insertar en el documento.

  5. Haga clic en cualquier imagen individual en el conjunto de selección y mantenga presionado el botón del mouse.

  6. Arrastre el conjunto de selección sobre la parte superior del documento como aparece en la barra de tareas. (No sueltes el botón del mouse todavía.)

  7. Una vez que Windows muestre el documento de Word (lo que hace después de unos segundos), suelte el botón del mouse.

En este punto, todas las imágenes que seleccionó en el paso 4 se insertan en el documento de Word, al igual que en el método anterior.

Si utiliza cualquiera de los métodos anteriores, deberá cambiar el tamaño de las imágenes y moverlas, según sea necesario, para que su documento se vea como desea.

Por supuesto, si necesita insertar grupos enteros de imágenes de forma rutinaria, seguir estos pasos puede resultar agotador después de un tiempo.

El tedio a menudo se alivia mediante el uso de una macro, y este caso no es una excepción. La siguiente macro se puede utilizar para mostrar un cuadro de diálogo (similar a los utilizados en los métodos anteriores) donde puede seleccionar los archivos que desee. Cuando cierra el cuadro de diálogo, las imágenes que seleccionó dentro del cuadro de diálogo se insertan en su documento, cada una en su propio párrafo.

Sub InsertImages()

Dim doc As Word.Document     Dim fd As FileDialog     Dim vItem As Variant     Dim mg1 As Range     Dim mg2 As Range

Set fd = Application.FileDialog(msoFileDialogFilePicker)

Set doc = ActiveDocument

With fd         .Filters.Add "Images", ".gif; .jpg; *.jpeg", 1         .FilterIndex = 1

If .Show = -1 Then             For Each vItem In .SelectedItems                 Set mg2 = ActiveDocument.Range                 mg2.Collapse wdCollapseEnd                 doc.InlineShapes.AddPicture _                   FileName:=vItem, _                   LinkToFile:=False, SaveWithDocument:=True, Range:=mg2                 Set mg1 = ActiveDocument.Range                 mg1.Collapse wdCollapseEnd

mg1.Text = vbCrLF & vbCrLf             Next vItem         End If     End With

Set fd = Nothing End Sub

Si no quiere molestarse en seleccionar carpetas o archivos, puede usar una macro aún más simple. Lo siguiente extrae todos los archivos JPG de una carpeta específica y los coloca en el documento actual. Cada imagen está en su propio párrafo.

Sub GetPictures()

Dim sPic As String     Dim sPath As String

sPath = "c:\myfolder\"

sPic = Dir(sPath & "*.jpg")



Do While sPic <> ""

Selection.InlineShapes.AddPicture _           FileName:=sPath & sPic, _           LinkToFile:=False, SaveWithDocument:=True         sPic = Dir         Selection.TypeParagraph         Selection.TypeParagraph     Loop End Sub

Para utilizar la macro, asegúrese de cambiar el valor asignado a sPath para que represente la carpeta que desea.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (10726) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Inserting_Multiple_Graphics_in_a_Document [Insertar varios gráficos en un documento].