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

Eu gostaria de dividir um documento de texto em dois documentos, onde 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.

Você poderia 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. abrir o documento de página ímpar

3. executar a seguinte macro 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 macro a seguir

   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.

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 as páginas pares.

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 depois na cópia 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.

Da próxima vez, use 2 monitores e abra 2 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.