Selected Text when in a Table

vivka · #17 01-10-2024, 03:59 AM

Hi! Good that you think you have found sth different from the codes proposed before. To retain the original selection, oRng.Duplicate could be used:

Code:

Sub Find_Wd_N_Select_Sent()
'Find the inputboxed wd & select the sentence it is in.
Dim oRng As range
Dim oRngD As range
Dim strWd As String
    
    Set oRng = selection.range
    Set oRngD = oRng.Duplicate
    strWd = InputBox("Enter the word to find", "FIND")
    With oRngD.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .text = strWd
        .Replacement.text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchWildcards = False
        If .Execute Then
            oRngD.Select
            selection.Extend: selection.Extend: selection.Extend
'Or using your .Expand:
 '            selection.Expand Unit:=3
'Or:
'            selection.Expand Unit:=wdSentence
         End If
    End With
'This is to see the original selection:
    oRng.Select
 '    Set oRng = Nothing
 End Sub

That's it. As simple as this. Run the code line-by-line pressing F8 to see how it works.
The final note: if you want to go on searching for the next occurrence of the key wd in the original selection, you will keep finding the 1st occurrence. So, collapasing the range is better, I think. Our side view is always better than other people's front view of the same thing. Good luck!
PS. Another challenge: If you try to use .Expand function to select the last or only sentence in a table cell, you will get a wrong selection.

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