Importar datos a Excel desde Word

[cgcamal]

Saludos a todos,

Tengo muchos archivos de MS Word que contienen ciertos datos que están bajo un título. La situación es que quisiera extraer esos datos y pegarlos organizadamente en una hoja de Excel.

Si son N libros de MS-Word, serían N filas en Excel. Y si son M datos que quiero extraer de cada libro de MS-Word, serían M columnas en Excel.


Alguien me puede dar una ayuda de cómo importar esto desde Excel.

Muchas gracias de antemano.

 

[Macropod]

Hola César,

Las respuestas a sus preguntas son:
1. =&H400 dice a macro dónde comenzar a mirar. &H11 es otra opción que usted podría utilizar en lugar de otro. Hay otras opciones también. Pruebe estos dos para se.
2. Dir$ dicen la macro conseguir el nombre del archivo.

Saludos

 

[cgcamal]

Macropod,

Muchas gracias por tus respuestas.

Sólo dos preguntas más.

Cuando la macro detecta error en un libro de Word, a veces se detiene.

¿Cómo decirle que siga con el siguiente libre hasta terminar sin detenerse?

Cuando se encuentra con un libro guardado como de "Sólo lectura" se detiene para preguntar "Aceptar", "Cancelar".

¿Cómo decirle que dé "aceptar" automáticamente sin que aparezca la notificación?


Muchas gracias de nuevo.

 

[Macropod]

Hola César,

Podría cambiar:

      Documents.Open FileName:=StrDoc
        Call ConsigaDatos
        With Documents.Item(StrDoc)
          .Saved = True
          .Close
        End With

a:

      On Error GoTo ArchivoSiguiente
      Documents.Open FileName:=StrDoc, ReadOnly:=True
        Call ConsigaDatos
        With Documents.Item(StrDoc)
          .Saved = True
          .Close
        End With
ArchivoSiguiente:

Saludos

 

[cgcamal]

Gracias de nuevo Macropod, funcionó tu sugerencia, pero aquí de nuevo preguntando.

Parecido al problema de "aceptar" libro de "solo lectura" de manera automática.

¿cómo cerrar automáticamente un mensaje de "Mostrar reparaciones" que aparece en algunos libros? Según menciona es porque Word logró reparar
fallas en el archivo y da la opcción de "Ir a" y de "Cerrar".

¿cómo direccionar a una libro de Excel ya existente los datos desde word?
por ej: datos.xls

Saludos

 

[Macropod]

Hola César,

No estoy seguro que sería bueno cerrar la caja de mensaje, pero usted puede ser que pueda hacerla si usted agrega:
Application.DisplayAlerts = wdAlertsNone
después:
On Error GoTo ArchivoSiguiente
y si usted agrega:
Application.DisplayAlerts = wdAlertsNone
antes:
ArchivoSiguiente:

Para abrir un libro existente del MS-Excel, cambie:
Set xlLibro = xlApp.WorkBooks.Add
a:
Set xlLibro = xlApp.WorkBooks.Open("Datos.xls")

¿Consiguió mis mensajes personales? Tener dos enviados.

Saludos

 

[Macropod]

Corrección -
agrega:
Application.DisplayAlerts = wdAlertsAll
antes:
ArchivoSiguiente:

 

[cgcamal]

Gracias de nuevo Macropod,

Voy a agregar estas líneas de código y así seguir depurando la macro.
Veremos que tal.

Ahora si vi los mensajes, no me di cuenta, sorry.

Muchas gracias de nuevo.