| Usuario |
No consigo abrir documento de Word |
Desconocido
|
| Enviado - 19/11/2004 |
| ? |
El problema que tengo es que intento abrir un documento de Word y me sale el siguiente mensaje de error:
error '429' en tiempo de ejecuci?n:
el componente ActiveX no puede crear el objeto
El c?digo que escribo es:
Private Sub crear_documento()
Documents.Open Filename:="C:\Mis documentos\fichero.dot"
Las referencias que uso son:
-Visual Basic for Aplications
-Visual Basic runtimes objects and procedures
-Visual Basic Objects and Procedures
-Microsoft Office 10.0 Objects Library
-Microsoft Office Runtime 1.0 Type Library
-Microsoft Word 10.0 Object Library
-OLE Automation
En un principio funcionaba, pero ahora no consigo abrirlo ?Qu? estoy haciendo mal? |
| ? |
|
Desconocido
|
| Enviado - 20/11/2004 |
| ? |
lo que pasa es que no le estas especificando el sitio donde se presentara el documento, te recomiendo que sea un rich text box, por si las dudas te escribo el c?digo que o utilize
CommonD.DialogTitle = "Buscar archivo..."
CommonD.FileName = ""
CommonD.Filter = "Documentos de word|*.*"
CommonD.ShowOpen
If CommonD.FileName <> "" Then
Dim aux As String
aux = Mid(CommonD.FileName, Len(CommonD.FileName) - 3, 4)
If aux Like ".doc" Or aux Like ".DOC" Then
richtextbox1.Text = ""
Label1.Caption = CommonD.FileName
Else
MsgBox ("El archivo no tiene extension .doc"), vbCritical
Label1.Caption = ""
richtextbox1.Text = ""
Command1.Enabled = True
Command2.Enabled = False
End If
End If
On Error GoTo Fallo
Set WordApp = New Word.Application
Set WordDoc = WordApp.Documents.open(Label1.Caption)
WordDoc.Select
Texto = WordApp.selection.Text
Texto = Left(Texto, Len(Texto) - 1)
richtextbox1.Text = Texto
WordDoc.close False
Set WordDoc = Nothing
WordApp.Quit
Set WordApp = Nothing
Exit Sub
Fallo:
MsgBox Err.Description
y la unica referencia que utilize fue
Microsft word 9.0 object library
ojala te sirva chao!! |
| ? |
|
Desconocido
|
| Enviado - 6/12/2004 |
| ? |
Muchas gracias.
Ahora lo pruebo ;-)) |
| ? |
|
|
|
