Use a classe regular VBScript expressão para permitir que seus programas VBA para realizar buscas com expressões regulares . As expressões regulares são padrões de texto que podem ajudá-lo a procurar por seqüências com uma sintaxe complexa em seus documentos do Office . Essas seqüências incluem endereços de email, números de telefone e campos de texto com critérios específicos que você pode ter definidos em um banco de dados Excel ou Access. Para saber a sintaxe específica de expressão regular, consulte a página Web Zytrax " Expressão Regular" ou um recurso similar. Certifique-se de testar seus programas VBA que usam expressões regulares em muitas cadeias de entrada diferentes para ter certeza de que você tenha escrito seus padrões de expressões regulares corretamente. Instruções
1

Abra um dos aplicativos do Office , como o Word , o Excel ou Access. Pressione " Alt " e " F11 " ao mesmo tempo para entrar no ambiente de programação Visual Basic for Applications , clique em " Inserir" cabeçalho de menu . Clique no item "Módulo " para criar uma nova janela para que você digite programas VBA
2

Digite as seguintes instruções para criar uma sub-rotina em que usar expressões regulares : .

Sub RegularExpressionTester () End Sub
3

Digite a seguinte instrução antes da instrução "End Sub" de seu programa para criar o objeto de expressão regular do VBScript. Esta declaração cria o objeto cujas funções realizar buscas com expressões regulares .

Set objRegExp = CreateObject (" VBScript.RegExp " )
4

Type " objRegExp.Global = true" se você quer que sua expressão regular para encontrar uma string apenas na primeira ocorrência da cadeia . Digite " objRegExp.Global = false " se você deseja corresponder em todas as ocorrências da string. Por exemplo, se você está procurando o caractere " @" em um endereço de e-mail e só quero encontrar a primeira ocorrência deste personagem , definir "Global" para "false ".
5 Tipo

" objRegExp.IgnoreCase = true " se você quiser a sua expressão regular para ignorar caso quando a correspondência de uma string. Defina esta propriedade como false se você precisa o caso da corda que você está procurando para corresponder ao padrão de expressão regular. Por exemplo, se você está validando os endereços de e-mail , que não diferenciam maiúsculas de minúsculas , defina essa propriedade para "true ".
6

Type " objRegExp.Pattern =" digite o padrão de expressão regular que você deseja corresponder com uma cadeia de entrada . Por exemplo, para validar um endereço de e-mail que você poderia incluir um padrão de expressão regular, como " [az , AZ ] * @ [az , AZ ] * ​​. Com ". Este padrão especifica uma string com caracteres alfabéticos , antes e depois de uma " ; @ " símbolo. O padrão também inclui o substring domínio " . Com . Note-se que os endereços de e-mail real pode ser mais complexa do que esse padrão simplificada.
7 Tipo

"Definir regExpMatches = objRegExp.Execute ( strToSearch ) " para aplicar o seu padrão de expressão regular para a cadeia de entrada " strToSearch . " para o exemplo de validação de e-mail , você pode já definir a variável " strToSearch " ao texto que você deseja validar como um endereço de e-mail. Uma declaração de exemplo para definir esta variável é " strToSearch =" ClarkKent@DailyPlanet.com " "
8 Tipo

" Se regExpMatches.Count = 0 , em seguida, " para testar se o objeto de expressão regular combinava qualquer texto em sua seqüência de entrada. Se o texto de entrada era " ClarKent@DailyPlanet.com " para o exemplo de validação de e-mail , em seguida, " Contagem " seria 1. Você poderia, então, escrever uma declaração indicando que o texto foi um e-mail válido : . " MsgBox (" . Esta string é um endereço de email válido ")"
< br >