Macro/投稿/14

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14

// 実行には PPA.DLL が必須です。sakura.exe と同じフォルダに 
// PPA.DLL を入れておいてください。
// また、マクロファイルの拡張子は .PPA でなくてはなりません。
// SAVEREOPEN.PPA
// ファイルを閉じないで、名前を付けて保存
var
  sa, ss: String;
begin
  sa := InputBox('一時保存ファイル名','ファイル名','');
  if sa = '' then Exit;
  ss := S_ExpandParameter('$F');
  S_FileSaveAs(sa,0,0);
  S_FileOpen(ss);
end.
// このマクロ何に使うのかと、関心の有る方は[ふぁんくらぶ part4] <217>,<265>をご覧下さい。