Abrir arquivo do word atraves do excel vba [RESOLVIDO]

[thiago.padial]

Pessoal estou com um probleminha.

Sou iniciante em vba por este motivo não sei como resolver meu erro.
Tenho uma botão no excel que ao ser clicado precisa abrir um documento word (.doc)

Segue abaixo o codigo que me passaram, porem a unica coisa que consegui abrir é pasta:


Private 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

Private Sub Relatorio_Click()
ShellExecute hwnd, "open", textbox1, "C:\Temp\relatorio.doc", "C:\Temp\relatorio.doc", 4
End Sub

Alguem pode me ajudar ou passar algum codigo que funcione?

[JValq]

Boa tarde,

Veja se este código ajuda:

Código: Selecionar todos

Sub OpenWordDoc()
'Habilitar Microsoft Word n.n Object Library em Ferramentas\Referências

Dim wdApp As Word.Application, wdDoc As Word.Document

On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then 'Word isn't already running
    Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0

Set wdDoc = wdApp.Documents.Open("C:\Temp\relatorio.doc")

wdApp.Visible = True

End Sub

Fonte: http://www.mrexcel.com/archive/Office/19023.html

Abraço

[thiago.padial]

Nossa esta foi em cima do pedido..

O que eu precisava...

Tem como abrir o arquivo word em 1° plano? ou seja ao clicar eu aparecer diretamente na tela? sem eu ter que clicar nele barra de tarefas?
Outra duvida há possibilidades de quando abrir o documento ja abrir com a tela de impressão, ou seja eu só escolho quntas copias eu quero e aperto imprimir,

Muito obrigado....