Word hujjatingizga bir nechta rasmlarni qanday qilib to'plam qo'shish kerak

Ushbu maqolada biz sizga Word hujjatiga bir nechta rasmlarni to'plamli kiritish usulini taklif qilmoqchimiz.

Word-da rasmlar bilan ishlashda o'zingizni qulay his qilishingiz mumkin. Hujjatga rasm qo'shgandan so'ng, siz uning o'lchamini qo'lda o'zgartirishingiz yoki uning nomini kiritishingiz kerak bo'lishi mumkin. Vazifani avtomatik ravishda bajarish uchun makrosdan foydalanish haqida nima deyish mumkin?

Biz sizga taqdim etmoqchi bo'lgan makro quyidagi funktsiyalarni bajarishga qodir:

1. Birinchidan, u har bir sahifada siz ko'rsatgan rasmlarning aniq sonini kiritadi.
2. Ikkinchidan, u har bir rasm ostiga ism kiritadi.
3. Uchinchidan, siz kiritgan o'lcham raqamlariga ko'ra rasmlarning o'lchamini o'zgartiradi.

Endi keling, buni qanday amalga oshirishimizni ko'rib chiqaylik.

Hujjatga bir nechta rasmlarni to'plam qo'shish

1. Avvalo, barcha rasmlarni bitta papka ostiga qo'yish uchun tartibga soling.
2. Keyin Word-da VBA muharririni ishga tushirish uchun “Alt+ F11” tugmasini bosing.
3. Keyin "Oddiy loyiha" tugmasini bosing.
4. Keyin menyu satrida "Qo'shish" tugmasini bosing.
5. Va ochiladigan menyuda "Modul" ni tanlang.
6. Ikki marta bosish orqali modulni oching va quyidagi kodlarni joylashtiring:

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. Keyin "Ishga tushirish" tugmasini bosing yoki "F5" tugmasini bosing.
8. Makrosni ishga tushirayotganda "Browse" oynasi ochiladi. 1-bosqichda rasmlar saqlaydigan jildni tanlang va “OK” tugmasini bosing.
9. Keyingi "Rasm raqami" maydoniga bitta sahifada kerakli rasmlarning umumiy sonini ko'rsatadigan raqamni kiriting. Va davom etish uchun "OK" tugmasini bosing.
10. "Rasm o'lchamini o'zgartirish" oynasida barcha rasmlarning hajmini o'zgartirish uchun "Ha" tugmasini bosing va uni bekor qilish uchun "Yo'q" ni bosing.
11. Endi "Balandlik va kenglik" maydoniga qiymatlarni kiriting va ajratish uchun verguldan foydalaning. Avval balandlikni, keyin esa kenglikni kiritishni unutmang. Verguldan keyin bo'sh joy qolmaydi.
12. Xuddi shunday, davom etish uchun "OK" tugmasini bosing.

Endi bitta sahifada 2 ta rasm bor va ularning har biri ostida o'z nomi bor. Mana natija:

Ma'lumotlar yaxlitligiga e'tibor bering

Har doim ma'lumotlarni yo'qotish yoki qandaydir tarzda buzilganligi xavfi mavjud. Bu shuni anglatadiki, biz muntazam ravishda ma'lumotlarning yaxlitligini tekshirishimiz kerak. Va bir marta biz biron bir belgi topamiz So'zning shikastlanishi, ma'lumotlarni qayta tiklashning eng yaxshi usuli - ta'mirlash vositasini olish.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc Excelni tiklash va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com