როგორ ჩავსვათ რამდენიმე სურათი თქვენს Word დოკუმენტში

ამ სტატიაში ჩვენ გვსურს შემოგთავაზოთ მრავალი სურათის ჯგუფური ჩასმის გზა თქვენს Word დოკუმენტში.

თქვენ შეგიძლიათ კომფორტულად იგრძნოთ თავი Word-ში სურათებთან მუშაობისას. სურათის დოკუმენტში ჩასმის შემდეგ, შეიძლება დაგჭირდეთ ხელით შეცვალოთ მისი ზომა ან შეიყვანოთ მისი სახელი. რაც შეეხება მაკროს გამოყენებას დავალების ავტომატურად შესასრულებლად?

მაკრო, რომელსაც ჩვენ წარმოგიდგენთ, შეუძლია შემდეგი ფუნქციები:

1. პირველ რიგში, ის აყენებს თქვენს მიერ მითითებულ სურათების ზუსტ რაოდენობას თითოეულ გვერდზე.
2. მეორეც, ის აყენებს სახელს თითოეული სურათის ქვემოთ.
3. მესამე, ის ცვლის სურათების ზომას თქვენ მიერ შეყვანილი ზომის ნომრების მიხედვით.

ახლა ვნახოთ, როგორ ვამუშავებთ მას.

რამდენიმე სურათის ჯგუფური ჩასმა დოკუმენტში

1. უპირველეს ყოვლისა, მოაწყეთ ყველა სურათი, რომელიც უნდა ჩასვათ იმავე საქაღალდეში.
2. შემდეგ დააჭირეთ ღილაკს "Alt+ F11", რათა გამოიძახოთ VBA რედაქტორი Word-ში.
3. შემდეგ დააჭირეთ "ნორმალური" პროექტს.
4. შემდეგ მენიუს ზოლში დააჭირეთ ღილაკს "ჩასმა".
5. და ჩამოსაშლელ მენიუში აირჩიეთ "მოდული".
6. გახსენით მოდული ორჯერ დაწკაპუნებით და ჩასვით შემდეგი კოდები:

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. შემდეგ დააჭირეთ "Run" ან დააჭირეთ "F5".
8. მაკროს გაშვებისას გამოჩნდება "Browse" ფანჯარა. უბრალოდ აირჩიეთ საქაღალდე, რომელსაც ინახავთ სურათებს 1-ლი ნაბიჯის მიხედვით და დააწკაპუნეთ „OK“.
9. შემდეგ ველში „სურათის ნომერი“ შეიყვანეთ რიცხვი, რომელიც წარმოადგენს თქვენთვის სასურველი სურათების მთლიან რაოდენობას ერთ გვერდზე. და დააჭირეთ "OK" გასაგრძელებლად.
10. "სურათის ზომის შეცვლა" ველში დააწკაპუნეთ "დიახ" ყველა სურათის ზომის შესაცვლელად და "არა" გასაუქმებლად.
11. ახლა ველში „სიმაღლე და სიგანე“ შეიყვანეთ მნიშვნელობები და გამოიყენეთ მძიმით გამოყოფისთვის. დაიმახსოვრე ჯერ სიმაღლე და შემდეგ სიგანე. მძიმის შემდეგ სივრცე არ არის.
12. ანალოგიურად, დააჭირეთ "OK" გადასასვლელად.

ახლა არის 2 სურათი ერთ გვერდზე და თითოეულს აქვს თავისი სახელი მის ქვემოთ. აი შედეგი:

თვალი ადევნეთ მონაცემთა მთლიანობას

ყოველთვის არის მონაცემთა დაკარგვის ან რაიმე სახის კომპრომეტირების რისკი. ეს ნიშნავს, რომ ჩვენ რეგულარულად უნდა შევამოწმოთ მონაცემთა მთლიანობა. და როგორც კი ვიპოვით რაიმე ნიშანს სიტყვის დაზიანება, მონაცემების აღდგენის საუკეთესო გზაა სარემონტო ხელსაწყოს მიღება.

ავტორი შესავალი:

ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის Excel-ის აღდგენა მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად