こんにちは。
先程、WordとExcelの印刷をしようとしたのですが、
なぜか「このプログラムは不正な処理を行ったので
閉じます」というダイアログが表示され、まったく
印刷ができません。(汗)

・・・どうすればよいのでしょうか。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

こんにちは、pikarinさん



印刷しようとしていたWord及びExcelのファイル(文書ファイル)が壊れている可能性もあります。

 エラー個所を含んだファイルで印刷指示を行うと、
pikarinさんの経験したようなエラーが発生することがあり
ます。

 他のWord及びExcelのファイルに対して印刷を試して印刷されるようでしたら、
他のファイルでも同様のエラーが発生するようでしたら

下のかたのコメントの通りだと思います。


もし特定の文書ファイルの場合は、

文書ファイルを再作成するのが困難な場合や、重要な文章の場合は、

(1) エラーが発生した文書の原因カ所を特定
(2) その原因カ所を一度削除
(3) 一度保存して正常なデータ状態に
(4) 削除した部分を改めて作成する

を行うことによりデータを1から作成することなく、復帰することがあります。

原因カ所の特定方法は消去法で

(1) 文書ファイルをコピーしてバックアップをとり、
(2) コピーした文書ファイルを開き特定範囲で消去して保存
(3) 保存した文章を印刷して確かめる

で特定する方法をしています。
    • good
    • 0
この回答へのお礼

詳しく解説して頂いて有難うございます。
とてもわかりやすくて、参考になりました。
印刷のほうは、無事行うことができました。

どうも有難うございました。(*^^*)

お礼日時:2001/04/05 16:13

Windowsのシステムか


Officeが壊れてしまったためだと思います。
解決策としては
プリンタの設定を一度削除して
もう一度プリンタを追加してみる。
その後にOfficeをアンインストールして
もう一度Officeを再インストールする。

それでもダメでしたら
Windows自体のクリーンインストールをお奨めします。
    • good
    • 0
この回答へのお礼

早速の回答有難うございます。
無事、解決しました。(*^^*)

お礼日時:2001/04/05 16:12

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

QExcelのダイアログを閉じるプログラムは?

現在Excelにて、コマンドボタンを押すとダイアログで
6つにグループ分けしたボタンを表示させ、
(たとえば野菜グループ、果物グループ、魚グループ、肉グループ...
といった感じの6つのグループ)
その6つのうちの一つ(たとえば果物グループ)を押すと、
果物のリストボックスが入ったダイアログが現れ、
そのリストから1つ(たとえばバナナ)を選択し、OKボタンを押すと
選んであったセルにバナナと入力されるというものです。
しかし、2つ目のリストボックスは、
リストから1つ選んでOKを押した時点で閉じるのですが、
1つ目のダイアログは6つのうちの1つを選択しても閉じず、
次のダイアログを起動させるプログラムしか組めていない為、
入力し終えたあと、自分で×(閉じる)ボタンを押して、
終了させなければなりません。
6つのうちの1つを選んで、次のダイアログを起動させた時点で
終了させるにはVBA(VBE?)にどう書き込めば良いのでしょうか?
2つ目に起動するリストボックスを表示させるダイアログの
閉じる為のプログラムと思われる箇所には
下記のように入力されています。

'確認ボタン(OKボタン)が押された場合の処理
If ListBox1.ListIndex > 0 Then
ActiveCell.Value = ListBox1.List(ListBox1.ListIndex)

なにぶん初心者なもので、全然分からないまま、
ネットの参考資料等を見ながらここまできましたが、
行き詰ってしまいお願いした次第です。
何卒、宜しくお願い致します。

現在Excelにて、コマンドボタンを押すとダイアログで
6つにグループ分けしたボタンを表示させ、
(たとえば野菜グループ、果物グループ、魚グループ、肉グループ...
といった感じの6つのグループ)
その6つのうちの一つ(たとえば果物グループ)を押すと、
果物のリストボックスが入ったダイアログが現れ、
そのリストから1つ(たとえばバナナ)を選択し、OKボタンを押すと
選んであったセルにバナナと入力されるというものです。
しかし、2つ目のリストボックスは、
リストから1つ選んでOKを押した時点...続きを読む

Aベストアンサー

こんにちは。

>詳しく載ったHowTo本などご存知でしたら教えて頂けませんか?

かんたんプログラミング Excel2003 VBA コントロール・関数編
http://www.amazon.co.jp/exec/obidos/ASIN/4774120286/

ここら辺りがよいと思います。

私個人としては、以下の書籍は、少し内容が細かすぎるなって思うこともあるのですが、かといって、他に探そうと思っても、後は、私の知っている本ですと、実教出版だった思いますが、教室用のテキスト「Excel VBA」で、解説がなかったりします。

この本を、100%理解する必要は絶対にないということだけは言っておきます。
分からない部分は飛ばし読みでもよいです。主要なところだけを、UserFormで試してみるだけでよいと思います。TextBox, ListBox CommandButton, CheckBox, ComboBox ぐらいでしょう。

この本の後は、関数の説明があるのですが、それほど必要ではありません。どういうものがあるか知っているだけでよいです。文字処理系の関数をチェックすればよいと思います。

巻末の付録も充実しているので、この本は、後々使えます。

こんにちは。

>詳しく載ったHowTo本などご存知でしたら教えて頂けませんか?

かんたんプログラミング Excel2003 VBA コントロール・関数編
http://www.amazon.co.jp/exec/obidos/ASIN/4774120286/

ここら辺りがよいと思います。

私個人としては、以下の書籍は、少し内容が細かすぎるなって思うこともあるのですが、かといって、他に探そうと思っても、後は、私の知っている本ですと、実教出版だった思いますが、教室用のテキスト「Excel VBA」で、解説がなかったりします。

この本を、100%理解す...続きを読む

Qエクセルのウインドウを閉じる時にファイルによっては「'ファイル名'の変更を保存しますか」ってダイアログが出てしまいます

エクセル(97)のウインドウを閉じる時に、ファイルによっては(どこもデータの変更をしてないのに)「'ファイル名'の変更を保存しますか」ってダイアログが出てしまいますけど、これはなぜなのでしょう?

Aベストアンサー

こんにちは。maruru01です。

どこかに、TODAYなどの再計算関数があると、何もしていないのに、変更されたと判断されます。
これらの関数は、シート上だけでなく、名前定義や入力規則などで使用されている可能性もあります。

QExcelで作成した表を印刷しようとすると、One Noteを起動しないと印刷出来ないと表示

Windows 8.1です。
従来はExcel で作成した表はファイル→印刷で可能でした。
本日、印刷しようとしたらタイトルのアラートが出て印刷できません。
従来通り印刷する方法を教えて下さい。

Aベストアンサー

> Excelで作成した表を印刷しようとすると、One Noteを起動しないと印刷出来ないと表示

「通常使うプリンター」として「OneNoteに送る」または「Send To OneNote」が設定されています。

下記URLのページをご覧になって、お使いになっているプリンターを「通常使うプリンター」に設定してみて下さい。

「印刷時にOneNoteが起動する場合の対処方法」
https://121ware.com/qasearch/1007/app/servlet/relatedqa?QID=016773

QExcel2000で閉じたファイルが再び開けようとしても開かない。

Excel2000で編集中、「不正な処理を行ったので強制終了されます。」

と警告メッセージが表示され、編集中のBookを保存せずあきらめないと

いけない場合があります。

このメッセージの後、Excelを閉じるしか方法がありません。

再び、Excelを開け、先ほどのBookを開けようとすると

すでに開いているとメッセージが表示されます。

質問1 なぜ、、「不正な処理を行ったので強制終了されます。」

    と警告メッセージが表示されるのですか。

質問2 強制終了したBookを再度開けられるようにするには

    どうしたらよいですか。(再起動すれば開きます。)

Aベストアンサー

こんにちは

 以下のページがご参考になるのでは?

[XL2000] ファイルにアクセスできなくなった場合の原因と対策
http://www.microsoft.com/japan/support/kb/articles/J042/3/69.asp

[XL2000] 「ファイルは編集のためロックされています」メッセージについて
http://www.microsoft.com/japan/support/kb/articles/J056/5/83.asp

[XL2000]強制終了およびハングアップの際のチェック項目
http://www.microsoft.com/japan/support/kb/articles/J023/4/22.asp

Microsoft Excel Viewer 97
http://office.microsoft.com/japan/downloads/9798/xlviewer.aspx

XL: Summary of Methods to Recover Data from Corrupted Files (Q142117)
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q142117

XL2000: Methods for Recovering Data from Damaged Workbooks (Q179871)
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q179871

参考URL:http://www.microsoft.com/japan/support/kb/articles/J042/3/69.asp

こんにちは

 以下のページがご参考になるのでは?

[XL2000] ファイルにアクセスできなくなった場合の原因と対策
http://www.microsoft.com/japan/support/kb/articles/J042/3/69.asp

[XL2000] 「ファイルは編集のためロックされています」メッセージについて
http://www.microsoft.com/japan/support/kb/articles/J056/5/83.asp

[XL2000]強制終了およびハングアップの際のチェック項目
http://www.microsoft.com/japan/support/kb/articles/J023/4/22.asp

Microsoft Excel Viewer 97
http://o...続きを読む

QExcelを閉じたらスクリーンキーボードも閉じるには

Excelでスクリーンキーボードより文字入力していますが
Excelを閉じてもスクリーンキーボードはWinXPに付属している為、閉じないのですがExcelを閉じたらスクリーンキーボードも閉じるようにするにはどのように設定したら閉じますでしょうか?

Aベストアンサー

エクセルVBAの経験ありますか。
多分操作による、どこかの設定では難しいと思います。
http://officetanaka.net/excel/vba/tips/tips61.htm
を使わせてもらって
エクセル標準モジュールに
Sub Sample2()
Dim WD
Set WD = CreateObject("Word.Application")
If WD.Tasks.Exists("スクリーン キーボード") Then
MsgBox "スクリーン キーボードを終了"
WD.Tasks("スクリーン キーボード").Close
End If
WD.Quit
Set WD = Nothing
End Sub
を入れて、実行すると、終了します。
「スクリーン キーボード」の2語の間は半角スペースでした。

ファイル名を指定して実行で、osk.exeでスクリーンキーボードをhらいておいて、実行して見ました。
エクセルを閉じるときなので
エクセルのThisWorkbookのBeforeCloseイベントに
Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub
に上記のコードを挟む
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sample2
End Sub
こういうのが判らなければ、断念せざるをえない。
たまたまワードにTasks.Existsガあったから簡単なコードでできそうですが。
コンピュター関連では、素人でも簡単に思いつく課題が、解決には、大変な勉強が必要なものが多いですよ。

エクセルVBAの経験ありますか。
多分操作による、どこかの設定では難しいと思います。
http://officetanaka.net/excel/vba/tips/tips61.htm
を使わせてもらって
エクセル標準モジュールに
Sub Sample2()
Dim WD
Set WD = CreateObject("Word.Application")
If WD.Tasks.Exists("スクリーン キーボード") Then
MsgBox "スクリーン キーボードを終了"
WD.Tasks("スクリーン キーボード").Close
End If
WD.Quit
Set WD = Nothing
End Sub
を入れて、実行すると、...続きを読む


このカテゴリの人気Q&Aランキング

おすすめ情報