Word sənədinizə birdən çox şəkil əlavə etmək üçün necə

Bu yazıda sizə Word sənədinizə birdən çox şəkil əlavə etmək üçün bir yol təklif etmək istərdik.

Word-də şəkillərlə işləyərkən özünüzü rahat hiss edə bilərsiniz. Sənədə şəkil daxil etdikdən sonra onun ölçüsünü əl ilə dəyişməli və ya adını daxil etməli ola bilərsiniz. Tapşırığı avtomatik yerinə yetirmək üçün makrodan istifadə etmək necədir?

Sizə təqdim edəcəyimiz makro aşağıdakı funksiyaları yerinə yetirməyə qadirdir:

1. Birincisi, hər səhifədə göstərdiyiniz şəkillərin dəqiq sayını daxil edir.
2. İkincisi, hər şəklin altına ad əlavə edir.
3. Üçüncüsü, daxil etdiyiniz ölçü nömrələrinə görə şəkillərin ölçüsünü dəyişir.

İndi onu necə işlətdiyimizə baxaq.

Toplu Sənədə Çoxlu Şəkillər daxil edin

1. Hər şeydən əvvəl, eyni qovluq altına daxil ediləcək bütün şəkilləri təşkil edin.
2. Sonra Word-də VBA redaktorunu işə salmaq üçün “Alt+ F11” düyməsini basın.
3. Sonra "Normal" layihəsinə klikləyin.
4. Sonra menyu çubuğunda "Daxil et" düyməsini basın.
5. Və açılan menyuda "Modul" seçin.
6. İki dəfə kliklə modulu açın və aşağıdakı kodları yapışdırın:

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. Sonra "Çalış" düyməsini basın və ya "F5" düyməsini basın.
8. Makronu işləyərkən "Gözdən keçir" pəncərəsi açılacaq. Sadəcə 1-ci addımda şəkilləri saxladığınız qovluğu seçin və “OK” düyməsini basın.
9. Sonrakı "Şəkil Nömrəsi" xanasına bir səhifədə istədiyiniz şəkillərin ümumi sayını əks etdirən rəqəm daxil edin. Və davam etmək üçün "OK" düyməsini basın.
10. “Şəklin ölçüsünü dəyişdir” qutusunda bütün şəkillərin ölçüsünü dəyişmək üçün “Bəli” düyməsini, ləğv etmək üçün isə “Xeyr” düyməsini basın.
11. İndi "Hündürlük və Genişlik" xanasına dəyərlər daxil edin və ayırmaq üçün vergüldən istifadə edin. Əvvəlcə hündürlüyü, sonra eni daxil etməyi unutmayın. Vergüldən sonra boşluq yoxdur.
12. Eynilə, davam etmək üçün "OK" düyməsini basın.

İndi bir səhifədə 2 şəkil var və hər birinin altında öz adı var. Nəticə budur:

Məlumatların bütövlüyünə diqqət yetirin

Həmişə məlumatların itirilməsi və ya hər hansı bir şəkildə pozulma riski var. Bu o deməkdir ki, biz mütəmadi olaraq məlumatların bütövlüyünü yoxlamalıyıq. Və bir dəfə hər hansı bir əlamət tapırıq Sözün zədələnməsi, məlumatları bərpa etməyin ən yaxşı yolu təmir aləti əldə etməkdir.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc Excel bərpası və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com