メアリーのオフィスでは、彼らは日常的にWord文書からPDFファイルを作成しています。

これを行うには、[名前を付けて保存]を使用し、ドキュメントをPDFファイルとして保存することを選択します。これはメアリーにとってはかなり「クリック集約的」に見えるので、ドキュメントをPDFファイルとして保存するためのショートカットがWord内に利用できるかどうか疑問に思います。

このタスクに取り組むには2つの方法があります。まず、 linkクイックアクセスツールバーにコマンドを追加できます。

。 [Wordのオプション]ダイアログボックスを表示します。 (Word 2007では、[Office]ボタンをクリックしてから[Wordのオプション]をクリックします。Word2010以降のバージョンでは、リボンの[ファイル]タブが表示され、[オプション]をクリックします。)

。ダイアログボックスの左側にある[カスタマイズ]オプション(Word 2007)または[クイックアクセスツールバー]オプション(Word 2010以降のバージョン)を選択します。

。 [コマンドの選択]ドロップダウンリストを使用して、[ファイル]タブを選択します。これにより、リボンの[ファイル]タブにあるすべてのコマンドが表示されます。

(図1を参照)

。使用可能なコマンドのリストをスクロールして、[PDFまたはXPSとして公開]を選択します。

。 [追加]ボタンをクリックします。コマンドは、ダイアログボックスの右側のリストに移動します。

。 [OK]をクリックします。新しいコマンドがクイックアクセスツールバーに表示されます。

このツールをクリックすると、[名前を付けて保存]ダイアログボックスに非常によく似たダイアログボックスが表示されます。 PDFファイルに使用する名前を指定し、オプションで、ファイルを保存するフォルダーを選択するだけです。

必要に応じて、マクロを使用して同様のアプローチをとることができます。

違いは、このアプローチでは実際には[名前を付けて保存]ダイアログボックスが表示されることです。

Sub SaveAsPDF1()

With Dialogs(wdDialogFileSaveAs)

.Format = wdExportFormatPDF         .Show     End With End Sub

すべてのマクロと同様に、クイックアクセスツールバーに追加するか、ショートカットキーを作成して呼び出すことができます。

これまでに説明した両方のアプローチでは、ファイル名を入力してPDFファイルの場所を選択する必要があるダイアログボックスが表示されます。ダイアログボックスを完全にバイパスしたい場合は、別のマクロアプローチが有効な場合があります。

Sub SaveAsPDF2()

Dim sName As String     Dim sPath As String

With ActiveDocument         sName = Left(.Name, InStr(.Name, ".") - 1)

sName = sName & ".pdf"

sPath = .Path & "\"



.ExportAsFixedFormat _           OutputFileName:=sPath & sName, _           ExportFormat:=wdExportFormatPDF     End With End Sub

このマクロは、現在開いているドキュメントのフォルダを特定し、ドキュメントと同じ名前を使用してPDFをそのフォルダに保存します。

したがって、たとえば、「MyDoc.docx」というドキュメントで作業している場合、

次に、このマクロはPDFを「MyDoc.pdf」として保存します。ダイアログボックスは表示されません。 PDFファイルを作成して保存するだけです。

PDFファイルを別のフォルダーに保存したい場合は、そのフォルダーへのフルパスをsPath変数に割り当てるだけです。例として、すべてのPDFファイルを共通のフォルダーに保存するとします。この行を置き換えるだけです:

sPath = .Path & "\"

これに似た行を使用して、目的のパスに合わせて変更します:

sPath = "c:\mypath\pdfs\"

注:

このページ(または_WordTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

(Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。)このヒント(12240)は、Microsoft Word 2007、2010、2013、および2016に適用されます。