Bom dia galera.
Tenho necessidade frequente de substituir palavras nos textos que escrevo.
Exemplo: substituir "s/a" por "S/A".
Frequentemente eu atualizo meu código VBA do word com a expressão que desejo substituir.
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " s/a "
.Replacement.Text = " S/A "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Por isso, eu desejo tornar essa tarefa mais simples.
Criei, então, um formulário com as seguintes entradas:
- localizar: <>
- substituir por: <>
Botão incluir
Com isso, ao inserir essas palavras e pressionar o botão incluir, desejo que essas palavras fiquem registradas no código da macro que executo para substituir expressões. Mas não faço ideia de como escrever esse código...
Sei que o site é sobre Access, mas como vocês são o pessoal mais responde a dúvidas, desejei pedir a ajuda de vocês.
Obrigado.
Tenho necessidade frequente de substituir palavras nos textos que escrevo.
Exemplo: substituir "s/a" por "S/A".
Frequentemente eu atualizo meu código VBA do word com a expressão que desejo substituir.
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " s/a "
.Replacement.Text = " S/A "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Por isso, eu desejo tornar essa tarefa mais simples.
Criei, então, um formulário com as seguintes entradas:
- localizar: <>
- substituir por: <>
Botão incluir
Com isso, ao inserir essas palavras e pressionar o botão incluir, desejo que essas palavras fiquem registradas no código da macro que executo para substituir expressões. Mas não faço ideia de como escrever esse código...
Sei que o site é sobre Access, mas como vocês são o pessoal mais responde a dúvidas, desejei pedir a ajuda de vocês.
Obrigado.