Access Abrir arquivo do word no excel

[josequali]

@Midori @LaerteB Boa noite! Gostaria de sanar uma dúvida. Atualmente no meu projeto preciso abrir diferentes arquivos word para editar.

No entanto, queria ver alguma formula que permiti-se a partir do caminho do do arquivo salvo na textbox executa-se o word para edição do arquivo desejado.

Segue em anexo o modelo. Já inserir o comando para buscar o arquivo do word. Desde já agradeço pela ajuda  

abrir arquivo do word a partir do link da texbox.zip

[josequali]

1 hora atrás, josequali disse:

e PDF, caso seja no mesmo comando.

 

[josequali]

13 horas atrás, josequali disse:

 

Existe esse comando mas ele só abre o arquivo do código.

 

http://www.macoratti.net/dica29.htm#:~:text=- Abrindo um documento do Word,Leia artigo - Usando VBA).&text=Inicie o VB e crie,e clique no botão OK.

 

[Midori]

@josequali  Para abrir o arquivo do word coloque no botão do formulário,

 

Dim Doc As Object
Set Doc = CreateObject("Word.Application")
    
Doc.Documents.Open wordbusca.Text
Doc.Visible = True

 

[josequali]

@Midori Obrigado!

 

 

 

 

 

[josequali]

@Midori @LaerteB uma dúvida! Queria ao cadastrar um produto lançar a seguinte formula na minha célula do Excel.

 

Range("t3").Value = "=SEERRO(SE((H$3-J3)>0;"Vencido a "&H$3-J3&" dias ";"A vencer em "&J3-H$3& " dias");(SE($D3="";"";"MINUTA")))"

mas quando coloco no formulário que era esperado o fim de instrução. Como corrigir?

[josequali]

@Midori  consegui!  era só por duplas aspas na formula  

 

[josequali]

@Midori como seria esse mesmo comando para abrir um pdf? 

[Midori]

@josequali Para abrir o pdf,

 

Dim WScript   As Object

Set WScript = CreateObject("WScript.Shell")
    WScript.Run """" & wordbusca.Text & """"

 

[josequali]

@Midori Obrigado! Perfeito