Como posso dividir um documento em dois por páginas pares e ímpares?

Question

Gostaria de dividir um documento de texto em dois documentos, em que um contém apenas as páginas ímpares e o outro contém apenas as páginas pares. O documento é um docx , mas o formato exato não é importante. Eu posso abri-lo com o Word 2010 e LibreOffice e eu poderia salvá-lo como outra coisa, se necessário.

Se alguém se perguntar por que diabos: eu traduzi um grande número de descrições de artigos, cada uma em uma página, e coloquei a tradução na próxima página. Agora quero criar um documento com todos os textos em alemão e outro com todos os textos em inglês.

    

Answer 1

Você pode usar algumas macros:

1. faça duas cópias do seu documento, uma para conter as páginas pares e um para conter as páginas ímpares
2. abre o documento de página ímpar

3. execute a seguinte macro do VBA

   Sub DeleteEvenPages () Dim i As Integer Dim pg As Integer Selection.GoTo what: = wdGoToPage, que: = wdGoToLast pg = Selection.Information (wdActiveEndAdjustedPageNumber) Se (pg Mod 2) = 1 Então   Selection.GoTo wdGoToPage, wdGoToPrevious   pg = pg - 1 Fim se Para i = pg para 2 passo -2   ActiveDocument.Bookmarks ("\ page"). Selecione   Selection.Delete   Selection.GoTo wdGoToPage, wdGoToPrevious   Selection.GoTo wdGoToPage, wdGoToPrevious Próximo End Sub

4. salve e feche o documento

5. abra o documento de página par

6. execute a seguinte macro

   Sub DeleteOddPages () Dim i As Integer Dim pg As Integer Selection.GoTo what: = wdGoToPage, que: = wdGoToLast pg = Selection.Information (wdActiveEndAdjustedPageNumber) Se (pg Mod 2) = 0 então   Selection.GoTo wdGoToPage, wdGoToPrevious   pg = pg - 1 Fim se Para i = pg para 1 passo -2   ActiveDocument.Bookmarks ("\ page"). Selecione   Selection.Delete   Selection.GoTo wdGoToPage, wdGoToPrevious   Selection.GoTo wdGoToPage, wdGoToPrevious Próximo End Sub

7. Salve o documento de página uniforme.

Answer 2

Supondo que você está editando no documento original, mas precisa de dois documentos separados para distribuição, pode imprimir em PDF usando algo como CutePDF e selecionar "apenas páginas ímpares" ao imprimir. Em seguida, imprima novamente e selecione apenas páginas pares.

    

Answer 3

Quantas páginas são? É mais do que provável que tenha que ser um esforço manual. O que eu faria seria fazer uma cópia do arquivo original e, em seguida, excluir o texto em inglês e salvá-lo como sua versão em inglês. Em seguida, faça outra cópia e exclua o texto em alemão.

Na próxima vez, use 2 monitores e abra duas instâncias do Word e faça a tradução em um novo documento. Se você não tiver monitores duplos, use a seta para a esquerda e a seta para a direita do Windows para ver as duas instâncias da palavra.