USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Abrir documento do Word pelo VB/VBA
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 !!!!!!
   
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
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
     
cajose
Pontos: 2843 Pontos: 2843
MACEIO
AL - BRASIL
Postada em 26/07/2005 08:38 hs            

José Carlos Vector
     
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
ENUNCIADA !
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
_____________________________________________________
Emoções "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.
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página