Jump to content
Fórum Script Brasil
  • 0

Vb X Word


Falkonildo
 Share

Question

Bom dia a todos!!

Preciso montar um formulário, onde irá ter alguns "Check Box", terá uma base de dados no access e quando eu selecionar algum item nos check box, o programa busca as informações referente a opção escolhida no access e joga dentro de um documento já existente .doc, de preferência eu lugares já específicos (estilo mala direta)

Exemplo:

Opção do Check Box: " Item 1 "

Base de dados no access: "O Item 1 é assim assim assado"

Documento pré montado no word: Segue abaixo os itens:

Item 1

O item 1 é assim assim assado

Alguém sabe como fazer isto?

Muito obrigado.

Abs,

Renan

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0

Dim objWord As Word.Application

Função pra trocar os textos

Private Sub Troca(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

Comando

Set objWord = New Word.Application

objWord.Documents.Open CAMINHODOARQUIVOBASE.DOC

Call Troca("@texto", "VALOR")

objWord.Visible = False

objWord.ActiveDocument.Save

objWord.Quit

Exemplo

Nome = inputbox("Digite o nome do cidadão:","Atenção:")

if Nome <> "" then

Set objWord = New Word.Application

objWord.Documents.Open CAMINHODOARQUIVOBASE

Call Troca("@nome",Nome)

objWord.Visible = False

objWord.ActiveDocument.Save

objWord.Quit

Isso substituiria no arquivo BASE.DOC

o texto @nome (do arquivo) pelo valor da variavel NOME

falou

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      151k
    • Total Posts
      649.1k
×
×
  • Create New...