Como crear varios archivos a partir de cada página de un archivo de Word

Tengo un archivo muy grande que me gustaría dividir en varios archivos, uno por página. Es decir, me gustaría saber como puedo crear a partir de un documento de Word con 50 páginas, 50 archivos nuevos y que me los guarde en el equipo.

Solución

Sub Dividir()

For i = ActiveDocument.Content.Information(wdActiveEndPageNumber) To 1 Step -1

ActiveDocument.Bookmarks("\Page").Range.Copy

Documents.Add

Selection.Paste

Selection.Delete Unit:=wdWord, Count:=-1

Documents.Save NoPrompt:=False

Documents("nombredoc.doc").Activate

Selection.GoTo what:=wdGoToPage, which:=wdGoToNext, Count:=1

Next i

End Sub

Código Explicado

Sub Dividir() ‘ Comenzamos la macro con el nombre que queramos

For i = ActiveDocument.Content.Information(wdActiveEndPageNumber) To 1 Step -1 ‘Iniciamos un loop para que podamos aplicar todas las acciones a cada una de las hojas.

ActiveDocument.Bookmarks("\Page").Range.Copy ‘Copiamos el contenido de la página activa (aquella en la que está situado el cursor)

Documents.Add Creamos un Nuevo documento

Selection.Paste Pegamos el contenido copiado en el nuevo documento

Selection.Delete Unit:=wdWord, Count:=-1 Borramos la página que se crea por defecto

Documents.Save Guardamos el documento activo

Documents("documento1.doc").Activate Activamos el documento original. Ponemos el nombre de nuestro documento entre comillas

Selection.GoTo what:=wdGoToPage, which:=wdGoToNext, Count:=1 Nos desplazamos a la siguiente página del documento original

Next i Indicamos que aplique todas estas acciones a la siguiente página

End Sub

Redactado en: Word 2003