Ver Mensaje Individual
  #8 (permalink)  
Antiguo 10/03/2006, 02:37
zabait
 
Fecha de Ingreso: mayo-2005
Mensajes: 93
Antigüedad: 19 años
Puntos: 1
Exacto mariona, pero no le has dicho cómo ir al marcador

Código:
Function docIrAMarcador(sMarcador As String) As Boolean

Dim bError As Boolean
On Error GoTo ErrorMarcador
appWord.Selection.GoTo wdGoToBookmark, Name:=sMarcador
On Error GoTo 0
docIrAMarcador = Not bError
Exit Function

ErrorMarcador:
bError = True
Resume Next

End Function
Y tampoco le has dicho como, después de colocarte en el marcador que has creado en la tabla, pasar de celda en celda...

Código:
Function docIrASiguienteCelda() As Boolean

' Para el gestor de errores
Dim bError As Boolean
On Error GoTo ErrorCelda
appWord.Selection.MoveRight Unit:=wdCell
On Error GoTo 0
docIrASiguienteCelda = Not bError
Exit Function

ErrorCelda:
bError = True
Resume Next

End Function
Espero que con esto ya...
__________________
No te hubieran dado la capacidad de soñar sin darte también la posibilidad de convertir tus sueños en realidad