Ayuda con Macro para Microsoft Word

[jabe00]

Es difícil saber por su publicación y su documento adjunto exactamente lo que desea. Pruebe la macro adjunta con su documento adjunto y compruebe si proporciona el resultado correcto para lo que contiene ese document. Tenga en cuenta, por ejemplo, que [Modulo Prueba 3 SP] contiene ambos [R (Horario_SP: No y [R (Horario_SP: Yes

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long, StrTxt As String
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "\[R*:[YN]"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
    .Execute
  End With
  Do While .Find.Found
    .MoveStartUntil ":", wdForward
    StrTxt = StrTxt & Replace(.Text, ":", "\")
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
MsgBox StrTxt
End Sub

Gracias Paul por la ayuda.

Si, se que es algo complejo, y le pido disculpas por eso.

EL resultado extraido esta en el formato esperado, pero no esta tomando en cuenta la secuencia que deberia llevar basado en las respuestas que la persona de. Per ejemplo,

Normalmente despues de cada Respuesta hay un Go_To que indica hacia donde debe moverse basado en la respuesta que de, en algunas ocacionhes despues de una respuesta viene otra pregunta o comentario.

Le adjunte dos imagenes uno con sobresaltando donde deberia ir cuando la persona dice SI a cada una de las respuestas y otra imagen para cuando la persona dice NO



La idea es generar un archivo de Texto con todas las posibles respuestas, pero esta deben tener un Orden de:

Si or No Como respuesta y deberia ir al Go_To relacionado a esa respuesta y asi continuar hasta finalizar el documento y generar la secuencia de respuestas en el formato //// entonces repetir el proceso con la siguiente Respuesta y geneerar el //// y seguirlo haciendo hasta tanto haya agotado todas las respuestas.

Por ejemplo en este ejemplo para tocar todas las respuestas deberia generarse un TXT con las siguientes secuencias

/Y/Y/Y/Y/Y/ Primera secuencia

/N/ Segunda Secuencia

/Y/N/N/ Tercera Secuencia
/Y/Y/N/ Cuarta Secuencia
/Y/Y/Y/Y/N Quinta Secuencia

Le estoy adjuntando una imagen donde le muestro cada una de las partes que tocan cada una de la secuencias en el documento para que tenga una idea del recorrido necesario que hay que hacer en el documento para generar cada una de las secuencias para asi poder cubrir todo el documento.

La idea es generar en ese mismo sentido la entrada para la siguiente aplicacion.


Otra vez, se qeu es algo complejo, pero hay un patron claro a seguir, Cada Pregunta [Q lleva Respuesta :Yes or :No y cada Respuesta lleva a un Go_To o a otra Pregunta [Q que a la vez tiene una respuesta :Yes or :No.



Gracias nuevamente.
Jose