Localizar caixa alta (palavra com todas as letras em maiúsculas)no texto.

Olá,

a resposta pode variar de acordo com o método usado para deixar as letras maiúsculas:

a) por meio do Fonte > Formatar > All Caps.

b) por meio de formatação manual (Shift ou CAPS LOCK), ou por meio do comando Change Case.

Se você usou o método "a", então o próprio Localizar do Word consegue rastrear as palavras, basta definir na busca a opção Format > Font > All Caps.

Se usou o método "b" (que é o mais usual), então a solução será fazer uma busca habilitando a opção "Use wildcards" (usar caracteres curinga) e colocar o seguinte critério: [A-Z] 

O problema aqui é que a busca será feita letra a letra, passando inclusive pelas letras de início de parágrafo.

Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br

Hola a todos:

Este código hace lo que creo que quieres.

WordExperto.

porque vc não tenta usar a tecla "caps lock" do seu teclado?!haha'

Faça algo do tipo

Sub BuscaCaixaAlta()

    Selection.Find.ClearFormatting

    With Selection.Find

       .Text = UCase("das")

       .Replacement.Text = ""

       .Forward = True

       .Wrap = wdFindContinue

       .Format = False

       .MatchCase = True

       .MatchWholeWord = False

       .MatchWildcards = False

       .MatchSoundsLike = False

       .MatchAllWordForms = False

    End With

    Selection.Find.Execute

    If Selection.Find.Found = True Then

       Selection = "oi"

    End If

End Sub

Não obtive sucesso, contudo agradeço a ajuda, Felipe Benza e Luiz Cláudio.

Abraços.