Как я могу разделить документ на две четные и нечетные страницы?

Question

Я хотел бы разделить текстовый документ на два документа, где один содержит только нечетные страницы, а другой содержит только четные страницы. Документ представляет собой docx , но точный формат не важен. Я могу открыть его с помощью Word 2010 и LibreOffice и при необходимости сохранить его как-нибудь еще.

Если кому-то интересно, почему, черт возьми: я перевел большое количество описаний статей, каждое на одну страницу, и разместил перевод на следующей странице. Теперь я хочу создать один документ со всеми текстами на немецком языке, а другой - со всеми текстами на английском языке.

Answer 1

Вы можете использовать пару макросов:

1. сделайте две копии вашего документа, одну для четных страниц и одну для нечетных страниц
2. открыть нечетную страницу документа

3. запустите следующий макрос VBA

   Sub DeleteEvenPages() Dim i As Integer Dim pg As Integer Selection.Перейти к чему:= wdGoToPage, который:= wdGoToLast pg = Выбор.Информация (wdActiveEndAdjustedPageNumber) If (pg Mod 2) = 1, то выбор.Перейти к wdGoToPage, wdGoToPrevious pg = pg - 1 Завершить, если For i = pg To 2 Шаг -2 ActiveDocument.Закладки ("\ страница").Выберите Выбор.Удалить выделение.Перейти к wdGoToPage, wdGoToPrevious Selection.GoTo wdGoToPage, wdGoToPrevious Next End Sub

4. сохранить и закрыть документ

5. открыть документ четной страницы

6. запустите следующий макрос

   Sub DeleteOddPages () Dim i As Integer Dim pg As Integer Selection.Перейти к чему:= wdGoToPage, который:= wdGoToLast pg = Выбор.Информация (wdActiveEndAdjustedPageNumber) If (pg Mod 2) = 0 Тогда выбор.Перейти к wdGoToPage, wdGoToPrevious pg = pg - 1 Завершить, если For i = pg To 1 Шаг -2 ActiveDocument.Закладки ("\ страница").Выберите Выбор.Удалить выделение.Перейти к wdGoToPage, wdGoToPrevious Selection.GoTo wdGoToPage, wdGoToPrevious Next End Sub

7. Сохраните четный документ страницы.

Answer 2

Предполагая, что вы редактируете в исходном документе, но вам нужно два отдельных документа для распространения, вы можете напечатать в PDF, используя что-то вроде CutePDF и выбрать "только нечетные страницы" при печати. Затем напечатайте снова и выберите только четные страницы.

Answer 3

Сколько страниц это? Скорее всего, это будет ручное усилие. Я хотел бы сделать копию исходного файла, а затем удалить копию текста на английском языке и сохранить его как свою версию на английском языке. Затем сделайте еще одну копию и удалите текст на немецком языке.

В следующий раз используйте 2 монитора и откройте 2 экземпляра Word и сделайте перевод в новый документ. Если у вас нет двух мониторов, используйте стрелки влево и вправо, чтобы вы могли видеть оба слова.