Erro No Codigo Fonte

[objeto1_systems]

Por favor me ajude a encontrar o erro

O erro que esta dando número: 424

O código fonte:

Private Sub cmdContrato_Click()

Dim temp As String

On Error GoTo trata_erro

Set ObjWord = New Word.Application

' Desabilita o botao de comando

cmdContrato.Enabled = False

' nome do relatorio pré montado

ObjWord.Documents.Open ("c:\pituca\contrato.doc")

' chama rotina para substituicao

'Call Substitui_Var("@contratada", txtNome)'

Call Substitui_Var("@rg", txt_rg)

Call Substitui_Var("@cpf", txt_cpf)

Call Substitui_Var("@endereco", txtEndereco)

Call Substitui_Var("@cidade", txt_cidade)

Call Substitui_Var("@estado", txt_estado)

Call Substitui_Var("@tel", txt_tel)

' Salva o documento com um novo nome

ObjWord.ActiveDocument.SaveAs (txtContrato)

'Encerra o word

ObjWord.Quit

' informa ao usuario que o contrato foi gerado

MsgBox "Contrato gerado com sucesso! em : " & txtContrato, vbInformation, " Contrato Gerado "

' libera memoria

Set ObjWord = Nothing

Exit Sub

trata_erro:

MsgBox "Ocorreu um erro durante o processamento " & " - Erro numero : " & Err.Number

End Sub

Muito obrigado,

Samira Souza

[jiraiaa]

amigo se voce não colocar a mensagem de descrição do erro e onde é que deu o erro não vai ter como falar pra vc..

wellington@uau.com.br

[objeto1_systems]

O erro acontece na seguinte linha

With Objword.Selection.Find

A mensagem de erro é Run Timer Erro n° 424 Object not required

Eu gostaria de saber se existe até mesmo uma maneira mais facil de arir um documento do word

Agradeço quem puder me ajudar