MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

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

    lmaria123
    lmaria123
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 15
    Registrado : 10/05/2012

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

    Mensagem  lmaria123 10/5/2012, 20:10

    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
    avatar
    soncan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 11/07/2011

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

    Mensagem  soncan 10/5/2012, 20:32

    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!
    lmaria123
    lmaria123
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 15
    Registrado : 10/05/2012

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

    Mensagem  lmaria123 10/5/2012, 20:53

    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
    lmaria123
    lmaria123
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 15
    Registrado : 10/05/2012

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

    Mensagem  lmaria123 10/5/2012, 21:52

    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.
    =)
    lmaria123
    lmaria123
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 15
    Registrado : 10/05/2012

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

    Mensagem  lmaria123 10/5/2012, 21:55

    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.
    avatar
    soncan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 11/07/2011

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

    Mensagem  soncan 10/5/2012, 22:19

    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?
    lmaria123
    lmaria123
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 15
    Registrado : 10/05/2012

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

    Mensagem  lmaria123 11/5/2012, 18:50

    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?
    avatar
    soncan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 11/07/2011

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

    Mensagem  soncan 11/5/2012, 20:14

    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
    avatar
    soncan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 11/07/2011

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

    Mensagem  soncan 11/5/2012, 21:06

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 15
    Registrado : 10/05/2012

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

    Mensagem  lmaria123 14/5/2012, 19:39

    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 Sad
    Anexos
    [Resolvido]Criar arquivo docx e copiar texto de outro arquivo do word para o arquivo criado AttachmentCopiaDoc.txt
    Você não tem permissão para fazer download dos arquivos anexados.
    (4 Kb) Baixado 43 vez(es)
    lmaria123
    lmaria123
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 15
    Registrado : 10/05/2012

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

    Mensagem  lmaria123 15/5/2012, 04:40

    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
    avatar
    soncan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 11/07/2011

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

    Mensagem  soncan 19/5/2012, 01:04

    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.
    Anexos
    [Resolvido]Criar arquivo docx e copiar texto de outro arquivo do word para o arquivo criado AttachmentDatabase11.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (31 Kb) Baixado 84 vez(es)
    lmaria123
    lmaria123
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 15
    Registrado : 10/05/2012

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

    Mensagem  lmaria123 22/5/2012, 15:16

    Oi Socan,

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

    Obrigada pela ajuda!
    avatar
    soncan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 11/07/2011

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

    Mensagem  soncan 22/5/2012, 20:41

    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!

      Data/hora atual: 28/11/2022, 00:26