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

1633
Felix Dombek

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

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

2

3 ответа на вопрос

3

You could use a couple of macros:

  1. make two copies of your document, one to contain the even pages and one to contain the odd pages
  2. open the odd page document

  3. run the following VBA macro

    Sub DeleteEvenPages() Dim i As Integer Dim pg As Integer Selection.GoTo what:=wdGoToPage, which:=wdGoToLast pg = Selection.Information(wdActiveEndAdjustedPageNumber) If (pg Mod 2) = 1 Then Selection.GoTo wdGoToPage, wdGoToPrevious pg = pg - 1 End If For i = pg To 2 Step -2 ActiveDocument.Bookmarks("\page").Select Selection.Delete Selection.GoTo wdGoToPage, wdGoToPrevious Selection.GoTo wdGoToPage, wdGoToPrevious Next End Sub

  4. save and close the document

  5. open the even page document

  6. run the following macro

    Sub DeleteOddPages() Dim i As Integer Dim pg As Integer Selection.GoTo what:=wdGoToPage, which:=wdGoToLast pg = Selection.Information(wdActiveEndAdjustedPageNumber) If (pg Mod 2) = 0 Then Selection.GoTo wdGoToPage, wdGoToPrevious pg = pg - 1 End If For i = pg To 1 Step -2 ActiveDocument.Bookmarks("\page").Select Selection.Delete Selection.GoTo wdGoToPage, wdGoToPrevious Selection.GoTo wdGoToPage, wdGoToPrevious Next End Sub

  7. Save the even page document.

Учитывая требования, я думаю, что это лучший ответ на данный момент, но имейте в виду, что это будет вести себя странно, если есть такие элементы, как таблицы, разбитые на несколько страниц. Joel Taylor 10 лет назад 0
@ Джоэль Тейлор-Да. 10 лет назад 0
1
Joel Taylor

Assuming that you are editing in the original document but need two separate documents for distribution you could print to PDF using something like CutePDF and select "odd pages only" when printing. Then print again and select even pages only.

Print View

У меня тоже была эта идея, но, к сожалению, мне нужен результат в каком-то редактируемом текстовом формате. Felix Dombek 10 лет назад 0
0
phipywr

How many pages is it? It's more than likely going to have to be a manual effort. What I would do would be to make a copy of the original file and then on the copy delete out the english text and save that as your english version. Then make another copy and delete out the german text.

Next time use 2 monitors and open up 2 instances of Word and do the translation into a new document. If you don't have dual monitors use windows left arrow and windows right arrow so you can see both instances of word.

Около 70 страниц. Да, это было бы умнее. Felix Dombek 10 лет назад 0

Похожие вопросы