How can I extract text question between characters

gmayor · #2 12-24-2020, 09:37 PM

Looking for text between two very common characters such as '.' and '?' is bound to produce lots of false positives. It is necessary to narrow the search criteria.

In this example I would simply search for the string and remove the unwanted characters e.g.

Code:

Sub Macro1()
Const strFind As String = ". How are you today?"
Dim sText As String
    Selection.HomeKey wdStory
    Selection.Find.ClearFormatting
    With Selection.Find
        Do While .Execute(findText:=strFind, _
                          MatchWildcards:=False, _
                          Wrap:=wdFindStop, _
                          Forward:=True) = True
            sText = Replace(Selection.Range, ". ", "")
            sText = Replace(sText, "?", "")
            'do something with the found text e.g.
            MsgBox sText
        Loop
    End With
lbl_Exit:
    Exit Sub
End Sub

but see Replace using wildcards

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Extract all characters from the nth number of a string	Marcia	Excel	2	02-24-2020 05:15 PM
How to extract text between <>	LearnerExcel	Excel	4	02-07-2018 06:11 AM
Formula to Extract text from a text string	Haha88	Excel	2	11-14-2017 01:32 AM
Extract Line of Text w/ specific characters up to the paragraph character, send to Excel	dmarie123	Word VBA	10	07-20-2015 12:16 AM
Macro to find text in between two characters and then format selected text?	qcom	Word	5	02-19-2015 11:23 PM