[Resolvido]Primeira letra da palavra em Maiúscula

Muito Boas tardes!

Tenho um modulo que converte as primeiras letras das palavras em maiúsculas, e também comtempla as excepções - de, a da ,etc.

Tentei que me colocasse as excepções nos números romanos (VI e não Vi),mas não estou a conseguir.

Necessitava de uma mãozinha. Em anexo o módulo.

Obrigado

Olha nos módulos, linhas assim:

             wRetVal = TrocaStr(wRetVal, "Dos ", "dos ")

Tente acrescentar outras em seguida às que lá existem, assim:

            wRetVal = TrocaStr(wRetVal, "vi ", "VI ")
            wRetVal = TrocaStr(wRetVal, "Vi ", "VI ")
            wRetVal = TrocaStr(wRetVal, "vI ", "VI ")

Tambem, caso queira que os romanos em minúsculos passem a maiúsculos, deverá fazer igual, mas colocando o minúsculo antes e o maiúsculo depois

Olá criquio!

Obrigado pelo retorno, mas experimentei isso mesmo e sai-me sempre assim: Vi

Dei uma rápida olhada aqui e acredito que a questão esteja nessa linha:

wde = 1

Isso significa que apenas a primeira letra da palavra será analisada. Se mudar para duas vai dar erro nas outras palavras. Será necessário criar uma condição para quando for determinadas palavras, analisar mais de uma letra.

criquio!

Pode me dar uma dica. Não estou a ver como devo fazer.

Obrigado

Vou dar uma sugestão que não sei se vai funcionar, pois não testei aqui, mas tente isso:

Public Function FirstCaps(wText As String)

    Dim wRetVal As String
  
    wRetVal = StrConv(wText, 3)
  
If wRetVal <> "I" Or wRetVal <> "II" Or wRetVal <> "III" Or  wRetVal <> "IV" Then 

    wRetVal = TrocaStr(wRetVal, " E ", " e ")
    wRetVal = TrocaStr(wRetVal, "De ", "de ")
    wRetVal = TrocaStr(wRetVal, "Da ", "da ")
    wRetVal = TrocaStr(wRetVal, "Do ", "do ")
    wRetVal = TrocaStr(wRetVal, "Das ", "das ")
    wRetVal = TrocaStr(wRetVal, "Dos ", "dos ")
    FirstCaps = wRetVal

End If
    
End Function

Faça essas alterações e tente ver se I, II, III e IV ficam todas em maiúsculas. Se der certo, é só afinar o código para englobar as palavras desejadas, às quais podem ser de repente cadastradas em uma tabela a ser consulta no lugar das palavras isoladas nesse teste.

criquio!

obrigado, mas não funfa

Veja se este tópico da Microsoft ajuda

http://office.microsoft.com/pt-br/access-help/corrigir-automaticamente-o-uso-de-maiusculas-HA010174730.aspx#BM10

vieirasoft,

Muito obrigado, é capaz de ser por aí.

Bom trabalho