¿Cómo seleccionar varias páginas en Word y repetirlas varias veces?
AUTOR PREGUNTA #1
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
------------------------------------------------------------
-
3 personas más tuvieron esta duda Yo también
Esto también te interesa!
PREGUNTAS SIMILARES
#2
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
#3
Here is my blog post ...
