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

Shmuel G · #11 07-05-2022, 10:24 AM

Quote:

Originally Posted by Shmuel G

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?

It seems that replacing the .Text of each of the Characters in a range, one at a time, will preserve the formatting, but that requires the replacement string to be the same length as the original string.

If not for the trimming and replacement of double spaces, formatting could be preserved by replacing

Code:

.Text = StrTmp

with

Code:

  Dim i As Long
  For i = 1 To .Characters.Count
    .Characters(i).Text = Mid$(StrTmp, i, 1)
  Next

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