View Single Post
Old 04-21-2012, 01:56 PM
tinfanide tinfanide is offline Windows 7 64bit Office 2010 32bit
Join Date: Aug 2011
Posts: 312
tinfanide is on a distinguished road

Dim str As String
Dim oRange As Range

With ActiveDocument
    With .Tables(1)
        For Each Cell In .Range.Cells
            With Selection
                Set oRange = Cell.Range
                With oRange

''' It seems that for table cells .Start cannot function
''' First we should .End = .End - 1 first

                    .End = .End - 1
                    .Start = .Start + 1
                End With
            End With
    End With
End With
See the comments above.
Reply With Quote