Jump to content

armau

Members
  • Content Count

    4
  • Joined

  • Last visited

About armau

  • Rank
    Newbie

Converted

  • Campos
    ;
  1. Hola! pues imagina un word con 100 hojas, separar esas 100 hojas en 100 word independientes.
  2. Gracias Luis, a mi no me ha funcionado ahora me crea uno igual.... no los separa...
  3. Gracias Luis!! perdona mi ignorancia podrías decirme en FOR que texto exacto quito porfa?
  4. 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
×
×
  • Create New...

Important Information

Privacy Policy