3 სწრაფი მეთოდი სურათებზე საზღვრების დასამატებლად თქვენს Word დოკუმენტში

ამ სტატიაში ჩვენ გვსურს განვიხილოთ 3 სწრაფი მეთოდი, თუ როგორ უნდა დაამატოთ საზღვრები სურათებს თქვენს Word დოკუმენტებში.

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

მეთოდი 1: დაამატეთ საზღვრები ერთ სურათს ერთ დოკუმენტში

1. პირველ რიგში, დააჭირეთ სურათს ასარჩევად.
2. შემდეგ დააჭირეთ "ფორმატი" ჩანართს "Picture Tool"-ში.
3. შემდეგ დააჭირეთ "Picture Border" და აირჩიეთ ფერი.   

მეთოდი 2: დაამატეთ საზღვრები ყველა სურათს ერთ დოკუმენტში

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

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

Sub AddPictureBorders()
  Dim objShape As Shape
  Dim objInLineShape As InlineShape
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objInLineShape In .InlineShapes
      With objInLineShape.Line
        .Style = msoLineSingle
        .ForeColor.RGB = RGB(0, 0, 0)
      End With
    Next
    For Each objShape In .Shapes
      objShape.Fill.Solid
      With objShape.Line
        .Style = msoLineSingle
        .ForeColor.RGB = RGB(0, 0, 0)
      End With
    Next
  End With
End Sub

6. დაბოლოს, მაგრამ არანაკლებ მნიშვნელოვანია, დააჭირეთ ღილაკს "Run" ან დააჭირეთ "F5".

მეთოდი 3: დაამატეთ საზღვრები ყველა სურათს მრავალ დოკუმენტში

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

უპირველეს ყოვლისა, თქვენ უნდა მოაწყოთ ყველა სამიზნე დოკუმენტი ერთ დირექტორიაში. შემდეგ მიჰყევით ზემოთ მოცემულ ნაბიჯებს მაკროს დასაინსტალირებლად და გასაშვებად, მაგრამ შეცვალეთ იგი შემდეგით:

Sub AddPictureBordersInMultiDoc()
  Dim objShape As Shape
  Dim objInLineShape As InlineShape
  Dim objDoc As Document
  Dim strFile As String
  Dim strFolder As String
 
  Set objDoc = ActiveDocument
  strFolder = "C:\Users\Public\Documents\New folder\"
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
    With objDoc
      For Each objInLineShape In .InlineShapes
        With objInLineShape.Line
          .Style = msoLineSingle
          .ForeColor.RGB = RGB(0, 0, 0)
        End With
      Next
      For Each objShape In .Shapes
        objShape.Fill.Solid
        With objShape.Line
          .Style = msoLineSingle
          .ForeColor.RGB = RGB(0, 0, 0)
        End With
      Next
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

შენიშვნები:

1. "C:\Users\Public\Documents\New საქაღალდე\” ამ მაკროში მიუთითებს დირექტორიას გზა, სადაც ინახავთ დოკუმენტებს. და არასოდეს დაგავიწყდეთ ბოლოს დამატება“\".
2. თქვენ შეგიძლიათ შეცვალოთ საზღვრის ფერი შეცვლით RGB ღირებულება.

დროა ვიფიქროთ სარეზერვო ასლზე

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

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

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