3 metodi rapidi per aggiungere bordi alle immagini nel documento di Word

Condividi ora:

In questo articolo, vorremmo discutere 3 metodi rapidi su come aggiungere bordi alle immagini nei tuoi documenti di Word.

Perché dovremmo applicare i bordi alle immagini? La risposta è ovvia. Alcune immagini sono troppo simili ai contenuti principali, diciamo un'inquadratura di un blocco di parole, che potremmo facilmente scambiare per testi. Pertanto, per far risaltare le immagini nei contenuti del testo si avvale dell'utilità dei seguenti 3 metodi che vi mostreremo.

Metodo 1: aggiungi bordi a un'immagine in un documento

  1. Innanzitutto, fai clic su un'immagine per selezionarla.
  2. Quindi fai clic sulla scheda "Formato" in "Strumento immagine".
  3. Quindi fai clic su "Picture Border" e scegli un colore.   Seleziona Immagine->Fai clic su "Formato"->Fai clic su "Bordo immagine"->Scegli un coloreAggiunta di bordi dell'immagine

Metodo 2: aggiungi bordi a tutte le immagini in un documento

Come mostrato nel metodo 1, modificare manualmente le immagini una per una non è davvero una grande idea. Per risparmiare sforzi, la macro è la strada da prendere.

  1. A start con, fai clic sulla scheda "Sviluppatore", quindi su "Visual Basic" per visualizzare l'editor VBA. Quando "Sviluppatore" non è disponibile, premi semplicemente "Alt + F11".Fai clic su "Sviluppatore" -> Fai clic su "Visual Basic"
  2. Quindi fare clic su "Normale".
  3. Quindi fai clic sulla scheda "Inserisci" e scegli "Modulo" nel suo menu.Fai clic su "Normale"->Fai clic su "Inserisci"->Fai clic su "Modulo"Fai clic su "Normale"->Fai clic su "Inserisci"->Fai clic su "Modulo"
  4. Fare doppio clic sul nuovo modulo per aprire l'area di codifica sul lato destro.
  5. Ora incolla la seguente macro lì:
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. Ultimo ma non meno importante, fai clic sul pulsante "Esegui" o premi "F5".Incolla codici-> Fai clic su "Esegui"

Metodo 3: aggiungi bordi a tutte le immagini in più documenti

Poiché possiamo scrivere una macro per gestire le immagini in un documento, esiste anche un modo per elaborare le immagini in più documenti.

Prima di tutto, devi organizzare tutto tarottenere documenti nella stessa directory. Quindi segui esattamente gli stessi passaggi esposti sopra per installare ed eseguire una macro, ma sostituiscila con la seguente:

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

Note:

  1. Il "C:\Utenti\Pubblica\Documenti\Nuova cartella\" in questa macro si riferisce al percorso della directory in cui si archiviano i documenti. E non dimenticare mai di aggiungere l'ultimo "\".
  2. Puoi cambiare il colore del bordo modificando il file Valore RGB.

È ora di pensare al backup

Most di noi è stato ben informato su cosa può fare un backup. Può essere il tuo salvavita nei momenti di avere Danno di parole. Pertanto, non pregiudicheremo mai l'effetto di prendere minuti per eseguire il backup di documenti preziosi. Pertanto, non si può garantire la sicurezza dei propri dati.

Introduzione dell'autore:

Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui XLSX danneggiato e pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com

Condividi ora:

I commenti sono chiusi.