3 métodos rápidos para adicionar bordas a imagens em seu documento do Word

Neste artigo, gostaríamos de discutir 3 métodos rápidos de como adicionar bordas a imagens em seus documentos do Word.

Por que aplicaríamos bordas às imagens? A resposta é óbvia. Algumas imagens são muito parecidas com o conteúdo principal, digamos, uma tomada de um bloco de palavras, que podemos facilmente confundir com textos. Portanto, para destacar as imagens do conteúdo do texto, aproveite a utilidade dos 3 métodos a seguir que mostraremos a você.

Método 1: Adicionar bordas a uma imagem em um documento

1. Em primeiro lugar, clique em uma imagem para selecionar.
2. Em seguida, clique na guia "Formatar" em "Ferramenta de imagem".
3. Em seguida, clique em “Picture Border” e escolha uma cor.   

Método 2: Adicionar bordas a todas as imagens em um documento

Conforme mostrado no método 1, alterar manualmente as imagens uma a uma não é uma boa ideia. Para economizar esforços, a macro é o caminho que você deve seguir.

1. Para começar, clique na guia "Desenvolvedor" e depois em "Visual Basic" para exibir o editor VBA. Caso a guia "Desenvolvedor" não esteja disponível, basta pressionar "Alt + F11".
2. Em seguida, clique em “Normal”.
3. Em seguida, clique na guia “Inserir” e escolha “Módulo” em seu menu.
4. Clique duas vezes no novo módulo para abrir a área de codificação no lado direito.
5. Agora cole a macro abaixo 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

6. Por último, mas não menos importante, clique no botão “Executar” ou pressione “F5”.

Método 3: Adicionar bordas a todas as imagens em vários documentos

Como podemos escrever uma macro para lidar com imagens em um documento, também existe uma maneira de processar imagens em vários documentos.

Antes de tudo, você precisa organizar todos os documentos de destino no mesmo diretório. Em seguida, siga exatamente os mesmos passos mostrados acima para instalar e executar uma macro, mas substitua-a pelo seguinte:

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

Notas:

1. O "C:\Usuários\Público\Documentos\Nova pasta\” nesta macro refere-se ao caminho do diretório onde você armazena os documentos. E nunca se esqueça de adicionar o último “\".
2. Você pode alterar a cor da borda alterando o Valor RGB.

Hora de pensar no backup

A maioria de nós já foi bem informada sobre os benefícios de um backup. Ele pode salvar sua vida em momentos de aperto. dano palavra. Assim, nunca devemos prejudicar o efeito de levar minutos para fazer backup de documentos valiosos. Como tal, não se pode garantir a segurança dos seus dados.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo danificado xlsx e pdf reparar produtos de software. Para mais informações visite www.datanumen.com