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

Shmuel G · #16 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

macropod · #17 07-06-2022, 07:19 AM

Did you at least try the code in post #3?

Shmuel G · #18 07-06-2022, 07:40 AM

Quote:

Originally Posted by macropod

Did you at least try the code in post #3?

Yes, I entered in all the code in post #3 and ran the second snippet on a selection in which some words were in a different font. Character formatting was lost.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

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