Cum să inserați în lot mai multe imagini în documentul dvs. Word

În acest articol, am dori să vă oferim modalitatea de inserare în lot a mai multor imagini în documentul dvs. Word.

Vă puteți simți confortabil în timp ce lucrați cu imagini în Word. Odată ce ați inserat o imagine în document, poate fi necesar să o redimensionați manual sau să introduceți numele acesteia. Ce zici de utilizarea unei macrocomenzi pentru a efectua automat sarcina?

Macrocomanda pe care vi-o vom prezenta este capabilă de următoarele funcții:

1. În primul rând, inserează numărul exact de imagini pe care îl specificați în fiecare pagină.
2. În al doilea rând, inserează numele sub fiecare imagine.
3. În al treilea rând, redimensionează imaginile în funcție de dimensiunile pe care le introduceți.

Acum să vedem cum îl facem să funcționeze.

Inserați în lot mai multe imagini în document

1. Mai întâi de toate, aranjați toate imaginile pentru a fi inserate în același folder.
2. Apoi apăsați „Alt+ F11” pentru a invoca editorul VBA în Word.
3. Apoi faceți clic pe proiect „Normal”.
4. Apoi, în bara de meniu, faceți clic pe „Inserare”.
5. Și în meniul drop-down, alegeți „Modul”.
6. Deschideți modulul făcând dublu clic și lipiți următoarele coduri:

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. Apoi faceți clic pe „Run” sau apăsați „F5”.
8. În timp ce rulați macrocomandă, va apărea fereastra „Răsfoiți”. Doar alegeți folderul în care păstrați imaginile la pasul 1 și faceți clic pe „OK”.
9. Apoi, în caseta „Număr imagine”, introduceți un număr reprezentând numărul total de imagini pe care doriți într-o singură pagină. Și faceți clic pe „OK” pentru a continua.
10. În caseta „Redimensionare imagine”, faceți clic pe „Da” pentru a redimensiona toate imaginile și pe „Nu” pentru a o anula.
11. Acum, în caseta „Înălțime și lățime”, introduceți valori și utilizați virgulă pentru a separa. Nu uitați să introduceți mai întâi înălțimea și apoi lățimea. Nu există spațiu după virgulă.
12. În mod similar, faceți clic pe „OK” pentru a continua.

Acum există 2 imagini într-o pagină și fiecare are numele ei dedesubt. Iată rezultatul:

Țineți cont de integritatea datelor

Există întotdeauna riscul de a pierde date sau de a le compromite cumva. Aceasta înseamnă că trebuie să verificăm în mod regulat integritatea datelor. Și odată ce găsim vreun semn de Deteriorarea cuvintelor, cea mai bună modalitate de a recupera datele este să obțineți un instrument de reparare.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv Recuperare Excel și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com