Selected Text when in a Table

gmayor · #1 12-16-2023, 12:28 AM

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

hss001 · #2 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

vivka · #3 01-04-2024, 03:40 AM

Hi, hss001! I'm repeating my answer: after finding & selecting your word use the following three lines:

Code:

selection.Extend
selection.Extend
selection.Extend

hss001 · #4 01-04-2024, 07:28 AM

Hi, this method works perfectly in isolation. The issue is that the code I've inherited does a Find using a Selection. So, modifying the selection by extending it breaks the Find.

Quote:

Originally Posted by vivka

Hi, hss001! I'm repeating my answer: after finding & selecting your word use the following three lines:

Code:

selection.Extend
selection.Extend
selection.Extend

vivka · #5 01-04-2024, 07:54 AM

hss001, do you want the code to msgbox, select or highlite the found sentence(s)? If the found senetence is selected the original selection will be always broken. Sorry, but I don't quite understand your aim.

hss001 · #6 01-04-2024, 08:08 AM

Ideally, I want to "select" the "sentence" of the selected text - this will work without needing to modify any other code.

So the below line works fine, EXCEPT when the text is in a table and also the last row - as it picks up end of row characters.

Code:

sStringVariable = oWordApp.Selection.Sentences(1)

@gmayor's code - it doesn't appear to work correctly, in that it doesn't detect if the cell is in the last row.

So, all I need to do is detect if the selection is in the last row of a table, and then strip off the last 2 chars.

Quote:

Originally Posted by vivka

hss001, do you want the code to msgbox, select or highlite the found sentence(s)? If the found senetence is selected the original selection will be always broken. Sorry, but I don't quite understand your aim.

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