Como remover a formatação de textos colados com macro e VBA no seu Word

Compartilhe agora:

Este artigo irá demonstrar como remover a formatação de texto colado com macro e VBA no seu word.

Acontece muito quando você copia um texto online e descobre que o texto está em formatação avançada. Por exemplo, há palavras repetidas, linhas em branco, caracteres de tabulação, etc. No entanto, essa formatação pode ser bastante irritante, especialmente em momentos que você não precisa. Naturalmente, você removeria a formatação manualmente, um por um. No entanto, e se o texto for muito longo? Então o método acima será menos eficiente.

Na verdade, existe uma maneira de utilizar a macro para remover toda a formatação do texto de uma vez por todas. Aqui está mais:

Etapas para gravar uma macro no Word

  1. Em primeiro lugar, abra o seu Word.
  2. E certifique-se de ter adicionado a guia “Desenvolvedor” na faixa de opções primeiro. Para obter instruções detalhadas para adicionar "Desenvolvedor", leia o artigo: Como inserir música de fundo em seu documento do Word
  3. Quando a guia “Desenvolvedor” estiver disponível, clique nela.
  4. Em seguida, clique em “Gravar Macro” no grupo “Código”.Clique em "Desenvolvedor" -> Clique em "Gravar Macro"
  5. Agora, uma caixa de diálogo “Gravar macro” será exibida. Primeiro, digite o nome da macro, como “copytext” aqui.
  6. Em seguida, na parte "Atribuir macro a", escolha "Botão" ou "Teclado". Aqui vamos "Botão".
  7. A seguir, clique em “OK”.Nomeie a Macro -> Escolha "Botão" ou "Teclado" para "Atribuir macro a" -> Clique em "OK"
  8. E agora você verá a janela “Opções do Word”. Clique em “Personalizar faixa de opções”.
  9. Em seguida, encontre um local para a macro no lado direito. Aqui vamos clicar em “Novo Grupo” para definir um novo para a macro.
  10. Não continue a escolher “Macros” na lista suspensa de “Escolher comandos de”.
  11. Em seguida, clique na macro que você acabou de criar.
  12. Em seguida, clique em “Adicionar” no meio da janela.
  13. Agora a macro será colocada no novo grupo. Basta clicar com o botão direito na macro.
  14. E escolha a opção “Renomear”.Clique em "Personalizar faixa de opções" -> Escolha um local para a macro -> Escolha "Macros" em "Escolher comandos de" -> Clique na macro -> clique em "Adicionar" -> Clique com o botão direito na macro -> Escolha "Renomear"
  15. Na caixa de diálogo “Renomear”, escolha um símbolo para sua macro.
  16. Em seguida, digite o nome de exibição.
  17. Clique OK".Escolha um símbolo -> Digite o nome de exibição -> Clique em "OK"
  18. Agora volte para a janela “Opções do Word” e clique em “OK” lá. a macrotarts gravando a partir de agora.Clique em "OK" em "Opções do Word"Palavrastarting Gravando uma Macro

Colar texto como texto não formatado

  1. Em primeiro lugar, copie uma parte de um texto longo.
  2. Em seguida, clique na guia "Página inicial".
  3. Clique em “Colar”.
  4. Em seguida, escolha “Colar especial”.Clique em "Página inicial" -> Clique em "Colar" -> Clique em "Colar especial"
  5. E escolha “Texto não formatado” na caixa de diálogo “Colar especial”.
  6. Em seguida, clique em “OK”. Você pode obter um texto com formatação como abaixo:Escolha "Texto não formatado" -> Clique em "OK"Texto colado como texto não formatado

Remover palavras repetidas

  1. Próximostart limpando a formatação à esquerda. Pressione “Ctrl + H” para abrir a caixa de diálogo “Localizar e substituir”.
  2. E digite “Seta” na caixa de texto “Localizar”.
  3. Em seguida, clique em “Substituir tudo”.Digite a palavra repetida na caixa de texto "Localizar" -> Clique em "Substituir tudo"

Remover caracteres de tabulação

  1. Em primeiro lugar, pressione “Ctrl + H” para abrir a caixa de diálogo “Localizar e substituir”.
  2. Em seguida, digite “^t” na caixa de texto “Localizar”.
  3. Em seguida, clique em “Substituir tudo” para remover todos os caracteres de tabulação.Digite "^t" na caixa de texto "Localizar" -> Clique em "Substituir tudo"

Remover espaços em branco extras

  1. Ainda pressione “Ctrl + H” para abrir a caixa de diálogo “Localizar e substituir”.
  2. Na caixa de texto “Localizar”, pressione a tecla em branco duas vezes.
  3. Em seguida, clique no botão “Substituir tudo”.Pressione a tecla em branco duas vezes na caixa de texto "Localizar" -> Clique em "Substituir tudo"

Remover linhas em branco e espaços em branco extras juntos

Às vezes, ao usar a função “Localizar e substituir” para remover a formatação, você precisa ajustar um pouco para atender à sua própria necessidade. Por exemplo, se você não conseguir remover todos os espaços em branco extras ao aplicar as etapas acima, poderá usar as etapas abaixo para excluí-los junto com as linhas em branco.

  1. Da mesma forma, pressione “Ctrl + H” para abrir a caixa de diálogo “Localizar e substituir”.
  2. Em seguida, na caixa de texto "Localizar", pressione primeiro uma tecla em branco.
  3. Em seguida, digite “^p”.
  4. Na caixa de texto “Substituir por”, digite “^p”.
  5. Clique em “Substituir tudo”.Pressione a tecla em branco primeiro -> Digite "^p" na caixa de texto "Localizar" -> Digite "^p" na caixa de texto "Substituir por" -> Clique em "Substituir tudo"
  6. Abra novamente a caixa de diálogo “Localizar e substituir”.
  7. E na caixa de texto "Localizar", digite primeiro "^p".
  8. Em seguida, pressione a tecla em branco uma vez.
  9. Em seguida, digite “^p” na caixa de texto “Substituir por”.
  10. Por fim, clique no botão “Substituir tudo”.Digite "^p" primeiro -> Pressione a tecla em branco uma vez na caixa de texto "Localizar" -> Digite "^p" na caixa de texto "Substituir por" -> Clique em "Substituir tudo"

Remova as linhas em branco à esquerda, se necessário

Ainda assim, se houver linhas em branco, tente as seguintes etapas:

  1. Pressione “Ctrl + H” para abrir a caixa de diálogo “Localizar e substituir”.
  2. em seguida, digite “^p^p” na caixa de texto “Localizar”.
  3. E digite “^p” na caixa de texto “Substituir por”.
  4. Por fim, clique no botão “Substituir tudo”.Digite "^p^p" na caixa de texto "Localizar" -> Digite "^p" na caixa de texto "Substituir por" -> Clique em "Substituir tudo"

Até agora, você pode obter o resultado abaixo:Efeito do uso da função "Substituir" para remover a formatação

Sugerimos que você siga a ordem acima para remover a formatação do texto, para que possa apagá-la em geral. E como mencionamos, às vezes você precisa limpar outros tipos de formatação, então você deve usar a função “Localizar e substituir” por conta própria. Para obter mais maneiras de remover a formatação, você pode visitar este artigo: 3 maneiras de remover elementos indesejados de seus documentos do Word instantaneamente

Você pode conferir o seguinte vídeo para ver a demonstração:

Parar gravação de macro

  1. Depois de terminar de remover a formatação do texto, clique na guia “Desenvolvedor”.
  2. Em seguida, clique em “Parar gravação”. Agora a macro será salva.Clique em "Desenvolvedor" -> Clique em "Parar gravação"

Como executar uma macro

  1. Copie o texto com formatação online, digamos.
  2. Abra o Word a seguir.
  3. Em seguida, clique na guia "Desenvolvedor".
  4. Clique no ícone de macro e você verá o texto no documento sem formatação adicional.Clique em "Desenvolvedor" -> Clique na macro recém-gravadaEfeito do uso de macro para remover a formatação

Observação: para iniciantes, basta seguir as etapas acima para criar e executar uma macro. A execução de uma macro ajudará você a se livrar da formatação irritante em geral, o que é suficiente.

Os códigos VBA para o especialista

Primeiro, há a maneira de visualizar os códigos VBA.

  1. Em primeiro lugar, clique na guia "Desenvolvedor".
  2. Em seguida, clique em "Visual Basic" no grupo "Código".Clique em "Desenvolvedor" -> Clique em "Visual Basic"
  3. No editor “Microsoft Visual Basic for Applications”, clique primeiro em “Normal” no lado esquerdo.
  4. Em seguida, clique em “Módulos”.
  5. Em seguida, clique duas vezes em “NewMacros” e você poderá visualizar o código na área do lado direito.Clique em "Normal" -> Clique em "Módulos" -> Clique duas vezes em "NovasMacros"

Neste caso, os códigos são os seguintes:

 

Subtexto()

'

' Macro de texto de cópia

'

'

    Link Selection.PasteSpecial: = False, DataType: = wdPasteText, Placement: = _

        wdInLine, DisplayAsIcon: = False

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Com Seleção.

        .Texto = “Seta”

        .Replacement.Text = ""

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = Falso

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Terminar com

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Com Seleção.

        .Texto = “^t”

        .Replacement.Text = ""

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = Falso

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Terminar com

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Com Seleção.

        .Texto = ” “

        .Replacement.Text = ""

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = Falso

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Terminar com

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Com Seleção.

        .Texto = ” ^p”

        .Replacement.Text = “^p”

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = Falso

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Terminar com

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Com Seleção.

        .Texto = “^p”

        .Replacement.Text = “^p”

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = Falso

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Terminar com

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Com Seleção.

        .Texto = “^p^p”

        .Replacement.Text = “^p”

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = Falso

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Terminar com

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Com Seleção.

        .Texto = “^p^p”

        .Replacement.Text = “^p”

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = Falso

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    Terminar com

    Selection.Find.Execute Replace: = wdReplaceAll

End Sub

 

Falando de especialistas e usuários avançados familiarizados com o VBA, você pode ajustar totalmente os códigos para atender às suas necessidades, o que será mais conveniente e preciso.

Proteja seus arquivos

Os usuários do Word em todo o mundo tendem a fazer o melhor uso dele. É uma ótima e também perigosa ideia, já que aumenta o risco de colapso do Word com operações erradas. Portanto, você deve sempre encontrar maneiras de proteger seus arquivos. Dentre as opções disponíveis, conseguir um reparação de documentos ferramenta de antemão não parece ruim.

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 recuperação de excel e pdf reparar produtos de software. Para mais informações visite www.datanumen.com

Compartilhe agora:

Deixe um comentário

O seu endereço de e-mail não será publicado. Os campos obrigatórios são marcados com *