Como excluir uma página de texto em branco no vba

Enquanto Microsoft Word não tem um botão ou ferramenta para todos os cenários possíveis, você pode criar macros definidos pelo utilizador, pedaços de código executável, usando o Visual Basic for Applications (VBA). Macros pode adaptar o Word para atender às suas necessidades. Por exemplo, se você tiver um documento intercalado com páginas em branco, pode parecer que a sua única opção é ir manualmente através do documento e excluir as páginas ofensivas. Não há outra opção: usar uma macro VBA para fazer o trabalho de pé para você.

Coisas que você precisa

  • Word 2010
  • pressione "Alt" e "F11" juntos no documento do Word que você deseja remover espaços em branco de para abrir o Editor do Visual Basic (VBE).

  • Clique "Inserir" e clique em "Módulo" para inserir um módulo de janela em branco.

  • Recorte e cole o seguinte código na janela do módulo em branco:

    Public Sub DeleteBlankPage ()

    Selection.GoTo O que: = wdGoToBookmark, Name: ="página"

    Se isBlankSelection seguida

    Selection.Delete

    Fim se

    End Sub



    BlankPageSelection Função Pública ()

    Para cada c Em Selection.Characters

    Se (C lt; gt; vbCr e C lt; gt; vbTab e C lt; gt; vbFormFeed e C lt; gt; " ") Então

    BlankPageSelection = False

    Função Exit

    Fim se

    Próximo

    BlankPageSelection = True

    End Function

  • pressione "F5" para executar a rotina e excluir as páginas em branco de seu documento.

dicas & avisos

  • Você pode usar o mesmo código em uma data posterior: O código vai economizar juntamente com seu documento do Word. Abra o VBE e clique em "DeleteBlankPage" a partir da barra lateral esquerda. pressione "F5" para executar a rotina.
De esta maneira? Compartilhar em redes sociais:

LiveInternet