Macro to find string and copy sentence containing string.

[Aerogal]

Hi Ron,

You need to be precise in what you're searching for and, depending on your document there might be a better way with styles, but maintaining two different Find objects will allow you to search back from your sentence to find some bold text without disrupting the first Find, something like this ..
[VBA]
:
:

Dim aRange As Range
Dim bRange As Range

:

Set aRange = ActiveDocument.Range
Set bRange = ActiveDocument.Range

:
:

aRange.Copy

bRange.End = aRange.End
bRange.Collapse wdCollapseEnd

bRange.Find.ClearFormatting
bRange.Find.Font.Bold = True
With bRange.Find
.Text = ""
.Forward = False
.Wrap = wdFindStop
.Format = True
End With
bRange.Find.Execute

aRange.Collapse wdCollapseEnd

:
:[/VBA]