Estou fazendo com que o visual basic abra um documento do word mas esta dando erro.
O erro é Run Time Error número 424
O código fonte que estou fazendo é esse:
----------------------------------------------------------------------------------
Private Sub cmdContrato_Click()
Dim temp As String
Set ObjWord = New Word.Application
' Desabilita o botao de comando
cmdContrato.Enabled = False
' nome do relatorio pré montado
ObjWord.Documents.Open ("c:pitucacontrato.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
End Sub
Private Sub Substitui_Var(Header As String, Data As String)
With ObjWord.Selection.Find Erro nesta linha
.ClearFormatting
.Text = Header
.Execute Forward:=True
End With
Clipboard.Clear
Clipboard.SetText (Data)
ObjWord.Selection.Paste
Clipboard.Clear
End Sub
