True Title Case for First Row of All Tables

Marrick13 · #2 12-07-2013, 11:28 AM

I found the solution to having the code select only the text in the first row of each table.
Add the following three lines right after the "Tbl.Rows(1).Range.Select" line:

Code:

Set sText = Selection.Cells(1).Range.Paragraphs(1).Range
sText.End = sText.Cells(1).Range.End - 1
sText.Select

The "sText.End = sText.Cells(1).Range.End - 1" line reduces the selection of the entire row to just the text in that row. Then the ".MoveEnd unit:=wdCharacter, Count:=-Len(sText) + 1" code in the True Title section works as though you manually selected the text in the first row.

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
Task Indicator - All predecessors complete true/false, y/n	jdove78	Project	2	10-10-2012 05:53 PM
IF formula returns TRUE instead of evaluating COUNTIF	ColinC	Excel	4	12-28-2011 08:21 AM
Another Case of Automatic/Zombie Formatting of Tables	MKummerfeldt	Word Tables	0	10-31-2011 10:40 AM
Macro not staying true	oluc	Word VBA	4	11-21-2010 08:10 AM
From all UPPER CASE to Proper Case	davers	Word	1	04-30-2009 12:41 PM