Macro para dividir un archivo word de x páginas en x archivos word de una página cada uno

[Callao2908]

Buenas tardes, una consulta, si tengo un archivo word de "X" páginas, se puede hacer una macro para crear "X" archivos word de una página cada uno, y que a la vez lo grabe y me permita poner el nombre que yo desee a cada uno.

Muchas gracias por la atención

Saludos

Jorge desde Perú

[Antoni]

Abre el archivo Word y ejecuta esta macro:

Sub CopiarPáginasUnaUna()

Dim Página As Integer

For Página = 1 To ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)

   ActiveDocument.Select

   Selection.GoTo wdGoToPage, wdGoToAbsolute, Página

   ActiveDocument.Bookmarks("\page").Range.Select

   Selection.Copy

   Documents.Add

   Selection.Paste

   ActiveDocument.Save

   ActiveDocument.Close

Next

End Sub

[/CODE]

[Callao2908]

Gracias Maestro, un honor haber sido atendido por usted..

Dar por solucionado el tema

Jorge desde Perú

[logroastur]

Buenas aunque posees el tema solucionado te aporto otra posibilidad

Extraer paginas Word para nuevo Word

Un saludo

[Callao2908]

Miguel Angel, gracias por responder. Los errores que me salen al seleccionar el archivo, es Error "5941" en tiempo de ejecución, y en su rutina me marca la línea que podrás ver en el archivo adjunto. Asímismo te remito un archivo de prueba.

Te agradeceré tengas a bien, si está a tú alcance explicarme la forma de usarlo, a lo mejor allí está el error.

Gracias,

Jorge desde Perú

Observa MA_LogroAstur.rar

[logroastur]

Buenas revisa la imagen

Por otro lado chequea el archivo, posee modificación

Extraer paginas Word para nuevos Word

Un saludo

[Callao2908]

Gracias Miguel Angel. Ahora si funcionó

Un gusto haber sido atendido también por ti, dos grandes maestros

Por favor dar el tema por solucionado

Jorge desde Perú

[Callao2908]

Buenos días, aprovecho la oportunidad que el tema no ha sido cerrado, y consultarles, si las respuesta dadas se pueden generalizar, en el sentido que yo pueda indicar el número de hojas que deseo tomar del archivo original para dividir el word. Es decir, si en vez de que sea cada hoja yo pueda indicar por ejemplo que sean dos, o que sean cada tres

Gracias

Jorge desde Perú

[logroastur]

Buenas [uSER=530]@Callao2908[/uSER] cheque archivo

Extraer paginas Word para nuevos Word

El funcioamiento es igual al anterior, pero lo único que debes de realizar es colocar x o X si es una pagina o colocar 1-6 si es en un único archivo de la pagina 1 a la 6

Un saludo

[Callao2908]

Gracias Miguel Angel, funcionó muy bien. Ahora sí, por favor, ya puedes dar el tema por SOLUCIONADO.

Nuevamente gracias a todos

Saludos

Jorge desde Perú