//=============================================================================
//  PDF形式の文書で保存
//  SaveAsメソッドを使用するコード
//  Word 2007以降はPDF文書の表示可能だが、本コードは保存後もワード文書のまま
//  したがって、実際にはワード文書のエクスポートと同じ
//=============================================================================
procedure TplWordFormEx2.Button1Click(Sender: TObject);
const
  wdFormatPDF = 17;
var
  pFilePath   : OleVariant;
  pFileFormat : OleVariant;
  objWordDoc  : OleVariant;
begin
  wdfWordApp.ScreenUpdating := False;

  //保存ファイル名のフルパス
  pFilePath := ChangeFileExt(wdfFileFullPath, '.pdf');

  SaveDialog1.InitialDir := ExtractFileDir(wdfFileFullPath);
  SaveDialog1.Filter     := 'PDF文書|*.pdf';
  SaveDialog1.DefaultExt := '.pdf';
  SaveDialog1.FileName   := ExtractFileName(pFilePath);

  if SaveDialog1.Execute then begin
    //保存形式
    pFileFormat := wdFormatPDF;

    //SaveAsの引数を省略するため、文書のオブジェクトをOleVariantに変更
    objWordDoc := wdfWordApp.ActiveDocument;
    try
      //保存ファイル名以外はデフォルトの設定で保存
      objWordDoc.SaveAs(SaveDialog1.FileName, pFileFormat);
      wdfWordDoc.Saved := True;
    except
    end;
  end;
  wdfWordApp.ScreenUpdating := True;
end;

//=============================================================================
//  PDF形式の文書で保存
//  ExportAsFixedFormatメソッドを使用するコード
//=============================================================================
procedure TplWordFormEx2.Button2Click(Sender: TObject);
const
  wdExportFormatPDF = 17;
  wdExportFormatXPS = 18;
var
  pFilePath   : OleVariant;
  pFileFormat : OleVariant;
  objWordDoc  : OleVariant;
begin
  wdfWordApp.ScreenUpdating := False;

  //保存ファイル名のフルパス
  pFilePath := ChangeFileExt(wdfFileFullPath, '.pdf');

  SaveDialog1.InitialDir := ExtractFileDir(wdfFileFullPath);
  SaveDialog1.Filter     := 'PDF文書|*.pdf';
  SaveDialog1.DefaultExt := '.pdf';
  SaveDialog1.FileName   := ExtractFileName(pFilePath);

  if SaveDialog1.Execute then begin
    //保存形式
    pFileFormat := wdExportFormatPDF;

    //SaveAsの引数を省略するため、文書のオブジェクトをOleVariantに変更
    objWordDoc := wdfWordApp.ActiveDocument;
    try
      pFilePath := SaveDialog1.FileName;
      //指定の引数の値だけをセットする方法
      //引数を順番通りに設定する場合は、引数名は省略可能
      objWordDoc.ExportAsFixedFormat(OutputFileName   := pFilePath,
                                     ExportFormat     := pFileFormat,
                                     IncludeDocProps  := False,
                                     DocStructureTags := False);
      wdfWordDoc.Saved := True;
    except
    end;
  end;
  wdfWordApp.ScreenUpdating := True;
end;