将多页 PDF 拆分为固定大小的子部分

Question

我将旧文档扫描成多页 PDF（通常为 50 页）。 PDF页中的每一页都封装了原始文档的几页。 我想对 PDF 进行预处理，使其页面与原始文档的页面相匹配。

因为原始文件的格式不尽相同，这必然意味着手动阶段，例如选择原始文件的页面（下图中的红色矩形）。

许多工具都可以做到这一点，但考虑到 PDF 的数量，我想要尽可能方便的东西，特别是红色矩形应该始终具有相同的大小。

所以工作流程是：

1. Go 到 PDF 的第 1 页
2. 一劳永逸地选择矩形尺寸
3. 将矩形移动到原始文档的第 1 页，提取
4. 将矩形移动到原始文档的第 2 页，提取
5. Go 至 PDF 第 2 页
6. 将矩形移动到原始文档的第 1 页，提取
7. ...

这是 PDF 的典型页面，红色矩形对应于我要提取的原始文档的页面。

问题您是否知道任何工具（Linux 或 Windows）（最好是免费的）与我正在尝试做的事情相关？

注意： 这是相关的，但在我的例子中，我想要提取的部分并不总是相同的 position（否则应该使用 pdfcrop 和一个小脚本轻松完成）。

Answer 1

我最终决定编写一段Mathematica代码，如果有一天它可以帮助某人，请在此处转载：

(* import *)
fileName = "mypdf.pdf;
pdf = Import[fileName];

(* desired output size *)
rectangleSize = {1620, 2070}

i = 1;
(* update function: crop and save when clicked *)
update[a_, b_] := Block[{},
  Export[fileName <> IntegerString[i, 10, 3] <> ".pdf", 
   ImageTake[
    pdf[[i]], {a, a + rectangleSize[[2]]}, {b, 
     b + rectangleSize[[1]]}]];
  i += 2;]
(* a function to deal with pages that should not be cropped, if any *)
relaxCropSize = Block[{},
  buffer = rectangleSize;
  rectangleSize = ImageDimensions[pdf[[i]]];]

 (* the "interface" *)
 Manipulate[
 ImageResize[ImageTake[pdf[[i]], {a, a + rectangleSize[[2]]}, {b, 
    b + rectangleSize[[1]]}], 200], {a, 1, 
  ImageDimensions[pdf[[i]]][[2]] - rectangleSize[[2]]}, {b, 1, 
  ImageDimensions[pdf[[i]]][[1]] - rectangleSize[[1]]},
 Row[{Spacer[100], 
   Button["Save and next page", update[a, b], Method -> "Queued", 
    ImageSize -> 100]}],
 Row[{Spacer[100], 
   Button["Relax Crop Size", relaxCropSize, Method -> "Queued", 
    ImageSize -> 100]}]]

滑动a和b调整矩形，点击“保存和下一页”保存结果和go到下一页。