CHAMAR ARQUIVO WORD .DOC
COMO FAÇO PARA CHAMAR ATRAVES DE UM BOTAO NO VB UM ARQUIVO DO WORD USANDO UM CAMPO NUMERO COMO NOME DO ARQUIVO + A EXTENSAO .DOC ? TENHO UM CAMPO QUE CHAMO DE CODIGO E ESTE CODIGO QUE LACO é O MESMO NOME DO ARQUIVO QUE TENHO SALVO EM UM DIRETORIO DA MAQUINA, GOSTARIA DE ASSOCIA-LO COM A EXTENSAO .DOC E CHAMA-LO ATRAVES DE UM BOTAO. OBRIGADO !!!
Shell "explorer c:\" & format(seunumero,"000") & suastring & ".doc", vbNormalFocus
VINICIVS
não sei bem se é isso que vc precisa, segue abaixo o código que utilizo para chamar um arquivo word. O correto é apenas uma chamada oWord.Documents......, mas quando eu clicava no menu ele não abria e ao clicar de novo sim, então coloquei duas chamadas, se vc souber como posso fazer para corrigir isso eu agradeço.
Option Explicit
Dim oWord As Object
não sei bem se é isso que vc precisa, segue abaixo o código que utilizo para chamar um arquivo word. O correto é apenas uma chamada oWord.Documents......, mas quando eu clicava no menu ele não abria e ao clicar de novo sim, então coloquei duas chamadas, se vc souber como posso fazer para corrigir isso eu agradeço.
Option Explicit
Dim oWord As Object
Private Sub mnuSobre_Click()
Set oWord = CreateObject("Word.Application")
'Abre o documento
oWord.Documents.Open (App.Path & _
"\REV 00 SOQ CEL Q-INST.DOC")
oWord.Documents.Open (App.Path & _
"\REV 00 SOQ CEL Q-INST.DOC")
End Sub
Tópico encerrado , respostas não são mais permitidas