Ismael
|
SANTOS
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 25/07/2005 18:43 hs
E ai galera !!!! Alguem sabe como abrir um documento do Word pelo VB??? Desde ja agradeço !!!!!! |
|
|
|
|
|
|
|
Postada em 26/07/2005 08:05 hs
Public Sub subAbreComando(ByVal vgCmd As String)
Dim lngI As Long
lngI = ShellExecute(mdiPrincipal.hWnd, vbNullString, vgCmd$, vbNullString, vbNullString, 1)
If lngI >= 0 And lngI <= 32 Then
MsgBox "Erro ao tentar executar o comando", vbCritical, strAtencao$
End If
End Sub
'Windows API's - executa um commando com o arquivo associado
Public Declare Function ShellExecute Lib "shell32" 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
|
|
|
|
|
|
Postada em 26/07/2005 08:38 hs
José Carlos Vector
|
|
|
|
|
|
Postada em 26/07/2005 08:50 hs
Galera, vcs complicam mto... Ismael, faz assim: _______________________________________________ Private wApp As Object Set wApp = CreateObject("Word.Application")
On Error GoTo Erro:
wApp.Documents.Open (nome_do_arquivo)
wApp.Visible
Set wApp = Nothing
Erro: If Not wApp Is Nothing Then wApp.Quit Set wApp = Nothing
_______________________________________________ Se o Office for 97 ou anterior, troca Word.Application por Word.Basic Espero q isso te ajude...
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
Ismael
|
SANTOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/07/2005 09:08 hs
Valew pela ajuda galera !!!!! Falow!!! |
|
|
|
ajunior
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/08/2010 12:08 hs
Usei a sugestão do Elieser mas quando tenta abrir um DOC que já existe retorna o erro
File name or class name not found during Automation operation
432
Project1 16 OpenWordDoc
(c: este.doc)
alguém pode me ajudar?
Desde já agradeço. Jr.
|
|
|
|
