CHAMAR ARQUIVO WORD .DOC

USUARIO.EXCLUIDOS 07/12/2006 14:29:45
#188593
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 !!!
USUARIO.EXCLUIDOS 07/12/2006 14:37:58
#188594


Shell "explorer c:\" & format(seunumero,"000") & suastring & ".doc", vbNormalFocus



CRISTIANOLIVE 07/12/2006 15:57:56
#188618
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

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