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

[armau]

Hola partiendo de este codigo del miembro ANTONI, necesitarìa si alguien puede modificarlo para que guarde directamente y solo una hoja por archivo ahora guarda 2!!! a ver si alguien puede ayudarme gracias!!!!!

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

[Luis Caballero]

Hola, quita el bucle For, y solo lo hará una vez.

 

[armau]

Gracias Luis!! perdona mi ignorancia podrías decirme en FOR que texto exacto quito porfa?

[Luis Caballero]

Déjalo asi

 

Sub CopiarPáginasUnaUna()

Dim Página As Integer



   ActiveDocument.Select

   Selection.GoTo wdGoToPage, wdGoToAbsolute, Página

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

   Selection.Copy

   Documents.Add

   Selection.Paste

   ActiveDocument.Save

   ActiveDocument.Close



End Sub

[armau]

Gracias Luis, a mi no me ha funcionado ahora me crea uno igual.... no los separa...

[Luis Caballero]

Hola, lo siento no lo entendí bien, tendría que ver el libro completo para saber exactamente lo que necesitas.

 

[armau]

Hola! pues imagina un word con 100 hojas, separar esas 100 hojas en 100 word independientes.