Visual Basic - Error en tasks.exist al cambiar de office 2000 al 2003

Life is soft - evento anual de software empresarial
   
Vista:

Error en tasks.exist al cambiar de office 2000 al 2003

Publicado por Carlos (7 intervenciones) el 25/01/2013 17:25:31
estoy reestructurando un programa por el hecho de cambio de SO,

mi codigo es este:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function HayDocumento() As String
Dim documento As String, buf As Variant
Dim winName As String, hndl As Long
   On Error GoTo HayDocumentoErr
   'lo de abajo genera un error si no esta abierto Word
   buf = Tasks.Exists("Microsoft Word")
   If FindWindow(0&, "Microsoft Word") = 0 Then 'si tiene docuento
      winName = Tasks.Application.ActiveDocument.Name
      winName = Left(winName, Len(winName) - 4)
      If IsNumeric(winName) Then
         doc = winName
      End If
   End If
HayDocumentoExit:
   HayDocumento = doc
   On Error GoTo 0
   Exit Function
HayDocumentoErr:
   Resume HayDocumentoExit
End Function


funciona perfecto con Office2000, pero se migro a Office2003(se que sigue siendo viejo, pero...), el tasks.exist es otro para el Office2003? o es otra cosa?
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