office automation Word-Excel

[Guest]

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

 

[Dick Kusleika]

pggardener

Just a guess: How is sfield dimmed, as an array? Has the variable 'c' been
initialized?

--
Dick Kusleika
MVP - Excel
www.dicks-clicks.com
Post all replies to the newsgroup.

I call this code and always fails with Error number: - 2147023113 VBA

Project Execute Method Failed. I don't know why it fails. Anybody?

 

[Guest]

sfield is actually define this way

Dim sfield(0 To 4) As String