Visual Basic - Ayudenme por Favor

Life is soft - evento anual de software empresarial
 
Vista:

Ayudenme por Favor

Publicado por El Zeppelinero (40 intervenciones) el 03/06/2004 21:31:23
Hola Como estan ???

Tengo que hacer un programa en visual, el cual tiene que tener un comandButtom que al hacerle click se abre una documento Word.
Que puedo Hacer ?????????

Muchas Gracias


Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayudenme por Favor

Publicado por jackson (2 intervenciones) el 03/06/2004 23:43:41
Hola asi, lo abres
Dim wb As Object
Private Sub Form_Load()
Set wb = CreateObject("Word.Basic")
wb.ChDefaultDir "escribe aqui la ubicacion del archivo", 0
wb.FileOpen Name:="escribe aqui el nombre del archivo"
wb.AppShow
wb.AppMaximize
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayudenme por Favor

Publicado por miguel (1042 intervenciones) el 04/06/2004 03:38:26
'puedes utilizar un CommonDialog para localizar tus archivos tipo .doc
o si lo prefieres usar los controles DriveListBox , DirListBox y ListBox para buscarlos sin necesidad de estar abriendo uno por uno pero es una sugerencia, saludos.
Private Sub Command1_Click()
On Error GoTo cError
Dim MyValue As String
Dim myPath As String
With CommonDialog
.MaxFileSize = 32000
.CancelError = True
.Filter = "*.doc|*.doc" '
.ShowOpen
myPath = .FileName
MyValue = Shell("rundll32.exe url.dll, FileProtocolHandler " & myPath)
End With
Exit Sub
cError: 'Si da clic en cancelar
Beep
Err.Clear
End Sub

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar