VBA to convert a line of text to title case

gmaxey · #7 09-05-2019, 04:01 PM

I can't see any relevance between the code you have posted and the object you are after. What does "^+" have to do with Em dashes? What does .Font.Bold = True have to do with Title Case? What is all that gibberish about If .Find.Found?

If your text is like your example (all terms constitute as single paragraph then:

Code:

Sub ConvertToTC()
Dim oRng As Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = ChrW(8212)
    While .Execute
      With oRng
        .End = .Paragraphs(1).Range.End
        .Start = oRng.Start + 1
        .Case = wdTitleWord
        .Collapse wdCollapseEnd
      End With
    Wend
  End With
lbl_Exit:
  Exit Sub
 End Sub

BREAK

Paul, what makes an "Expert" in this forum?

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do I convert a line of text to title case?	neilfxb	Word	21	02-22-2023 12:47 PM
Macro that formats (true title) case by Heading style	Marrick13	Word VBA	11	09-20-2015 06:29 PM
Customising a style that uses Title Case formatting	Madanjeet	Word	6	05-18-2015 10:11 AM
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