[Gabiluz]

Hola, debo hacer un documento de muchas páginas en Word, que tendrá todas las páginas pares de una manera y las impares de otra. Quisera un macro para repetir las páginas (yo uso el Word pero lamentablemente no sé nada de progamación).

Encontré este hilo, donde hay un macro que permite repetir UNA página varias veces, pero no me sirve porque necesito que las impares sean de una manera y las pares de otra (o sea, intercaladas...).

 

Concretamente, debería modificar este macro para que me permita seleccionar DOS páginas y luego repetirlas (o, alternativamente, que me permita seleccionar una sección entera y luego repetirla).

¡Si alguien puede reformar el macro o mostrarme otro que haga lo que necesito, se lo agradeceré muchísimo!!!

 

https://www.solvetic...rd/#tutsection2

 

-------------------------------

Sub duplicatepage()
'
' pagetoo Macro
'
'
Page = InputBox("Enter the Page to Duplicate")
Count = InputBox("Enter Number of times to duplicate")
With Selection
.GoTo wdGoToPage, wdGoToAbsolute, Page
.Bookmarks("\Page").Range.Copy
For i = 1 To Count: .Paste: Next
End With

End Sub
Sub Macro1()
'
' Macro1 Macro
'
'
  Application.Run MacroName:="duplicatepage"
  ActiveWindow.Close
End Sub

 

------------------------------------------------------------

 

[Nestor1]

Hola, a ver si esto te ayuda. Tu código está bien, pero te faltan cambios que te paso para que lo pruebes como macro de word para hacer lo que quieres. Selecciona varias páginas en Word y las repite varias veces que tu desees. 

Este código solicita al usuario que ingrese el número de página inicial y final que quieres duplicar, y la cantidad de veces que se deben duplicar las páginas seleccionadas. Luego, selecciona el rango de páginas, lo copias y lo pegas la cantidad de veces que especificas.

Sub DuplicatePages()
'
' DuplicatePages Macro
'
'
    Dim StartPage As Long
    Dim EndPage As Long
    Dim Count As Long
    Dim i As Long
    Dim PageRange As Range
    
    StartPage = InputBox("Introduce la pagina de inicio que quieres duplicar")
    EndPage = InputBox("Introduce la pagina final que quieres duplicar")
    Count = InputBox("Introduce el número de veces a duplicar")

    ' Select the page range
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=StartPage
    Set PageRange = Selection.Bookmarks("\Page").Range
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=EndPage
    Set PageRange = ActiveDocument.Range(PageRange.Start, Selection.Bookmarks("\Page").Range.End)

    ' Copy the selected pages
    PageRange.Copy

    ' Paste the selected pages multiple times
    For i = 1 To Count
        Selection.EndKey Unit:=wdStory
        Selection.Paste
    Next i

End Sub

[JoeyIhc88]

I think that is among the such a lot significant info for me. And i'm glad studying your article. However wanna remark on few basic things, The website taste is wonderful, the articles is in reality excellent : D. Just right activity, cheers

Here is my blog post ...

Por favor Identificate o Registrate para poder ver este contenido