[Resolvido]Criar arquivo docx e copiar texto de outro arquivo do word para o arquivo criado

Olá,

eu preciso de um código que seja capaz de criar um arquivo do word, copie textos de outros arquivos word e cole esses textos no arquivo criado.
Alguém sabe como fazer isso?

Eu tenho apenas a função que copia um texto, agora eu preciso colar esse texto no arquivo que será criado, juntamente com outros textos:

Public Function CopiarTexto()

Dim Word As Object
Set Word = CreateObject("Word.Application")

'Abre o documento
Word.Documents.Open "C:\Users\Projetos\1-MODELOS\" & "ExemploCopiaTexto.docx"

'Seleciona o documento inteiro
Word.Documents("ExemploCopiaTexto.docx").Select

End Function

Obrigada

Pelo que andei pesquisando da pra fazer o seguinte
criar um relatorio que recebera a informação e depois criar a rotina
DoCmd.OutputTo acOutputReport, "seurelatorio", acFormatword, strPath 'Salva relatório "strpath é o endereço onde vc quer que a rotina salve seu realtorio.

Espero ter ajudado!

soncan, obrigada pela resposta.

O que eu tô querendo fazer é o seguinte:

Eu quero ter perquenos arquivos de texto, todos com a mesma formatação, e cada um vai ter o trecho do texto final. Ficaria mais ou menos assim:

Arquivos:
1_Topografia.docx
2_Geotecnia.docx
3_Fundações.docx
4_Estruturas.docx
.
.
.
n_EnésimaEtapa.docx

Dentro do BD o usuário vai selecionar as etapas que ele quer, por exemplo 1 e 3.
Depois que ele selecionasse as etapas que ele quer o usuário deve clicar num botão que vai gerar um arquivo Memorial.docx que tem o texto copiado de 1_Topografia.docx e 3_Fundações.docx

Conseguí um código que cria o documento word, modifica ele e depois salva, agora só falta chamar os outros documetos pra dentro do texto:

'Este código cria um documento no Word e salva a sua data de criação:
Sub CreateDoc()
Dim WordObj As Word.Application
Dim WordDoc As Word.Document
Dim WordRng As Word.Range
Dim WordPar As Word.Paragraph
Set WordObj = CreateObject("Word.Application")
With WordObj
.WindowState = wdWindowStateMaximize
.Documents.Add
Set WordDoc = WordObj.ActiveDocument

Set WordRng = WordDoc.Range
With WordRng
.Font.Bold = True
.Font.Italic = True
.Font.Size = 16
'Aqui seria onde eu colocaria o texto que eu quero:
.InsertAfter "Running Word From Access Using Automation"
.InsertParagraphAfter
'Insert a blank paragraph between the two paragraphs
.InsertParagraphAfter
End With
Set WordPar = WordRng.Paragraphs(3)

With WordPar.Range
.Bold = True
.Italic = False
.Font.Size = 12
.InsertAfter "Report Created: "
.Collapse Direction:=wdCollapseEnd
.InsertDateTime DateTimeFormat:="MM-DD-YY HH:MM:SS"
End With
.ActiveDocument.SaveAs "C:\Projetos\4-BD_PROJETOS.docx"
.Quit
End With
End Sub


esse código tá funcionando, e eu também tenho o código que copia o texto do word, só falta agora colocar no insert o texto da área de transferência (que eu não tenho a menor ideia de como faz) e mandar ele fazer isso para todos os textos selecionados em um formulário.
=)

E falta também um comando pra ele gravar o texto com outro nome, ou talvez com a data e hora, pra não ter problemas na hora de gravar os arquivos.

me manda uma copia do bd, tenho uma ideia mas vai levar um tempinho.
Pensei no seguinte, vc ja tem os codigos que seleciona e copia os textos, entao só falta inserir eles n bd, é isso?

Oi socan,

obrigada pela disponibilidade de ajudar!

Eu posso te mandar o BD mas ele ainda não tem muita coisa, eu tô primeiro testando as ideias que eu tenho pra depois fazer todas as relações, formulário, enfim...

O problema não é colocar os textos no BD, o problema é o access abrir esses fragmentos de texto, copiar o conteúdo e colar esse conteúdo em um novo documento.

A ideia é tipo isso:

Eu tenho os documentos do word A, B e C

No texto A tem escrito:
1 - O dia está lindo.

No texto B tem escrito:
2 - Faz sol.

No texto C tem escrito:
3 - Está chovendo.


O que eu quero é que o usuário entre em um formulário e marque que quer o texto "A" e o texto "C"
Então ele aperta um botão "Gerar relatório" e o código desse botão crie um documento que pode se chamar, digamos "Projeto_data" ou, se pudesse ia ser melhor, que o usuário inserisse o nome que ele quer.
Daí o texto "Projeto_data" contería o seguinte texto:

1 - O dia está lindo.
3 - Está chovendo.


Você tem alguma ideia?

achei isso na net, to dando uma estudada... rsrsrsrsrs

http://translate.google.com.br/translate?hl=pt-BR&sl=en&u=http://www.databaseadvisors.com/newsletters/newsletter072002/0207wordautomationlpt1.asp&ei=t2StT5OROoOg8QSegoHcDA&sa=X&oi=translate&ct=result&resnum=1&ved=0CCMQ7gEwAA&prev=/search%3Fq%3DDim%2BWord%2BAs%2BObject%26hl%3Dpt-BR%26safe%3Doff%26biw%3D1366%26bih%3D651%26prmd%3Dimvnsfd

Consegui fazer isso
se parece muito com o que vc precisa fazer
http://dl.dropbox.com/u/66900159/testeImaria.mdb

Oi Socan,

o botão 1 está criando o arquivo, mas o 0 nem dá pra saber se funciona, já que ele só copia o arquivo da base rs

Eu escreví esse código anexado com o recorte de outros códigos que eu achei por aqui, já que não tinha nenhum que fizesse ezatamente o que eu queria.

Eu não sou nenhuma programadora, por isso já sabia que estava fazendo tudo errado e nem esperava que o código fosse rodar, (como não rodou) mas acho que ele expressa bem o que eu quero fazer.

Quando eu tentei rodar deu o seguinte erro: "Era esperado tipo definido pelo usuário, não projeto"

Preciso de ajuda

Eu consegui editar um módulo que abre um documento word, copia o seu conteúdo depois abre outro documento word e cola esse conteúdo. Essa parte tá funcionando. Agora falta implementar isso para o form:


Sub CopiarTexto()
Dim objWord As Word.Application
Dim DocBase As Word.Document
Dim objWordB As Word.Application
Dim MeuDoc As Word.Document
Dim Rng As Word.Range

Set objWord = CreateObject("Word.Application")
Set DocBase = objWord.Documents.Open("C:\Users\Lidia\Projetos\Versões\Textos\" & "Texto1.docx")

With objWord
.Visible = True
.Activate
.Selection.WholeStory
.Selection.Copy
End With

With DocBase
.Saved = True
End With

Set DocBase = Nothing
objWord.Quit
Set objWord = Nothing

Set objWordB = CreateObject("Word.Application")
Set MeuDoc = objWordB.Documents.Open("C:\Users\Lidia\Projetos\Versões\Textos\" & "Texto4.docx")
With objWordB
.Visible = True
.Activate
.Selection.PasteAndFormat (wdPasteDefault)

End With

With MeuDoc
.Saved = False
End With

Set Rng = Nothing
Set MeuDoc = Nothing
objWordB.Quit
Set objWordB = Nothing

End Sub

Boa noite Maria

Fiz alguns testes e consegui fazer isso, só falta conciliar com os inputbox, mas falta pouco....rsrsrsrs
Neste exemplo consegui fazer não só que copiase e colasse como cria o documento com o nome que o usuario quiser, colocando data da criação do arquivo.

Oi Socan,

eu consegui resolver esse problema. O código funciona perfeitamente e ainda abre o diálogo salvar como do word

Obrigada pela ajuda!

Fico, feliz que tenha dado certo
O bacana seria vc postar como ficou o projeto, para que outros caso tenham o mesmo problema consigam soluciona-lo, assim como vc conseguiu.

Um abraço!