CutPDF

〜解説〜
PDFファイルから指定されたページを抽出する

〜引数〜
PDF：PDFファイルのハンドル
StartPos：抽出を開始するページの番号
EndPos：抽出を終了するページの番号
SaveFileName：保存先のファイル名

〜戻り値〜
成功：1 失敗：(-1)

〜備考〜
すこしひねれば、10ページあるPDFを分解して1枚ごとのpdfファイルにすることもできます
※このAPIを使用するとインタラクティブな属性(しおり、リンク、アクロバットフォーム、注釈、アーティクル、JavaScript)がある場合にはその情報は失われます。注意：元のファイルは変更されません。

〜サンプル〜

C/C++

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, 
                                 LPSTR lpszCmdLine, int nCmdShow)
{   
  HINSTANCE pdftools=NULL; // pdftool.dllのインスタンスハンドル
  pLoadPDF  LoadPDF=NULL;  // LoadPDF API
  pFreePDF  FreePDF=NULL;  // FreePDF API
  pCutPDF  CutPDF=NULL; // CutPDF API
  int pdf;

  // DLLの読みこみ
  pdftools = LoadLibrary("pdftool.dll");
  if (pdftools!=NULL)
  {  
     //各APIの呼び出し
     LoadPDF = (pLoadPDF)GetProcAddress(pdftools, "LoadPDF"); 
     FreePDF = (pFreePDF)GetProcAddress(pdftools, "FreePDF"); 
     CutPDF = (pCutPDF)GetProcAddress(pdftools, 
                                                 "CutPDF");  
       // PDFファイルを読み込む
       pdf =LoadPDF("c:\\test1.pdf");
       // PDFファイルの1-2ページ目を抽出する
       CutPDF(pdf,1,2,"c:\\test2.pdf");
       // PDFファイルのハンドルを解放する
       FreePDF(pdf);

      FreeLibrary(pdftools);
   }
   return(0);
}

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
 pdf: integer;
begin
 // PDFファイルを読み込む
 pdf:=LoadPDF('c:\test1.pdf');
 // PDFファイルの1-2ページ目を抽出する
 CutPDF(pdf,1,2,'c:\test2.pdf');
 // PDFファイルのハンドルを解放する
 FreePDF(pdf);
end;

VB

Private Sub Command1_Click()
Dim PDF, Ret As Long
 ' PDFファイルを読み込む
 PDF = LoadPDF("c:\test1.pdf")
 '  PDFファイルの1-2ページ目を抽出する
 Ret = CutPDF(PDF, 1, 2, "c:\test2.pdf")
  ' PDFファイルのハンドルを解放する
 FreePDF (PDF)
End Sub


2016.01.05 追加 VBAでPDFファイルのページを分割(抽出)する

ホーム