• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

towa

Visual basic to word!!! AJUDA PF

3 mensagens neste tópico

É assim eu gostava que fosse buscar os dados ao visual basic e que depois introduzisse no word i grava-se mas dame uma cambada de erros e não os consigo resolver.

Ajuda por favor

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:\teste\Contrato.doc")

' chama rotina para substituicao

Call Substitui_Var("@contratada", (Data.Text1.Text))

Call Substitui_Var("@sede", (Data.Text2.Text))

Call Substitui_Var("@cidade1", (Data.Text3.Text))

Call Substitui_Var("@contratante", (Data.Text4.Text))

Call Substitui_Var("@endereco2", (Data.Text5.Text))

Call Substitui_Var("@documento", (Data.Text6.Text))

Call Substitui_Var("@aluno", (Data.Text7.Text))

' Salva o documento com um novo nome

objword.ActiveDocument.SaveAs (Text8.Text)

'Encerra o word

objword.Quit

' informa ao usuario que o contrato foi gerado

MsgBox "Contrato gerado com sucesso! em : " & Text8.Text, 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

    .ClearFormatting

    .Text = Header

    .Execute Forward:=True

  End With

  Clipboard.Clear

  Clipboard.SetText (Data)

  objword.Selection.Paste

  Clipboard.Clear

End Sub

Private Sub Command2_Click()

End

End Sub

**************

Error:

424

* Bigada*

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

porque queres gravar no word???

Experimenta para o bloco de notas... é muito mais facil...

e assim ja te posso ajudar...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora