none
WORD - Função Substituir em um texto... RRS feed

  • Pergunta

  • Tenho uma lista de e-mails que estão digitados em linha, e separados popr ";" Para i8nserir esses e-mails em um sistema de envio automático, preciso deixar cada e-mail em uma linha, e podem continuar com o ";" no final. Desta forma eu colo tudo no excel e consigo exportar para o sistema de envio de e-mails...

    PERGUNTA: Como faço para selecionar todos os endereços e jogá-los um em cada linha? Dá para fazer isso substituindo por exemplo o ";  " por "função RETURN (ENTER) automaticamente?

     
    sábado, 15 de outubro de 2011 15:31

Respostas

  • Se estiver usando o Word:

    1 - Pressione Ctrl+U (Word em português, é a janela de substituir).

    2 - Substitua ; por ^p

    3 - Clique em Substituir Tudo.

     

    Se estiver usando o Excel:

    1 - Cole esse conjunto de endereços na célula A1.

    2 - Use o código:

    Sub Exibe()

        Dim v

        Dim n As Long

     

        v = Split(Range("A1"), ";")

        For n = LBound(v) To UBound(v)

            Cells(n + 1, "B") = v(n)

        Next n

     

    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br
    • Marcado como Resposta Richard Juhasz terça-feira, 14 de fevereiro de 2012 16:44
    segunda-feira, 7 de novembro de 2011 13:59