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 str strPicture Dim As InStr Dim String As InlineShape As InlineShape Dim In gFile = Application.FileDialog(msoFileDialogFolderPicker) Cu dlgFile If .Show = -1 Then StrFolder = .SelectedItems(1) & "\" Else MsgBox ("Nu este selectat niciun folder!") Exit Sub End If End With strFile = Dir(StrFolder & "*.*", vbNormal) strPictureNumber = InputBox("Introduceți numărul imaginii pentru fiecare pagină", ​​"Picture Number", "De exemplu: 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 = wdInlineParagraphDocument. .Count = strPictureNumber * n Apoi Selection.InsertNewPage Selection.TypeBackspace n = n + 1 End If Selection.TypeParagraph strFile = Dir() Wend Pentru fiecare objInlineShape din ActiveDocument.InlineShapes objInlineShape.Select Selection. pune = MsgBox("Doriți să redimensionați toate imaginile?", 4, "Redimensionați imaginea") If nResponse = 6 Then strPictureSize = InputBox ("Introduceți înălțimea și lățimea imaginii, separate prin virgulă", "Înălțime și lățime", „De exemplu:500,500”) Pentru fiecare objInlineShape din ActiveDocument.InlineShapes objInlineShape.Height = Split(strPictureSize, ",")(0) objInlineShape.Width = Split(strPictureSize, ",")(1) Următorul objInlineShape End If End

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