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

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

 

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

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

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

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

 

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