Word құжатындағы суреттерге жиектерді қосудың 3 жылдам әдісі

Бұл мақалада біз Word құжаттарындағы суреттерге жиектерді қосудың 3 жылдам әдісін талқылағымыз келеді.

Неліктен біз суреттерге жиектерді қолданамыз? Жауабы анық. Кейбір суреттер негізгі мазмұнға тым қатты ұқсайды, мәтіндермен қателесуіміз мүмкін сөздер блогының суретін айтыңыз. Сондықтан, суреттерді мәтін мазмұнынан ерекше ету үшін біз сізге көрсеткіміз келетін келесі 3 әдістің пайдалылығын пайдаланады.

1-әдіс: Бір құжаттағы бір суретке жиектерді қосу

1. Алдымен таңдау үшін суретті басыңыз.
2. Содан кейін «Сурет құралы» астындағы «Формат» қойындысын басыңыз.
3. Содан кейін «Сурет шекарасы» түймесін басып, түсті таңдаңыз.   

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. Ең соңында, бірақ «Іске қосу» батырмасын басыңыз немесе «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 \ Жаңа қалта \” бұл макростағы құжаттар сақталатын каталог жолына сілтеме жасайды. Соңғысын қосуды ешқашан ұмытпаңыз «\«.
2. Жиек түсін өзгерту арқылы өзгертуге болады RGB мәні.

Сақтық көшірме жасау туралы ойланатын уақыт

Көпшілігіміз сақтық көшірменің не істей алатыны туралы жақсы хабардармыз. Бұл сіздің өміріңізді сақтап қалуы мүмкін Сөздің бұзылуы. Осылайша, біз құнды құжаттардың сақтық көшірмесін жасау үшін минуттар алудың әсерін ешқашан бұзбаймыз. Осылайша, оның деректерінің қауіпсіздігіне кепілдік бере алмайды.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. зақымдалған xlsx және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com