[Resolvido]doc do word em um form no access automaticamente

Olá amigos do forum.

Estou de volta com uma situação que para mim pareceu fácil de inicio mas infelizmente não o tem sido,

Vamos lá:

Situação 01 - Tenho já em funcionamento um sistema de dados que faz o seguinte:
Para cada registro cadastrado o sistema busca em uma pasta uma imagem tendo o nome idêntico ao numero da id do registro em questão, inserindo esta imagem.jpg ou imagem.png ou ainda imagem.bmp dependendo do que eu tenho salvo lá na minha pasta.

Situação 02 - Tenho ainda outro form com um controle onde é inserido um doc do word, porém neste caso tenho quer inserir manualmente.

Duvida:

É possível inserir um doc do word no controle utilizando o mesmo modo da situação 01 - Ou seja ao gerar o novo registro o sistema buscar na pasta de origem o arquivo do word com o nome igual ao número da Id do registro em questão?

Agradeço desde já por qualquer ajuda.

Se puder poste o teu bd ja com estes forms para que possamos ver.

Cumprimentos.

Olá amigos do forun desculpem-me pela ausência, mas estive internado por uns dias e impedido de logar, mas vamos lá

Amigo Piloto, eis ai o modelo que o amigo solicitou espero que dê certo

O programa já funciona com imagens do doc, o que gostaria era exibir o próprio doc e não a imagem usando se possível o mesmo procedimento

Grato pela ajuda de todos vocês

Nunca vi em minhas andanças algo que abra o doc dentro do access, sei que é possivel abrir o doc dentro do word atraves do access..

Lhe serve?

Cumprimentos.

Olá Amigo Piloto.

Este modelo que uso tem algumas outras funções que não lhe enviei por exemplo:
Ao escolher um arquivo ele abre este em uma pagina maximizada de relatório no formato ajustado para tela inteira, eu rodo ele em um netbook e transmito via cabo para um telão onde a banda toda pode Ler, se o doc do word abrisse támbem em tela inteira pode ser que e sirva sim

Grato

Tenho uma versão mais antiga que criei na qual exibo o doc em um controle de imagem, porém ao aumentar o número de arquivos o sistema vai ficando lento, dai a ideia de usar um caminho e não a imagem em se anexada

não sei se deu pra entender
Grato

Desculpe, esqueci de avisar
Neste modelo que te enviei o laço está colocado no nome do arquivo ou seja:
C:\Documentos\Documentos\nome do documento.jpg ou .bmp ou .png

Onde "nome do documento" deve ser o nome de um dos documentos cadastrados no programa sem a extensão é claro

Grato

Mas se as imagens sao carregadas a partir de um caminho não fica lento...

Envie este modelo antigo...

Mas para abrir um doc. do word:



Crie um modulo e o nomeeie de mdlAbrir, neste cole:

Option Compare Database

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long



E no formulario:

DIm nArquivo as String
nArquivo = CuurentPRoject.Path & "\Contratos\" & "NomeDoArquivo" & ".docx"
Call ShellExecute(0, vbNullString, nArquivo, vbNullString, vbNullString, 1)


Cumprimentos.

Piloto, acho que me expressei mal.
Não sei informar o caminho do doc
Só consigo fazer isso com uma imagem jpg ouy similar

Para exibir o doc eu uso uma moldura de objeto não acoplado no formulário e um objeto ole na tabela

mas da um trabalhão danado clica-se com o lado dir do mouse na janela muda as configurações na janela que se abre, localizo o arquivo, mando vincular e dou Ok
e ainda vai ficando pesado


Grato

Os .doc ficam todos em uma pasta? caso sim podemos criar uma função para carregá-los em uma tabela juntamente com o caminho.. e utiliza a tabela para fazer a apresentação...

uma sugestão dada pelo Mestre Criquio para abrir em tela cheia:

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

dWord.Visible = True

dWord.Documents.Open "Caminho do arquivo.doc"
dWord.ActiveDocument.ActiveWindow.View.FullScreen = True

Set dWord = Nothing

DoCmd.RunCommand acCmdAppMinimize

Cumprimentos.

Piloto, meus docs ficam todos em uma pasta sim

no sistema gostaria de cadastrar dados da musica "Documento" e amarrar o nome do arquivo ao nome do doc porém sem a necessidade de ir até o arquivo para fazer a configuração por exemplo:

Eu cadastro uma canção nova com o nome "Filho de Deus" e lá na minha pasta eu coloco um arquivo do word com este mesmo nome.
Ao usar o controle localizar musica eu digito "Filho de Deus" e a minha musica vai ser aberta em tela cheia. para escolher outra musica eu pressiono a tecla esc a janela é fechada voltando para a tela inicial onde posso escolher outra musica e assim por diante...

Isso tudo já funfa mas não em word e sem em jpg... Eu tenho que fazer uma imagem do doc do word e salvar em formato jpg dentro da pasta. Gostaria de fazer a mesma coisa com os docs do word mesmo... será que tem jeito?

Waltair, a função que o Piloto passou faz exatamente isso. Basta colocar o nome do campo na linha especificada para isso. Vamos supor que seu campo se chama txtDocumento:

...
dWord.Documents.Open CurrentProject.Path & "\" & Me.txtDocumento & ".doc"
...

Muito obrigado gente pela força dispensada.

Criquio ao montar tudo aqui funfou legal, porém

"ai! Este porém deve deixar vcs doidos de raiva"

Desculpe sou ainda um novato em linguagem de programação.

Mas vamos ao porém:

Como disse funfou só que abre o word e exibe o doc. o que eu uso abre a imagem em uma janela do access eu gostaria de exibir o documento do word em uma janela do access mas sem ter que usar aquele esquema do objeto OLE pois acho que é o que faz o sistema penar para rodar

Estou tentando adaptar tudo o que já tenho para ver no que dá

Por enquanto muito obrigado pela força de vcs

Uma forma interessante pode ser copiar o texto do documento do Word e colar em uma caixa de texto no formulário. A ideia aqui seria algo assim: um form que se maximiza ao ser aberto e uma caixa de texto que se expanda junto com o formulário para ocupar toda a área. Utilizando a função passada anteriormente, adaptamos para copiar o texto do word e colocar na textbox. Como fechamos o doc depois de copiado e considerando que possa ter uma quantidade de texto meio grande, o word emite uma pergunta dizendo que tem uma grande quantidade de texto na área de transferência e pergunta se quer fechar assim mesmo. Para evitar isso, colocamos uma função que limpa a área de transferência. Tudo junto ficaria algo assim, considerando que no formulário aonde está o nome do documento aberto, esse campo com o nome do documento se chama txtDocumento:

Preparando as funções de esvaziar área de transferência:

Código:

Option Compare Database
    Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
    Private Declare Function EmptyClipboard Lib "user32" () As Long
    Private Declare Function CloseClipboard Lib "user32" () As Long

Sub ATransVazia()
    OpenClipboard (0&)
    EmptyClipboard
    CloseClipboard
End Sub

Código do clique do botão que abre o formulário maximizado:

Código:

Private Sub btnAbrirDoc_Click()
    DoCmd.OpenForm "NomeDoFormulário"
End Sub

Código no evento "Ao apertar tecla" para fechar o formulário maximizado ao pressionar a tecla Esc. O evento "Visualizar teclas" precisa estar como "Sim":

Código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 27 Then
        DoCmd.Close
    End If
End Sub

Evento "Ao carregar" do formulário com a caixa de texto:

Código:

Private Sub Form_Load()

    DoCmd.Maximize
    Me.txtDoc.Width = Me.InsideWidth - 200
    Me.txtDoc.Height = Me.InsideHeight - 200

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

dWord.Visible = False
Me.txtDoc = Null

dWord.Documents.Open CurrentProject.Path & "\" & Forms!NomeDoFormDoCampo!txtDocumento & ".doc"
dWord.Selection.WholeStory
dWord.Selection.Copy

Me.txtDoc.SetFocus
DoCmd.RunCommand acCmdPaste

Call ATransVazia

Me.txtDoc.SelStart = 0

dWord.Documents.Close
dWord.Quit
Set dWord = Nothing

End Sub

Se a versão do Access for a 2007 ou posterior, o texto pode ser colado com toda a formatação da origem no documento. Basta, para isso, configurar a textbox como "Rich text".

Eu encontrei um exemplo na WEB DEL BUHO que usa o OCX dsoframer.ocx para exibir o doc.
Não sei se é isso que você quer, mas vou mandar assim mesmo. Você pode adaptar.
Lembre de instalar a ocx dsoframer.ocx senão não funciona.

Bacana este exemplo....

Cumprimentos.

Bom dia a todos do forun.

Baixei o exemplo e vou dar uma olhada, mas gostei da ideia do Criquio de copiar para a TextBox pois desvincula totalmente o doc da aplicação.

Logo logo postarei os resultados

Por enquanto muito obrigado a todos vocês do forun.

Obrigado, Piloto.

Na WEB DEL BUHO tem muita coisa boa para access, tanto para amadores como eu quanto para profissionais.

Olá galera do bem.

To tentando montar meu esquema de abrir o doc copiando para a textBox mas to tento alguns problemas para entender a forma de adaptar o código para copiar. alguem pode me ajudar?

Grato

Veja um exemplo que montei aqui. Tem um arquivo chamado "Teste.doc" que deve ser colocado na mesma pasta do exemplo. Digite o nome Teste.doc no campo do formulário inicial e clique o botão para abrir o formulário com o texto desse arquivo copiado na textbox.

Muito Bom Criquio...

Cumprimentos.

Boa tarde a todos do Forun.

Amigo Criquio que Deus continue a lhe abençoar com esta capacidade de desenvolver e ainda mais colaborar com seu próximo...
Isto é simplesmente maravilhoso e resolveu todos os problemas que eu estava a enfrentar assim que minha solução estiver rodando certinho publicarei aqui para os demais colegas interessados...

Aos demais, não da pra procurar palavras de agradecimento, resta somente dizer muito obrigado de coração pelo esmero dispensado ao nos ajudar... Espero sinceramente levar comigo estas memorias pois sei que em breve me tornarei um expert como vcs: Jpaulo, Criquio, Piloto e tantos outros que tem me auxiliado... E ao chegar lá quero sempre poder auxiliar como vcs os colegas ainda no inicio do caminho...

por enquanto é só e VALEU GALERA DO ACCESS!!!!

O Fórum agradece o Retorno.