True Title Case for First Row of All Tables

		Microsoft Office Forums > Microsoft Word > Word VBA
True Title Case for First Row of All Tables

FAQ

Thread Tools

Display Modes

12-09-2013, 03:29 PM

macropod

Windows 7 32bit True Title Case for First Row of All Tables

Office 2010 32bit

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,523

I'm not sure what the issue is, but try changing:

Code:

  For i = 1 To .Sentences.Count
    With .Sentences(i)
      If Len(.Text) > 2 And .Characters.Last = .Cells(1).Range.Characters.Last Then .End = .End - 1
      .MoveStart wdWord, 1

to:

Code:

  For i = 1 To .Cells.Count
    With .Cells(i).Range
      .Start = .Start + InStr(.Text, " ")
      .End = .End - 1

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

« Previous Thread | Next Thread »

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

Other Forums: Access Forums

All times are GMT -7. The time now is 12:24 PM.