3 γρήγορες μέθοδοι για να προσθέσετε περιγράμματα σε εικόνες στο έγγραφο του Word

Σε αυτό το άρθρο, θα θέλαμε να συζητήσουμε 3 γρήγορες μεθόδους για τον τρόπο προσθήκης περιθωρίων σε εικόνες στα Έγγραφα Word.

Γιατί να εφαρμόσουμε σύνορα στις εικόνες; Η απάντηση είναι προφανής. Ορισμένες εικόνες μοιάζουν πάρα πολύ με το κύριο περιεχόμενο, λένε ένα πλάνο από ένα μπλοκ λέξεων, το οποίο θα μπορούσαμε εύκολα να συγχέουμε με κείμενα. Επομένως, για να ξεχωρίσετε τις εικόνες, το περιεχόμενο του κειμένου ωφελεί τη χρησιμότητα των ακόλουθων 3 μεθόδων που πρόκειται να σας δείξουμε.

Μέθοδος 1: Προσθέστε περιθώρια σε μία εικόνα σε ένα έγγραφο

1. Πρώτον, κάντε κλικ σε μια εικόνα για να επιλέξετε.
2. Στη συνέχεια, κάντε κλικ στην καρτέλα "Μορφοποίηση" στην ενότητα "Εργαλείο εικόνας".
3. Στη συνέχεια, κάντε κλικ στο "Picture Border" και επιλέξτε ένα χρώμα.   

Μέθοδος 2: Προσθήκη περιθωρίων σε όλες τις εικόνες σε ένα έγγραφο

Όπως φαίνεται στη μέθοδο 1, η χειροκίνητη αλλαγή εικόνας μία προς μία δεν είναι πραγματικά καλή ιδέα. Για εξοικονόμηση προσπαθειών, η μακροεντολή είναι ο τρόπος που πρέπει να ακολουθήσετε.

1. Για να ξεκινήσετε, κάντε κλικ στην καρτέλα "Προγραμματιστής" και στη συνέχεια στην "Visual Basic" για να εμφανιστεί ο επεξεργαστής VBA. Όταν ο "Προγραμματιστής" δεν είναι διαθέσιμος, απλώς πατήστε "Alt+ F11".
2. Στη συνέχεια, κάντε κλικ στο "Normal".
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 \ Έγγραφα \ Νέος φάκελος \”Σε αυτήν τη μακροεντολή αναφέρεται στη διαδρομή καταλόγου όπου αποθηκεύετε έγγραφα. Και μην ξεχάσετε ποτέ να προσθέσετε το τελευταίο "\".
2. Μπορείτε να αλλάξετε το χρώμα του περιγράμματος αλλάζοντας το Τιμή RGB.

Timeρα να σκεφτείτε το Backup

Οι περισσότεροι από εμάς είμαστε καλά ενημερωμένοι για το τι μπορεί να κάνει ένα αντίγραφο ασφαλείας. Μπορεί να σας σώσει τη ζωή σε στιγμές που έχετε Βλάβη λέξεων. Συνεπώς, δεν θα υπονομεύσουμε ποτέ την επίδραση της λήψης λεπτών για τη δημιουργία αντιγράφων ασφαλείας πολύτιμων εγγράφων. Ως εκ τούτου, κανείς δεν μπορεί να εγγυηθεί την ασφάλεια των δεδομένων του.

Εισαγωγή συγγραφέα:

Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων κατεστραμμένο xlsx και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com