Como escrever macros limpeza documento no word 2016

Antes disso última salvar, ou quando você está trabalhando em um grande documento no Word 2016, pensar em fazer alguma limpeza documento. É um processo que envolve a procura de personagens desonestos e outro texto problemático.

Uma rotina de limpeza documento envolve a procura de espaços de fuga no fim de n, espaços duplos, abas duplas, e duplas ENTER (pontos vazios). Estes são todos os itens que devem ser evitadas, mas eles acabam em documentos longos de qualquer maneira.

O processo de eliminar esses elementos indesejáveis ​​envolve o uso da caixa diálogo Localizar e Substituir. Você precisa usar o botão especial para inserir caracteres especiais, como espaço, tabulação e Enter.

A macro criado para executar a tarefa de limpeza documento gravado as teclas utilizadas para procurar e substituir para os vários personagens. Em seguida, o Editor do Visual Basic foi utilizado para remover parte do código redundante. Aqui está o resultado:

Sub document_cleanup ()

`

`Document_cleanup Macro

"Remover espaços à direita e espaços duplos, guias, e Enter

`

Unidade Selection.HomeKey: = wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

"Remover espaços à direita de um parágrafo

com Selection.Find

.text = "^ W ^ v"

.Replacement.Text = "^ v"

.Atacante = True

End With

Selection.Find.Execute Substituir: = wdReplaceAll

"Remover espaços duplos

com Selection.Find

gt; = .Text " "

.Replacement.Text = " "

End With

Selection.Find.Execute Substituir: = wdReplaceAll

`Remover guias duplas

com Selection.Find

.text = "^ T ^ t"

.Replacement.Text = " ^ t"

Video: Como remover alerta irritante de macro no Microsoft Word ( simples e sem enrolação )

End With

Selection.Find.Execute Substituir: = wdReplaceAll

`Remover duplo Enter (parágrafos em branco)

com Selection.Find

.text = "^ V ^ v"

.Replacement.Text = "^ v"

End With

Selection.Find.Execute Substituir: = wdReplaceAll

End Sub

A primeira operação de busca e substituição remove espaços à direita. O texto busca é ^ w ^ v, que olha para qualquer espaço em branco (^ w) caracteres antes a tecla Enter (^ v). Esses espaços em branco - espaço, tabulação, e assim por diante - são substituídos com a tecla Enter, que remove os espaços à direita.

A segunda pesquisa e substituição remove espaços duplos. pressione a barra de espaço duas vezes para o texto de pesquisa e pressionou a barra de espaço uma única vez para o texto de substituição.

Video: Excel Macros (VBA) - Aula 3 - Gravando Macros e interagindo macros. Limpando células

A terceira pesquisa e substituição remove abas duplas. O ^ t representa caracteres de tabulação na caixa de diálogo Localizar e substituir.

A final de pesquisa e substituição remove parágrafos vazios. Os ^ v personagens representam a tecla Enter, então substituindo ^ v ^ v ^ v com remove todos os parágrafos vazios.

Esta macro funciona bem, mas poderia ser melhor. Por exemplo, ele não controla espaços triplos ou tabulações triplos. Você teria que executar a macro uma segunda vez para isso. Se você fornecer o talento de programação, o código do macro pode abordar essas questões.