Microsoft Office Forums - View Single Post - [Solved] True Title Case for First Row of All Tables

macropod · 12-09-2013, 03:29 PM

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