Sie können ein paar Makros verwenden:
- Erstellen Sie zwei Kopien Ihres Dokuments, eine für die geraden Seiten und eine für die ungeraden Seiten
- Öffnen Sie das ungerade Seitendokument
Führen Sie das folgende VBA-Makro aus
Sub DeleteEvenPages () Dim i As Integer Dim pg As Integer Selection.GoTo what: = wdGoToPage, wobei: = wdGoToLast pg = Selection.Information (wdActiveEndAdjustedPageNumber) Wenn (pg Mod 2) = 1 Then Selection.GoTo wdGoToPo, - 1 End If Für i = pg To 2 Schritt -2 ActiveDocument.Bookmarks ("\ page"). Wählen Sie Selection.Delete Selection.GoTo wdGoToPage, wdGoToPrevious Selection.GoTo wdGoToPrevious, Next End Sub aus
Speichern und schließen Sie das Dokument
Öffnen Sie das Dokument für gerade Seiten
Führen Sie das folgende Makro aus
Sub DeleteOddPages () Dim i As Integer Dim Pg As Integer Selection.GoTo Wobei: = wdGoToPage; - 1 End If Für i = pg To 1 Schritt -2 ActiveDocument.Bookmarks ("\ page"). Wählen Sie Selection.Delete Selection.GoTo wdGoToPage, wdGoToPrevious Selection.GoTo wdGoToPrevious, Next End Sub aus
Speichern Sie das Dokument mit geraden Seiten.