Cómo insertar por lotes varias imágenes en su documento de Word

En este artículo, nos gustaría ofrecerle la forma de insertar por lotes varias imágenes en su documento de Word.

Puede sentirse cómodo mientras trabaja con imágenes en Word. Una vez que inserte una imagen en el documento, es posible que deba cambiar su tamaño manualmente o ingresar su nombre. ¿Qué tal usar una macro para realizar la tarea automáticamente?

La macro que les vamos a presentar tiene las siguientes funciones:

1. En primer lugar, inserta el número exacto de imágenes que especifica en cada página.
2. En segundo lugar, inserta el nombre debajo de cada imagen.
3. En tercer lugar, cambia el tamaño de las imágenes de acuerdo con los números de tamaño que ingresa.

Ahora veamos cómo lo hacemos funcionar.

Insertar por lotes varias imágenes en el documento

1. En primer lugar, organice todas las imágenes para insertarlas en la misma carpeta.
2. Luego presione "Alt + F11" para invocar el editor de VBA en Word.
3. A continuación, haga clic en el proyecto "Normal".
4. Luego, en la barra de menú, haga clic en "Insertar".
5. Y en el menú desplegable, elija "Módulo".
6. Abra el módulo haciendo doble clic y pegue los siguientes códigos:

Sub InsertSpecificNumberOfPictureForEachPage()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
  Dim objInlineShape As InlineShape
  Dim nResponse As Integer
  Dim strPictureNumber As Integer
  Dim strPictureSize As String
  Dim n As Integer  

  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
  
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox ("No Folder is selected!")
      Exit Sub
    End If
  End With

  strFile = Dir(StrFolder & "*.*", vbNormal)
  strPictureNumber = InputBox("Input the number of the picture for each page", "Picture Number", "For exemple: 1")
  n = 1  

  While strFile <> ""
    Selection.InlineShapes.AddPicture FileName:=StrFolder & strFile, LinkToFile:=False, SaveWithDocument:=True
    Selection.TypeParagraph
    Selection.Collapse Direction:=wdCollapsEnd
    Selection.TypeText Text:=Left(strFile, InStrRev(strFile, ".") - 1)
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    If ActiveDocument.InlineShapes.Count = strPictureNumber * n Then
      Selection.InsertNewPage
      Selection.TypeBackspace
      n = n + 1
    End If
    Selection.TypeParagraph
    strFile = Dir()
  Wend

  For Each objInlineShape In ActiveDocument.InlineShapes
    objInlineShape.Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  Next objInlineShape

  nResponse = MsgBox("Do you want to resize all pictures?", 4, "Resize Picture")
  If nResponse = 6 Then
    strPictureSize = InputBox("Input the height and width of the picture, seperated by comma", "Height and Width", "For exemple:500,500")
    For Each objInlineShape In ActiveDocument.InlineShapes
      objInlineShape.Height = Split(strPictureSize, ",")(0)
      objInlineShape.Width = Split(strPictureSize, ",")(1)
    Next objInlineShape
  End If
End Sub

7. Luego haga clic en "Ejecutar" o presione "F5".
8. Mientras se ejecuta la macro, aparecerá la ventana "Examinar". Simplemente elija la carpeta que guarda las imágenes en el paso 1 y haga clic en "Aceptar".
9. Luego, en el cuadro “Número de imagen”, ingrese un número que represente el número total de imágenes que desea en una sola página. Y haga clic en "Aceptar" para continuar.
10. En el cuadro “Cambiar tamaño de imagen”, haga clic en “Sí” para cambiar el tamaño de todas las imágenes y en “No” para cancelarlo.
11. Ahora, en el cuadro "Alto y ancho", ingrese valores y use una coma para separar. Recuerde ingresar primero la altura y luego el ancho. No hay espacio después de la coma.
12. Del mismo modo, haga clic en "Aceptar" para continuar.

Ahora hay 2 imágenes en una página y cada una tiene su nombre debajo. Aquí está el resultado:

Vigile la integridad de los datos

Siempre existe el riesgo de perder datos o comprometerlos de alguna manera. Esto significa que tenemos que verificar la integridad de los datos con regularidad. Y una vez que encontremos alguna señal de Daño de palabra, la mejor manera de recuperar datos es obtener una herramienta de reparación.

Introducción del autor:

Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo Recuperación de Excel y pdf reparar productos de software. Para más información visite www.datanumen.com