将PDF文件中的A4页面拆分为A5页面

Question

可能重复:将
A4 PDF页面拆分为两个A5并再次返回

我在PDF文件中有A4页面,如下所示:

如何将每个A4页面分成两个A5页面？

Answer 1

试试:

• Briss(免费软件)易于使用,只拖放矩形来创建新页面.
• A-PDF Page Cut(共享软件)不知道......它为新页面添加了水印.

Answer 2

如果某些现有的 PDF 工具尚未执行此功能，那么这里是我将如何使用CAM::PDF解决该问题的高级头脑风暴。我不确定它是否有效。

• 复制页面
• 旋转内容
• 将每个页面的裁剪框设置为感兴趣的一半

我不知道额外的超出裁剪框的内容是否会不可见，或者是否会影响渲染......

更新：我实现了一个大部分有效、简单的解决方案，如下所示。它复制相关页面，旋转两个副本，并在每个副本上设置 CropBox，选择第一页的左半部分和第二页的右半部分。不确定，您的情况可能不需要轮换。

#!/usr/bin/perl
use strict;
use warnings;
use CAM::PDF;
my $pdffile = 't/sample1.pdf';
my $pdfout = 'temp2.pdf';
my $pagenum = 1;

my $pdf = CAM::PDF->new($pdffile) or die $CAM::PDF::errstr;

my ($objnum, $gennum) = $pdf->getPageObjnum($pagenum);
my $pagedict = $pdf->getPage($pagenum);
$pagedict->{Rotate} = CAM::PDF::Node->new('number', 90);
my $oldbox = $pdf->getValue($pagedict->{CropBox} || $pagedict->{MediaBox});
my @box = map {$pdf->getValue($_)} @{$oldbox};
$pagedict->{CropBox} = CAM::PDF::Node->new('array', [
   map {CAM::PDF::Node->new('number', $_)} $box[0], $box[1], $box[2], ($box[3]+$box[1])/2
]);

my $duplicate = CAM::PDF->new($pdffile) or die $CAM::PDF::errstr;
$duplicate->extractPages($pagenum);
$pdf->appendPDF($duplicate); # appends at end instead of inserting                                                                                                  

$pagedict = $pdf->getPage($pdf->numPages());
$pagedict->{Rotate} = CAM::PDF::Node->new('number', 90);
$pagedict->{CropBox} = CAM::PDF::Node->new('array', [
   map {CAM::PDF::Node->new('number', $_)} $box[0], ($box[3]+$box[1])/2, $box[2], $box[3]
]);

if ($objnum) {
   $pdf->{changes}->{$objnum} = 1;
}
$pdf->cleanoutput($pdfout);