Jump to content

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


Recommended Posts

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
Link to post
Share on other sites

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
Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


×
×
  • Create New...

Important Information

Privacy Policy