Selected Text when in a Table

hss001 · #4 01-03-2024, 09:32 AM

Hi gmayor.

I tried this and it works fine if the sentence is not the last cell. But if the sentence is the last cell it returns weird characters (I think they are end of table chars).

Thanks

Quote:

Originally Posted by gmayor

The issue relates to how many sentences there are in the table cell and which sentence the selection occurs in. If the selection is in the last sentence or only sentence in the cell, the whole cell is selected. You can test for this and make the necessary adjustment e.g.

Code:

Dim orng As Object
    Set orng = oWordApp.Selection.Range
    If orng.Information(12) Then
        If orng.Sentences(1) = orng.Cells(1).Range.Sentences.Last Then
            Set orng = orng.Cells(1).Range.Sentences.Last
            orng.End = orng.End - 1 'omit the table cell end character
            orng.Select
         Else
            orng.Sentences(1).Select
        End If
    Else
        orng.Sentences(1).Select
    End If

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
accessing avery label table in macro	littlepeaks	Word VBA	10	08-09-2022 12:12 PM
Footnote formatting>"Apply changes to selected text" not limiting changes to selected text	Swarup	Word	11	07-26-2022 01:51 PM
Find and Replace Selected Text or Macro for finding selected text	mrplastic	Word VBA	4	12-20-2019 01:25 PM
Word for Mac 2011: Problems accessing Text Boxes programmatically	techy291	Word VBA	0	07-16-2017 08:41 AM
Select Text in Table but Table Gets Selected Too	RBusiness	Word	1	06-07-2011 04:26 PM