If objselection.Find.Execute Then
MsgBox ("Adding to Scope of Work Document")

'Delete the found text
'Leaves objselectrion a single point in your document
objselection.Delete

objword.Selection.PasteSpecial link:=False, DataType:=wdPasteObject,
Placement:=wdInLine, DisplayAsIcon:=False

Etc.

-EW