Sub file_property()
	Application.Dialogs(xlDialogSummaryInfo).Show
	'ファイルの概要ダイアログボックスを表示します
	'引数はtitle、subject、author、keywords、commentsがあります
End Sub