メモ帳だけ！Word,PowerPointをPDFに一括変換

WordやPowerPointのファイルをPDFファイルに変換する時、

1つ1つファイルを開いてPDFとして保存していませんか？

ファイル数が多いと、同じ作業の繰り返しでつまらないですよね

そこで、この記事では複数のWord、PowerPointのファイルをPDFに一括変換する方法を紹介します。

ExcelファイルをPDFに変換する方法はこちらで紹介しています

メモ帳だけで作成！複数のExcelファイルをPDFに一括変換 ExcelファイルをPDFファイルに変換する時、 1つ1つファイルを開いてPDFとして保存していませんか？ファイル数が多...

さかい

はじめまして、さかいと申します。
インスタで『自動化オタクの仕事術』を紹介している自分が解説させていただきます！

変換イメージ
変換ファイルの作成
まとめ

変換イメージ

早速ですが、どのようにWordファイルをPDFに変換するか説明していきます
※PowerPointも同じ手順です

①WorファイルをPDF変換ファイルにドラッグ＆ドロップする

②同じフォルダにPDFファイルが作成

これだけでPDFファイルに変換できます！

①のPDF変換ファイルの作り方について説明していきます

変換ファイルの作成

早速、変換ファイルの作り方を解説していきます！

1.メモ帳を起動

2.メモ帳に以下のコードを貼り付け

// ドラッグ&ドロップされたファイルを確認する
if (WScript.Arguments.Count() == 0) {
  WScript.echo("ファイルがありません。");
  WScript.Quit();
}
// Wordを起動する
var word = WScript.CreateObject("Word.Application");

// 1ファイルずつPDFに変換する
for (var i = 0; i < WScript.Arguments.Count(); i++) {
  exportPDF(WScript.Arguments.Item(i));
}
word.Quit();
WScript.echo("変換終了!");

// WordファイルをPDFに変換する
function exportPDF(file) {
  var fs = new
  ActiveXObject("Scripting.FileSystemObject");
  // フォルダパスを取得
  var folderPath = fs.GetFile(WScript.ScriptFullName).ParentFolder
  // ファイル名を取得
  var fileName = fs.GetBaseName(file);
  // 出力先、ファイル名を設定
  var output = folderPath + '/' + fileName;
  // wordを開き、PDFに変換する
  var docment = word.Documents.Open(file);
  docment.ExportAsFixedFormat(output,17,false);
  docment.Close();
}

3.名前を付けて保存を開く

※ショートカット
Ctrl + Shift + S

4.ファイル名、形式を変更して保存

ファイル名は任意で大丈夫です。

①「.」から後ろに「.jse」を入力
②文字コードは「ANSI」を選択

5.完成

ファイルのアイコンが変わっていればOKです

あとは先ほど紹介したように

Wordファイルをドラッグ&ドロップするとPDFファイルに変換できます

6. PowerPointをPDF変換

PowerPointファイルをPDF変換するためには、
以下コードをメモ帳に貼り付けてください。

保存方法や、使い方はWordと同じです

// ドラッグ&ドロップされたファイルを確認する
if (WScript.Arguments.Count() == 0) {
WScript.echo("ファイルがありません。");
WScript.Quit();
}
// PowerPointを起動する
var pp = WScript.CreateObject("PowerPoint.Application");

// 1ファイルずつPDFに変換する
for (var i = 0; i < WScript.Arguments.Count(); i++) {
exportPDF(WScript.Arguments.Item(i));
}
pp.Quit();
WScript.echo("変換終了!");

// WordファイルをPDFに変換する
function exportPDF(file) {
var fs = new
ActiveXObject("Scripting.FileSystemObject");
// フォルダパスを取得
var folderPath = fs.GetFile(WScript.ScriptFullName).ParentFolder
// ファイル名を取得
var fileName = fs.GetBaseName(file);
// 出力先、ファイル名を設定
var output = folderPath + '/' + fileName;
// ppを開き、PDFに変換する
var slide = pp.Presentations.Open(file, false);
slide.SaveAs(output,32);
slide.Close();
}