✔ Programação GLOBAL®: DONUT PROJECT 2021 - VBA Function: Crie Acrônimos a partir de Strings de Texto

A função a seguir avalia acrônimos de strings, ou seja, concatena a primeira letra de cada palavra em uma string. Por exemplo, “Revoluções Por Minuto” torna-se “RPM”.

A rotina percorre todos os caracteres de uma string e, se for um espaço, leva o próximo caractere da string. Antes de avaliar a string, ele remove todos os espaços à direita e duplicados.

Function Acronimo (Original_String As String) As String

Dim Trimmed_String As String
Dim Length As Integer
Dim Pos As Integer
Let Trimmed_String = Application.WorksheetFunction.Trim (Original_String)
Let Length = Len (Trimmed_String)
Let Acronimo = UCase (Left (Trimmed_String, 1))
For Pos = 2 To Length - 1
If (Mid (Trimmed_String, Pos, 1) = " ") Then
Let Acronimo = Acronimo & UCase (Mid (Trimmed_String, Pos + 1, 1))
End If
Next Pos