I call this code and always fails with Error number: - 2147023113 VBA Project Execute Method Failed. I don't know why it fails. Anybody
wdNew.Content.Selec

For col = 1 To
With wdApp.Selection.Fin
fcontent = exSheet.Cells(rec, col).Valu
.Execute FindText:=sfield(c), ReplaceWith:=fcontent,
Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinu

End Wit
Nex