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

    Localizar arquivo do word que contenha palavra chave

    avatar
    jfmssilva91
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 03/08/2017

    Localizar arquivo do word que contenha palavra chave Empty Localizar arquivo do word que contenha palavra chave

    Mensagem  jfmssilva91 15/8/2017, 21:10

    Boa tarde Galera!

    Já tem um tópico com esse titulo como resolvido e exatamente isso que preciso porem meus arquivos no Word eu crie com campo de formulário para ficar mais fácil e o comando não funciona tem como adaptar? segue baixo o link onde baixei o arquivo

    https://www.maximoaccess.com/t14060-pesquisar-texto-contido-em-arquivos-do-word-podendo-selecionar-varios-arquivos-para-pesquisa#107617


    segue o print do formulário Word em que eu estou usando.

    Localizar arquivo do word que contenha palavra chave Ex10


    Att
    Jefferson
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    Localizar arquivo do word que contenha palavra chave Empty Re: Localizar arquivo do word que contenha palavra chave

    Mensagem  crysostomo 20/2/2019, 14:15

    pode fazer um seguinte, fazer um controle para anexar os arquivos, ou seja casa cadastro tem seu anexo ou


    Dim LWordDoc As String
    Dim oApp As Object

    'Path to the word document
    LWordDoc = "C:\seu documento.doc"
    If Dir(LWordDoc) = "" Then
    MsgBox "O documento não existe."

    Else
    'Create an instance of MS Word
    Set oApp = CreateObject(Class:="Word.Application")
    oApp.Visible = True

    'Open the Document
    oApp.Documents.Open FileName:=LWordDoc
    End If
    End Sub

      Data/hora atual: 22/11/2024, 03:45