Word sənədinizdə şəkillərə sərhədlər əlavə etmək üçün 3 sürətli üsul

Bu yazıda Word Sənədlərinizdə şəkillərə sərhədlər əlavə etməyin 3 sürətli üsulunu müzakirə etmək istərdik.

Şəkillərə niyə sərhədlər tətbiq edək? Cavab aydındır. Bəzi şəkillər əsas məzmuna çox bənzəyir, mətnlər üçün asanlıqla səhv edə biləcəyimiz sözlər blokunun kadrını söyləyin. Buna görə də, şəkilləri mətnin məzmunu ilə fərqləndirmək üçün sizə göstərəcəyimiz aşağıdakı 3 metodun faydası var.

Metod 1: Bir sənəddə bir şəkilə sərhədlər əlavə edin

1. Birincisi, seçmək üçün şəklin üzərinə klikləyin.
2. Sonra "Şəkil Aləti" altındakı "Format" sekmesini vurun.
3. Sonra "Şəkil Sərhədi" düyməsini basın və rəng seçin.   

Metod 2: Bir Sənəddə Bütün Şəkillərə Sərhədlər əlavə edin

Metod 1-də göstərildiyi kimi, şəkli bir-bir əl ilə dəyişdirmək həqiqətən yaxşı fikir deyil. Səylərə qənaət etmək üçün makro sizə lazım olan yoldur.

1. Başlamaq üçün VBA redaktorunu göstərmək üçün "Geliştirici" sekmesini, sonra isə "Visual Basic" düyməsini basın. "Geliştirici" mövcud olmadıqda, sadəcə "Alt+ F11" düymələrini basın.
2. Sonra "Normal" düyməsini basın.
3. Sonra "Daxil et" sekmesini vurun və menyusunda "Modul" seçin.
4. Sağ tərəfdə kodlaşdırma sahəsini açmaq üçün yeni modulun üzərinə iki dəfə klikləyin.
5. İndi aşağıdakı makronu ora yapışdırın:

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. Sonuncu, lakin ən azı, "Çalış" düyməsini və ya "F5" düyməsini basın.

Metod 3: Çox Sənəddə Bütün Şəkillərə Sərhədlər əlavə edin

Bir sənəddəki şəkillərlə məşğul olmaq üçün makro yaza bildiyimiz üçün, bir çox sənədlərdə də şəkilləri emal etmək üçün bir yol var.

Hər şeydən əvvəl, bütün hədəf sənədləri eyni qovluqda təşkil etməlisiniz. Daha sonra makro quraşdırmaq və işə salmaq üçün yuxarıda göstərilən eyni addımları izləyin, lakin onu aşağıdakı ilə əvəz edin:

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

Qeydlər:

1. The "C:\Users\Public\Documents\Yeni qovluq\” bu makroda sənədləri saxladığınız kataloq yoluna işarə edir. Və heç vaxt sonuncunu əlavə etməyi unutmayın "\".
2. Haşiyə rəngini dəyişdirərək dəyişə bilərsiniz RGB dəyəri.

Yedəkləmə haqqında düşünməyin vaxtıdır

Əksəriyyətimiz ehtiyat nüsxəsinin nə edə biləcəyi barədə yaxşı məlumatlıyıq. Bu, ehtiyat nüsxəsinin nə vaxt istifadə olunacağı barədə məlumatlıyıq. Sözün zədələnməsi. Beləliklə, qiymətli sənədlərin ehtiyat nüsxəsini çıxarmaq üçün dəqiqələr ayırmağın təsirini heç vaxt pozmayacağıq. Beləliklə, heç kim onun məlumatlarının təhlükəsizliyinə zəmanət verə bilməz.

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 zədələnmiş xlsx və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com