para Cassitos e outros ...

[Fabiana_Santos 0]

Aquele Run timer error 13 parou ...

 

O erro é o seguinte: "Compiler: error Argument not optional" e o erro aponta para a linha que destaquei abaixo em vermelho ... pode me dizer porqueestá dando isso? Será que tenho que fazer alguma referencia no Projects\references?

 

 

 

Private Sub Substitui_Var(Header As String, data As String, ObjWordTemp As Application)

Dim temp As String

 

 

With ObjWordTemp.Selection.Find

.ClearFormatting

.Text = Header

.Execute Forward:=True

 

 

Clipboard.Clear

Clipboard.SetText (data)

 

ObjWordwordTemp.Selection.Paste

Clipboard.Clear

End With

 

End Sub

 

 

 

Private Sub opcaosemvinculo_Click()

Dim temp As String

Dim Objword As Object

Set Objword = New Word.Application

 

Word.Documents.Open "T:\PROJETO ORIGINAL\Topicos 28.11\inicialsemvinculo.doc"

 

Call Substitui_Var("@svvara", (Dados.Text18.Text))

Call Substitui_Var("@cliente", (Dados.Text2.Text))

Call Substitui_Var("svnacionalidade", (Dados.Text3.Text))

Call Substitui_Var("svestadocivil", (Dados.Text3.Text))

Call Substitui_Var("@svdatanascimento", (Dados.Text4.Text))

Call Substitui_Var("@svnumerorg", (Dados.Text5.Text))

Call Substitui_Var("@svcpfnumero", (Dados.Text4.Text))

Call Substitui_Var("@svendereço", (Dados.Text6.Text))

Call Substitui_Var("@svcidade", (Dados.Text8.Text))

Call Substitui_Var("@svestado", (Dados.Text7.Text))

Call Substitui_Var("@svcep", (Dados.Text11.Text))

Call Substitui_Var("@svadverso", (Dados.Text12.Text))

Call Substitui_Var("@svcnpj", (Dados.Text12.Text))

Call Substitui_Var("@svendereço2", (Dados.Text13.Text))

Call Substitui_Var("@bairro2", (Dados.Text2.Text))

Call Substitui_Var("@cidade2", (Dados.Text14.Text))

Call Substitui_Var("@estado2", (Dados.Text15.Text))

Call Substitui_Var("@svnumerocep", (Dados.Text2.Text))

Call Substitui_Var("@svdataadmissao", (Dados.Text1.Text))

Call Substitui_Var("@svvinculoempregaticio", (Dados.Text2.Text))

Call Substitui_Var("@svdatademissao", (Dados.Text2.Text))

Call Substitui_Var("@svultimosalario", (Dados.Text2.Text))

Call Substitui_Var("@svdataatual", (Dados.Text20.Text))

 

 

If Option1.Value = True Then

SendKeys "^{end}" 'mover o cursor até o final do arquivo original, para iniciar a inclusão

 

SendKeys "%iu" & "T:\PROJETO ORIGINAL\Topicos 28.11\OP1.doc" & "{TAB}{TAB}{TAB}{ENTER}"

 

 

 

 

ElseIf Option2.Value = True Then

SendKeys "^{end}" 'move o cursor até o final do arquivo original, para iniciar a inclusão

 

SendKeys "%iu" & "T:\PROJETO ORIGINAL\Topicos 28.11\OP2.doc" & "{TAB}{TAB}{TAB}{ENTER}"

 

ElseIf Option3.Value = True Then

SendKeys "^{end}" 'mover o cursor até o final do arquivo original, para iniciar a inclusão

 

SendKeys "%iu" & "T:\PROJETO ORIGINAL\Topicos 28.11\Topicos 28.11\OP3.doc" & "{TAB}{TAB}{TAB}{ENTER}"

 

 

ElseIf Option4.Value = True Then

SendKeys "^{end}" 'move o cursor até o final do arquivo original, para iniciar a inclusão

 

SendKeys "%iu" & "T:\PROJETO ORIGINAL\Topicos 28.11\OP4.doc" & "{TAB}{TAB}{TAB}{ENTER}"

 

 

ElseIf Option29.Value = True Then

SendKeys "^{end}" 'mover o cursor até o final do arquivo original, para iniciar a inclusão

 

SendKeys "%iu" & "T:\PROJETO ORIGINAL\Topicos 28.11\OP29.doc" & "{TAB}{TAB}{TAB}{ENTER}"

 

 

 

SendKeys "^{end}"

 

SendKeys "%iu" & "T:\PROJETO ORIGINAL\Topicos 28.11\inicialcomvinculo.doc" & "{TAB}{TAB}{TAB}{ENTER}"

Objword.Quit

MsgBox "contrato Gerado!!!"

Set Objword = Nothing

End If

 

 

Exit Sub

 

Exit Sub

 

 

End Sub

[MbarrosDaniel 0]

Fabiana, Creio que este erro esta ocorrendo porque a SUB:Private Sub Substitui_Var(Header As String, data As String, ObjWordTemp As Application)possui 3 parametros : Header, Data e ObjWordTempE quando você esta chamando, você a esta chamando com apenas 2Call Substitui_Var("@svvara", (Dados.Text18.Text))você pode colocar na sua sub que o útlimo parâmetro é opcional.Espero ter ajudado

[cassitos 2]

Fabiana é isso ae que a galera disse mesmo.

é só fazer este acerto.

 

também passei em um post que:

Word.Documents.Open "T:\PROJETO ORIGINAL\Topicos 28.11\inicialsemvinculo.doc"

deveria estar como:

ObjWord.Documents.Open "T:\PROJETO ORIGINAL\Topicos 28.11\inicialsemvinculo.doc"

senão dá aquela mensagem "Object or With Block not set".