para cassitos e outros...

[Fabiana_Santos 0]

Tudo bem... eu esqueci mesmo deste parâmetro "ObjWord". Mas apesar de incluí-lo esse erro continua. Que coisa! Mais precisamente o erro está em "Call Substitui_Var"

 

 

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),Objword)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

 

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

[cassitos 2]

Muda:

 

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

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

agora, os parâmetros já estão corrigidos no seu post. Tá passando certo, verifica se não há outro lugar declarando a mesma Sub.