Microsoft Office Forums - View Single Post - [Solved] Extract a string from a paragraph

gmayor · 09-08-2016, 01:01 AM

You can extract them individually, which begs the question - what do you want to do with these strings having extracted them?

'Contains' upper case characters or 'comprises' upper case characters?

The following assumes only upper case characters & space (no punctuation)

Code:

Sub Macro1()
Dim oRng As Range
Dim oPara As Paragraph
Dim sText As String
    For Each oPara In ActiveDocument.Paragraphs
        Set oRng = oPara.Range
        With oRng.Find
            Do While .Execute(FindText:="^t[A-Z ]{1,}^t", MatchWildcards:=True)
                If oRng.InRange(oPara.Range) Then
                    sText = Replace(oRng.Text, Chr(9), "")
                    'do something with stext e.g.
                    MsgBox sText
                End If
                oRng.Collapse 0
            Loop
        End With
    Next oPara
lbl_Exit:
    Set oRng = Nothing
    Set oPara = Nothing
    Exit Sub
End Sub