Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 12-24-2020, 09:37 PM
gmayor's Avatar
gmayor gmayor is offline How can I extract text question between characters Windows 10 How can I extract text question between characters Office 2016
Expert
 
Join Date: Aug 2014
Posts: 4,142
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

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
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote
  #2  
Old 12-25-2020, 02:50 AM
Matrix2021 Matrix2021 is offline How can I extract text question between characters Windows 10 How can I extract text question between characters Office 2019
Novice
How can I extract text question between characters
 
Join Date: Jul 2020
Posts: 6
Matrix2021 is on a distinguished road
Default

Quote:
Originally Posted by gmayor View Post
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
Hi Gmayor.

I am sorry. Thanks for your reply.

The problem is this. The above question is an example (. How are you today?) I am not sure if that question "how are you today?" is in the word document. (However, it's only one question).

What I'm trying to accomplish is this? How can I extract all types of questions between 2 types and 2 groups of characters?
  1. . Question #1?
  2. , question #2?
  3. . Question #107? and so on...

Usually, questions in a paragraph have a period "." or a commo "," before the question and ends with a question mark "?".

I am sorry Gmayor, you mention. that the 2 characters "is bound to produce lots of false positives".

The question is, how am I going to work around this? What are other solutions do I have? How can I prevent "false positives"?

Thanks in advance

Cheers

Happy holiday
Reply With Quote
Reply

Tags
vba



Similar Threads
Thread Thread Starter Forum Replies Last Post
How can I extract text question between characters Extract all characters from the nth number of a string Marcia Excel 2 02-24-2020 05:15 PM
How can I extract text question between characters 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
How can I extract text question between characters 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

Other Forums: Access Forums

All times are GMT -7. The time now is 01:39 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft