• Home
 · 
• String Manipulation
 · 
• This function properly capitalizes last names, even hyphenated ones.

This function properly capitalizes last names, even hyphenated ones.

This function properly capitalizes last names, even hyphenated ones.

Rate This function properly capitalizes last names, even hyphenated ones.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

  
  Dim NumLetters As Integer
  Dim SearchChar As String
  Dim SearchFlag As Boolean
  Dim CurrChar As String
  Dim Index As Long
  
  'Capitalize after spaces...
  strText = Trim(StrConv(strText, vbProperCase))
  
  SearchChar = "-"   ' search character (hyphen)
  'remove extra hyphens
  strText = RemoveDuplicates(strText, "-")
  'remove extra spaces
  strText = RemoveDuplicates(strText)
  NumLetters = Len(strText)
  
  Index = 1
  
  'Capitalize after hyphens (SearchChar)...
  Do While Index < NumLetters
    CurrChar = Mid(strText, Index, 1)
    'Now searching for embedded spaces and letters to make caps
    If SearchFlag Then
      'split string in two...
      Dim FirstPart As String, LastPart As String
      FirstPart = Left(strText, Index - 2)
      LastPart = StrConv(Right(strText, (NumLetters - Index + 1)), vbProperCase)
      'rejoin string
      strText = FirstPart & SearchChar & LastPart
    End If
    
    If CurrChar = SearchChar Then
      SearchFlag = True
    Else
      SearchFlag = False
    End If
      
    Index = Index + 1
  
  Loop
  
  LastNameCaps = strText

End Function

Public Function RemoveDuplicates(ByVal strText As String, _
                                 Optional strChar As String = " ") As String

  Dim strDblChar As String
  Dim strTemp As String
  Dim flag As Boolean
  
  strDblChar = strChar & strChar
  
  Do While InStr(1, strText, strDblChar, vbTextCompare) > 0
    If InStr(1, strText, strDblChar, vbTextCompare) > 0 Then
      strText = Replace(strText, strDblChar, strChar)
    End If
  Loop
  
  RemoveDuplicates = strText

End Function