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
- Em primeiro lugar, abra o seu Word.
- 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
- Quando a guia “Desenvolvedor” estiver disponível, clique nela.
- Em seguida, clique em “Gravar Macro” no grupo “Código”.
- Agora, uma caixa de diálogo “Gravar macro” será exibida. Primeiro, digite o nome da macro, como “copytext” aqui.
- Em seguida, na parte "Atribuir macro a", escolha "Botão" ou "Teclado". Aqui vamos "Botão".
- A seguir, clique em “OK”.
- E agora você verá a janela “Opções do Word”. Clique em “Personalizar faixa de opções”.
- Em seguida, encontre um local para a macro no lado direito. Aqui vamos clicar em “Novo Grupo” para definir um novo para a macro.
- Não continue a escolher “Macros” na lista suspensa de “Escolher comandos de”.
- Em seguida, clique na macro que você acabou de criar.
- Em seguida, clique em “Adicionar” no meio da janela.
- Agora a macro será colocada no novo grupo. Basta clicar com o botão direito na macro.
- E escolha a opção “Renomear”.
- Na caixa de diálogo “Renomear”, escolha um símbolo para sua macro.
- Em seguida, digite o nome de exibição.
- Clique OK".
- Agora volte à janela “Opções do Word” e clique em “OK”. A macro começará a gravar a partir deste momento.
Colar texto como texto não formatado
- Em primeiro lugar, copie uma parte de um texto longo.
- Em seguida, clique na guia "Página inicial".
- Clique em “Colar”.
- Em seguida, escolha “Colar especial”.
- E escolha “Texto não formatado” na caixa de diálogo “Colar especial”.
- Em seguida, clique em “OK”. Você pode obter um texto com formatação como abaixo:
Remover palavras repetidas
- Em seguida, comece a limpar a formatação restante. Pressione “Ctrl + H” para abrir a caixa de diálogo “Localizar e Substituir”.
- E digite “Seta” na caixa de texto “Localizar”.
- Em seguida, clique em “Substituir tudo”.
Remover caracteres de tabulação
- Em primeiro lugar, pressione “Ctrl + H” para abrir a caixa de diálogo “Localizar e substituir”.
- Em seguida, digite “^t” na caixa de texto “Localizar”.
- Em seguida, clique em “Substituir tudo” para remover todos os caracteres de tabulação.
Remover espaços em branco extras
- Ainda pressione “Ctrl + H” para abrir a caixa de diálogo “Localizar e substituir”.
- Na caixa de texto “Localizar”, pressione a tecla em branco duas vezes.
- Em seguida, clique no botão “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.
- Da mesma forma, pressione “Ctrl + H” para abrir a caixa de diálogo “Localizar e substituir”.
- Em seguida, na caixa de texto "Localizar", pressione primeiro uma tecla em branco.
- Em seguida, digite “^p”.
- Na caixa de texto “Substituir por”, digite “^p”.
- Clique em “Substituir tudo”.
- Abra novamente a caixa de diálogo “Localizar e substituir”.
- E na caixa de texto "Localizar", digite primeiro "^p".
- Em seguida, pressione a tecla em branco uma vez.
- Em seguida, digite “^p” na caixa de texto “Substituir por”.
- Por fim, clique no botão “Substituir tudo”.
Remova as linhas em branco à esquerda, se necessário
Ainda assim, se houver linhas em branco, tente as seguintes etapas:
- Pressione “Ctrl + H” para abrir a caixa de diálogo “Localizar e substituir”.
- em seguida, digite “^p^p” na caixa de texto “Localizar”.
- E digite “^p” na caixa de texto “Substituir por”.
- Por fim, clique no botão “Substituir tudo”.
Até agora, você pode obter o resultado abaixo:
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
- Depois de terminar de remover a formatação do texto, clique na guia “Desenvolvedor”.
- Em seguida, clique em “Parar gravação”. Agora a macro será salva.
Como executar uma macro
- Copie o texto com formatação online, digamos.
- Abra o Word a seguir.
- Em seguida, clique na guia "Desenvolvedor".
- Clique no ícone de macro e você verá o texto no documento sem formatação adicional.
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.
- Em primeiro lugar, clique na guia "Desenvolvedor".
- Em seguida, clique em "Visual Basic" no grupo "Código".
- No editor “Microsoft Visual Basic for Applications”, clique primeiro em “Normal” no lado esquerdo.
- Em seguida, clique em “Módulos”.
- Em seguida, clique duas vezes em “NewMacros” e você poderá visualizar o código na área do lado direito.
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