3 greiti būdai, kaip pridėti kraštines prie „Word“ dokumento paveikslėlių

Šiame straipsnyje norėtume aptarti 3 greitus būdus, kaip pridėti kraštines prie paveikslėlių „Word“ dokumentuose.

Kodėl paveikslėliams taikyti rėmelius? Atsakymas akivaizdus. Kai kurios nuotraukos per daug panašios į pagrindinį turinį, tarkime, žodžių bloko kadras, kurį galime lengvai supainioti su tekstais. Todėl norėdami, kad nuotraukos išsiskirtų, teksto turinys naudojasi šiais 3 metodais, kuriuos jums parodysime.

1 būdas: pridėkite kraštines prie vieno paveikslėlio viename dokumente

1. Pirmiausia spustelėkite paveikslėlį, kad pasirinktumėte.
2. Tada spustelėkite skirtuką „Formatas“, esantį „Paveikslėlio įrankis“.
3. Tada spustelėkite „Paveikslėlio kraštinė“ ir pasirinkite spalvą.   

2 būdas: pridėkite kraštines prie visų nuotraukų viename dokumente

Kaip parodyta 1 metode, rankiniu būdu keisti paveikslėlį po vieną tikrai nėra puiki idėja. Norėdami sutaupyti pastangų, turėtumėte naudoti makrokomandas.

1. Norėdami pradėti, spustelėkite skirtuką „Kūrėjas“, tada „Visual Basic“, kad būtų rodomas VBA redaktorius. Kai „Kūrėjas“ nėra, tiesiog paspauskite „Alt“ + F11.
2. Tada spustelėkite „Normalus“.
3. Tada spustelėkite skirtuką „Įterpti“ ir jo meniu pasirinkite „Modulis“.
4. Dukart spustelėkite naują modulį, kad atidarytumėte kodavimo sritį dešinėje.
5. Dabar ten įklijuokite toliau pateiktą makrokomandą:

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. Paskutinis, bet ne mažiau svarbus dalykas, spustelėkite mygtuką „Vykdyti“ arba paspauskite „F5“.

3 būdas: pridėkite kraštines prie visų paveikslėlių keliuose dokumentuose

Kadangi galime parašyti makrokomandą, kad galėtume tvarkyti nuotraukas dokumente, taip pat yra būdas apdoroti paveikslėlius keliuose dokumentuose.

Visų pirma, visus tikslinius dokumentus reikia sutvarkyti tame pačiame kataloge. Tada atlikite tuos pačius veiksmus, kaip aprašyta aukščiau, kad įdiegtumėte ir paleistumėte makrokomandą, bet pakeiskite ją šia:

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

Pastaba:

1. "C:\Vartotojai\Vieša\Dokumentai\Naujas aplankas\“ šioje makrokomandoje nurodo katalogo kelią, kuriame saugote dokumentus. Ir niekada nepamirškite pridėti paskutinio "\".
2. Galite pakeisti kraštinės spalvą pakeisdami RGB vertė.

Laikas galvoti apie atsarginę kopiją

Dauguma iš mūsų esame gerai informuoti apie atsarginių kopijų kūrimo galimybes. Jos gali išgelbėti gyvybę, kai ištinka sunkumai. Žodžio žala. Taigi mes niekada nesumenkinsime vertingų dokumentų atsarginėms kopijoms skirto protokolo poveikio. Todėl niekas negali garantuoti jo duomenų saugumo.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas xlsx bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com