Top, usei o código e conseguir duplicar tudo que tinha na pagina como texto, imagem, top mesmo, valeu o like. Continue fazendo conteudos que ajudam muito. Parabens.
Page = InputBox ("Enter the Page to Duplicate") Count = InputBox ("Enter the Number to Duplicate") With Selection .Goto wdGoToPage, wdGoToAbsolute, Page .Bookmarks("\Page").Range.Copy For i = 1 To count: .Paste: Next End With
Top, usei o código e conseguir duplicar tudo que tinha na pagina como texto, imagem, top mesmo, valeu o like. Continue fazendo conteudos que ajudam muito. Parabens.
Salvou a minha vida, obrigada 🙏🏼
Muito obrigada!!
CTRL + E? NÃO FUNCIONA AMIGO
Nenhuma alternativa funcionou 😢
Onde esta o código???
Page = InputBox ("Enter the Page to Duplicate")
Count = InputBox ("Enter the Number to Duplicate")
With Selection
.Goto wdGoToPage, wdGoToAbsolute, Page
.Bookmarks("\Page").Range.Copy
For i = 1 To count: .Paste: Next
End With
otimo