エクセル ワード 開いた状態から一発で削除できますか？

質問

エクセル2003　ワード2003を使用しています。

表題の通りですが、
エクセルやワードを開いた状態から
一発で削除できますか。
できればショートカットキーで。

よく内容確認して削除するケースあるのですが、
毎回開いて閉じて削除していますが、
ストレスなので開いた状態から削除できたら便利と思うのですが。

どうぞ宜しくお願いします。

回答No.5

Wendy02 · ベストアンサー

こんにちは。

返事が遅くなりました。その理由は、Word削除のマクロが、自分が思っていた反応と、まったく違っていたからです。ショートカットの反応も違いました。今回、もう少し、反応が速くならないのかなって思いました。それでも、一応、Wordの方も、それぞれのフォルダの中身を、この機に整理しました。本当は、htaファイルやwsf で作ると、便利だろうなって思いましたが、今は、もう少し技術が足りません。

-------------------------------------------

>「プレビューの図を保存する」というのが
>エクセルのプロパティを開いてもないのですが、
>こちらもし良かったら教えてもらえませんでしょうか。

これは、後からで、全部変更ることも可能なのですが、そのまま保存してしまうと、タイムスタンプが変わってしまうので、今後の問題にしたほうがよいです。

二種類の設定が必要です。

今は、Excel 2003 だけですが、Wordも同様です。

メニュー--ファイル--プロパティ--ファイルの概要--
「プレビューの図を保存する」のチェックを入れる。

ツール--オプション--全般--
「保存時にプロパティを確認する(P)　のチェックを入れる
ということです。

こうすると、画像が保存されて、「ファイルを開く」ダイアログ(プレビューモード）やエクスプローラで、その中身を確認にして、削除することが可能です。

'=========================================
マクロ編
以下は、WordのVBAのモジュールに貼りつけてください。
本当は、特殊なツールを使うと、Word(Excelを含む）はその中身を開かずに見れるのですが、それを設定してもらうこと自体が、掲示板で教えるには、少し荷が重いような気がしました。そのツールは、" xdoc2txt.ocx " というものです。(参照URLは下段に）

以下は、コントロールツールのボタンに設定してください。
最初から、ThisDocument に入れて作ればよかったのですが、標準モジュールで作り始めてしまったので、このようなスタイルになってしまいました。

'=========================================
Private Sub CommandButton1_Click()
Call WordFileDeletePro
End Sub

Private Sub CommandButton2_Click()
　Call DeleteDoc
End Sub

'=========================================
Dim FileName As String
Dim fName As String
Sub WordFileDeletePro()
　Dim fNames As Variant
　　With Application.FileDialog(msoFileDialogFilePicker)
　　　　.Filters.Add "Wordファイル", "*.doc", 1
　　　　.Filters.Add "Wordファイル", "*.doc?", 2
　　　　.Show
　　　　Set fNames = .SelectedItems
　　End With
　　If fNames.Count = 0 Then Exit Sub
　　FileName = fNames(1)
　　fName = Mid(FileName, InStrRev(FileName, "\") + 1)
　　If fName Like "$*.doc" Then
　　　　If MsgBox(fName & "はそのまま削除します。", vbInformation + vbOKCancel) = vbOK Then
　　　　　　Kill FileName
　　　　　　MsgBox "削除しました。", vbExclamation
　　　　　　Exit Sub
　　　　Else
　　　　　　MsgBox "中止しました。", vbExclamation
　　　　　　Exit Sub
　　　　End If
　　End If
　　On Error Resume Next
　　Documents.Open FileName, , True
　　On Error GoTo 0
　　If ThisDocument.FullName = FileName Then
　　　　MsgBox "自ブックは、削除対象とすることが出来ません。", vbExclamation
　　　　Exit Sub
　　End If
　　If MsgBox(fName & "を削除してよろしいですか?" & vbCrLf & _
　　　　"後で削除する場合は、別のボタンで削除してください。", vbQuestion + vbOKCancel) = vbOK Then
　　　　　Call DeleteDoc
　　Else
　　　　ThisDocument.Activate
　　End If
End Sub
Sub DeleteDoc()
　　Dim objFS As Object
　　On Error Resume Next
　　Set objFS = CreateObject("Scripting.FilesystemObject")
　　If fName = "" Then
　　　　MsgBox "ファイル名取得に失敗しています。" & vbCrLf & _
　　　　"もう一度やり直してください。", vbExclamation
　　　　Exit Sub
　　　　Set objFS = Nothing
　　End If
　　Documents(fName).Close False
　　objFS.DeleteFile fName
　　If Err.Number > 0 Then
　　　　MsgBox "ファイル削除に失敗しました。", vbExclamation
　　Else
　　　　MsgBox fName & "の削除に成功しました。", vbInformation
　　　　fName = ""
　　　　FileName = ""
　　End If
　　On Error GoTo 0
End Sub

参考URL：

http://www31.ocn.ne.jp/~h_ishida/xdoc2txt.html