botao opçao com documento do word (impor

[Fabiana_Santos 0]

:( bem, vou dar um exemplo:possuo um documento do word (uma carta por exemplo) e outros dois documentos (cronograma de aniversário e outros aniversariantes);Inseri no meu form botoes com as seguintes opções:doc aniversário doc aniversario com cronograma doc aniversário com outros aniversariantes doc aniversários com cronograma e outros aniversariantesÉ possível, a partir do documento principal (que é carta aniversário) ir inserindo os outros dois documentos somente clicando nas opções. No caso após escolher as opções clicaria no botão visualizar carta.Como faço isso?O que quero é inserir um documento dentro do outro mas isso , de acordo com o que eu escolher . Alguém por favor pode me informar como posso fazer isso e se isso é possível?Aguardo urgentemente a resposta de alguém.Sem mais,Fabiana(13-81231429)

[cassitos 2]

tem como sim, é mei... digamos... como alguns podem dizer "braçal" mas funfa que é uma beleza.

 

você deve ir no menu Projects/References..., daí na pequena lista que irá aparecer procure por "Microsoft Word 9.0 Object Library" (note que a versão pode variar hein) no caso aqui estou com o Word2000.

 

Daí, este é o código que montei baseado na estrutura informada:

 

Option Explicit

 

Private Sub CmdAbrir_Click()

  Dim Word1 As New Word.Application

  Dim Doc1  As Word.Document

 

  'documento principal

  Set Doc1 = Word1.Documents.Open("C:\aniver.doc", , True)

 

  'ativa o documento

  Doc1.Activate

  'exibe a janela

  Word1.Visible = True

 

  'verificar se deve adicionar alguns arquivos

  'Cronograma

  If OptAniverCrono.Value = True Then

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

    SendKeys "%IU" & "c:\cronograma.doc" & "{TAB}{TAB}{TAB}{ENTER}"

  'Outros Aniversariantes

  ElseIf OptAniverOutros.Value = True Then

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

    SendKeys "%IU" & "c:\outrosaniver.doc" & "{TAB}{TAB}{TAB}{ENTER}"

  'Outros Aniversariantes e Cronograma

  ElseIf OptAniverCronoOutros.Value = True Then

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

    SendKeys "%IU" & "c:\outrosaniver.doc" & "{TAB}{TAB}{TAB}{ENTER}"

    '

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

    SendKeys "%IU" & "c:\cronograma.doc" & "{TAB}{TAB}{TAB}{ENTER}"

  End If

 

End Sub

Este é o código de um formulário.

 

As opções foram feitas com OptionButton (cada pergunta).

 

O SendKeys foi utilizado para simular: clicar no menu Inserir/Arquivo, digitar o nome do arquivo, pressionar TAB três vezes até chegar no botão Inserir e depois pressionar ENTER. No Word.

 

No código basta trocar o caminho dos arquivos que está no exemplo pelo que deve ser de acordo com seu projeto.

 

As fontes:

http://www.macoratti.net/vb_outl2.htm (uso das SendKeys)

http://www.macoratti.net/vba_ofce.htm (acessar documentos office pelo vb)

 

inté

[Fabiana_Santos 0]

:D valeu pela resposta...

vou tentar fazer , vamos ver no que vai dar.

 

Brigadão http://forum.imasters.com.br/public/style_emoticons/default/joia.gif