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...