How do I convert a line of text to title case?

Shmuel G · #10 07-04-2022, 08:23 PM

Quote:

Originally Posted by macropod

Word's TitleCase function is a fairly blunt instrument that crudely capitalises the first letter of each word and destroys the capitalisation for acronyms and various surnames, for example. Such an approach really doesn't conform to the usual understanding title casing.
…………
To re-format just a selection, you could call the function with a macro like:

Code:

Sub MakeTitle()
Application.ScreenUpdating = False
Dim StrTmp As String
With Selection.Range
  StrTmp = Trim(.Text)
  While Right(StrTmp, 1) = "."
    StrTmp = Left(StrTmp, Len(StrTmp) - 1)
  Wend
  While InStr(StrTmp, "  ") > 0
    StrTmp = Replace(StrTmp, "  ", " ")
  Wend
  StrTmp = TitleCase(StrTmp, bCaps:=False, bExcl:=False)
  .Text = StrTmp
End With
Application.ScreenUpdating = True
End Sub

…………

This technique destroys any character formatting within the selection, such as change of fonts. Is there a simple way to replace the text of the range with the new version, while preserving the original formatting?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
creating a new TITLE property from text already within document	smndnm	Word VBA	6	07-04-2014 08:27 PM
Stop review query when small case at beginning of line	dsrose	Word	2	01-22-2014 12:19 AM
True Title Case for First Row of All Tables	Marrick13	Word VBA	14	12-11-2013 09:12 PM
Custom Text Filter for this particular case	tinfanide	Excel	2	09-13-2011 05:08 AM
From all UPPER CASE to Proper Case	davers	Word	1	04-30-2009 12:41 PM