Encontrar um único caractere em uma string usando o VBA é uma instância especial de encontrar uma cadeia dentro de outra. O processo em si usa apenas uma palavra do Visual Basic , InStr , que procura texto para uma seqüência específica , ou de caráter único neste exemplo. O restante do código é necessária para permitir a entrada do usuário e exibir os resultados . O processo utiliza um método de pesquisa de maiúsculas e minúsculas , ou seja, ele vai encontrar letras minúsculas ou maiúsculas. Instruções
1

Abra um dos programas do Microsoft Office que usam VBA (Visual Basic for Applications ) e já contêm algum texto. Clique em "Developer" no menu superior e , em seguida, " Visual Basic ", que será listado na segunda linha de opções. Isso abre a tela de edição do VBA.
2

Digite as seguintes linhas na janela em branco .

Sub FindCharacter () Dim KnownString , SoughtCharacter , encontrado como StringDim Localização , i, ajustar conforme IntegerKnownString = InputBox ( " Digite ou copie e cole o texto a ser pesquisado aqui " ) SoughtCharacter = InputBox ( " Digite o caractere procurado aqui " ) Local = InStr (1, KnownString , SoughtCharacter , vbTextCompare ) Ajuste = 10 Porque i = 1 To Len ( KnownString ) Se Localização < Ajuste ThenAdjust = Ajustar /5End IFIF i = Localização ThenFound = Mid ( KnownString , Localização - Ajustar , Localização + Ajuste) MsgBox " Esta é a primeira ocorrência de " & vbCrLf & SoughtCharacter & , " no contexto" & vbCrLf & "'" & Found & "' " End Sub IfNext iEND
3

Reduza o lado direito da seguinte linha se à procura de um personagem em segmentos muito curtos de texto :

Ajuste = 10

fazer isso porque o projeto está configurado para exibir um número padrão de caracteres em ambos os lados do procurado personagem. Se a seqüência é muito curto, o programa produzirá um erro .
4

Clique em " Macros " na seção desenvolvedor do documento do Word e executar essa macro para ver como ele funciona . Se a macro falhar, verifique novamente o seu trabalho de as instruções acima.