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

2

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.

windows-7 microsoft-word libreoffice-writer docx Felix Dombek
fonte

Respostas:

3

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.


fonte
Considerando os requisitos, acho que essa é a melhor resposta até agora, mas lembre-se de que isso funcionará de maneira estranha se houver itens como tabelas divididas em várias páginas.
Joel Taylor
@Joel Taylor-Sim.
1

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.

Print View

Joel Taylor
fonte
Eu tive essa idéia também, mas infelizmente eu preciso do resultado em algum tipo de formato de texto editável.
Felix Dombek
0

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.

phipywr
fonte
Cerca de 70 páginas. Sim, isso teria sido mais inteligente.
Felix Dombek