Ձեր Word փաստաթղթում նկարներին սահմաններ ավելացնելու 3 արագ մեթոդ

Բառային լուծումներ Սեպտեմբեր 28, 2025
Կիսվել հիմա ՝

Այս հոդվածում մենք կցանկանայինք քննարկել 3 արագ եղանակներ, թե ինչպես կարելի է սահմաններ ավելացնել ձեր Word փաստաթղթերի նկարներին:

Ինչու՞ պետք է սահմաններ կիրառենք նկարների վրա: Պատասխանն ակնհայտ է. Որոշ նկարներ չափազանց նման են հիմնական բովանդակությանը, ասենք բառերի մի կադր, որը մենք կարող ենք հեշտությամբ շփոթել տեքստերի հետ: Հետևաբար, տեքստի բովանդակությունը նկարներն առանձնացնելու համար օգտվում են հետևյալ 3 մեթոդներից, որոնք մենք պատրաստվում ենք ձեզ ցույց տալ:

Մեթոդ 1. Ավելացնել սահմաններ մեկ նկարին մեկ փաստաթղթում

  1. Նախ ընտրելու համար սեղմեք նկարի վրա:
  2. Այնուհետև կտտացրեք «Ձևաչափ» ներդիրին «Պատկերի գործիքի» տակ:
  3. Այնուհետև սեղմեք «Picture Border» և ընտրեք գույնը:   Ընտրեք նկար->Սեղմեք «Ձևաչափ»->Սեղմեք «Պատկերի եզրագիծ»->Ընտրեք գույնՆկարների եզրագծերի ավելացում

Մեթոդ 2. Ավելացնել սահմաններ բոլոր նկարներին մեկ փաստաթղթում

Ինչպես ցույց է տրված մեթոդ 1-ում, ձեռքով փոխել նկարը մեկ առ մեկ, իսկապես հիանալի գաղափար չէ: Ջանքերը խնայելու համար մակրո-ն այն ճանապարհն է, որը դուք պետք է վերցնեք:

  1. Սtarհետ, սեղմեք «Developer» ներդիրը, այնուհետև «Visual Basic»՝ VBA խմբագրիչը ցուցադրելու համար: Երբ «Developer»-ը հասանելի չէ, փոխարենը պարզապես սեղմեք «Alt+ F11»:Սեղմեք «Կառուցապատող» -> Սեղմեք «Visual Basic»
  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
  1. Վերջապես, բայց ոչ պակաս կարևոր, կտտացրեք «Գործարկել» կոճակին կամ սեղմեք «F5»:Կպցնել ծածկագրերը-> Սեղմել «Գործարկել»

Մեթոդ 3. Ավելացնել սահմաններ բոլոր նկարներին բազմաթիվ փաստաթղթերում

Քանի որ մենք կարող ենք մակրո գրել փաստաթղթում նկարների հետ գործ ունենալու համար, կա նաև բազմաթիվ փաստաթղթերում նկարներ մշակելու միջոց:

Նախևառաջ պետք է կազմակերպել բոլորը tarստանալ փաստաթղթեր նույն գրացուցակում: Այնուհետև հետևեք նույն քայլերին, որոնք ներկայացված են վերևում, մակրո տեղադրելու և գործարկելու համար, բայց այն փոխարինեք հետևյալով.

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. The "C: \ Users \ Public \ Documents \ New folder \«Այս մակրոյում վերաբերում է գրացուցակի ուղուն, որտեղ դուք պահում եք փաստաթղթերը: Եվ երբեք մի մոռացեք ավելացնել վերջինը»\".
  2. Դուք կարող եք փոխել եզրագծերի գույնը՝ փոխելով այն RGB արժեքը.

Ժամանակն է մտածել կրկնօրինակման մասին

Most մեզանից լավ տեղեկացված է եղել, թե ինչ կարող է անել կրկնօրինակը: Այն կարող է լինել ձեր կյանքը փրկելու պահին Բառի վնաս. Այսպիսով, մենք երբեք չպետք է խաթարենք արժեքավոր փաստաթղթերը պահուստավորելու համար րոպեներ ծախսելու ազդեցությունը: Որպես այդպիսին, չի կարելի երաշխավորել նրա տվյալների անվտանգությունը։

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վնասված xlsx և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com

Կիսվել հիմա ՝

Comments փակվում են: