Access2010でWORDのブックマークへの差込を実行するVBAを組み、うまく作動しました
ところが、「WORDで特定文書の名前で保存する構文をいれ、別名保存がうまく終わっている」にも拘わらず、必ず”未保存の文書1を保存しますか?”とWORDが必ず聞いてきます。これを回避するにはどのようにしたらよろしいでしょうか?
ACCESS2010のVBAは下記のとおり組んでいます
'Word文書を保存する箇所
WordApp.Application.ActiveDocument.SaveAs FileName:=VARIABLE.doc, FileFormat:=1
'Wordを終了する箇所(上記保存のすぐ後に書いています)
WordApp.Application.ActiveDocument.Close
WordApp.Quit
Set WordApp = Nothing
Set doc = Nothing
No.2ベストアンサー
- 回答日時:
段々と怪しさ度が増してきているような気がしますけど(気のせい?)
もしかしたら、終了時の問題では無くてその前の処理で
Word のオブジェクトの扱い方に問題があるのかもしれません。
>WordApp.Application.ActiveDocument.SaveAs FileName:=WName, FileFormat:=1
のあたりで、F9 で一旦止めてからタスクマネージャでプロセスを見た時に
WinWord.exe が複数立ち上がっていませんか?
Wordの解説が見つからなかったので、Excel でのお話ですが
http://homepage1.nifty.com/rucio/main/technique/ …
Wordに読み替えてみてください。
もしも、WinWordが複数立ち上がっていたのなら
どこかで扱い方を間違えているのでしょうから
コードの最初の方(・・・Createobject("Word.Application"・・とかかな?)の 辺りで
F9 でブレークポイントを設定し、ステップ実行しつつ
タスクマネージャで新たなWinWord.EXE が立ち上がってこないか確認してみては?
最初は一個しかないものが二個になった時の処理行が問題だということになります。
かなり妄想で回答していますので全く役立たずかも、ご参考までに。
それとももしかして、これも関係してくる?
Word を終了するたびに全文書対象のテンプレート Normal.dot または Normal.dotm への変更を保存するかどうかを確認するメッセージが表示される
http://support.microsoft.com/kb/291352/ja
あまり惑わすような珍怪答をしてはマズイので、私はこの辺で消えます。ごめんなさいね。
No.1
- 回答日時:
前回は拙い回答ですみませんでした。
今回のもかなり怪しいのですが・・
文書1 ということは新規のドキュメントの暫定的な名前ですよね。
それとも、文書1というファイルに対して変更を加え、別名保存しているのでしょうか?
コードを全て提示してもらわないと回答は難しいかと思います。
(私には分からないかも知れません)
とりあえず、『臭いものに蓋』式の良くない対処法
WordApp.Quit を WordApp.Quit Savechanges:=false
なら閉じること自体は出来そう?です。
この回答への補足
先般来、いろいろとご教示いただきありがとうございます
おかげさまで、WordApp.Quit Savechanges:=falseにしたところ、メッセージはでなくなり無事解決しました。
ところが、一難去ってまた一難で、文書は正常に別ファイル名で保存でき、WORDも無事終了したにもかかわらず、[WORDはこの文書を保存できませんでした。別の箇所で使用されています]というメッセージが出ます。英語版OFFICE2010を使用していますので正確には[Word cannot save this file because it is already open elsewhere. (c:\users\...\Templates\normal.dotm]という表示です。この表示をなくす方法がありましたら、教えていただけませんでしょうか?
保存の箇所は下記のとおり記載しています
'文書を保存する。
WName = ”AAA" & Me.sashikomi & ".doc"
WordApp.Application.ActiveDocument.SaveAs FileName:=WName, FileFormat:=1
'Wordを終了する。
WordApp.Application.ActiveDocument.Close
WordApp.Quit Savechanges:=False
Set WordApp = Nothing
Set doc = Nothing
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) evcel VBAについて 2 2022/08/02 21:37
- Word(ワード) PCで作ったwordをスマホで編集しようとすると「このファイルは読み取り専用です。」と表示される。 3 2023/05/30 14:51
- Visual Basic(VBA) Wordマクロで指定したフォルダ名に保存する方法について 8 2022/12/13 11:35
- Word(ワード) wordで画像&文書作成→pdf→pngに変換するにはどうすれば良いですか?有料ソフトを使いません。 3 2022/08/07 09:25
- その他(Microsoft Office) Excel、Wordのファイル 3 2023/05/07 04:58
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Word(ワード) 「Word2019」の自動保存を解除したい。終了時のダイアログも欲しい。 3 2022/06/17 08:30
- Word(ワード) Wordのデータが毎回破損してしまう 1 2022/08/24 11:30
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PS4のRUSTというゲームで画像の...
-
生理でも会ってくれるセフレっ...
-
パソコンのバツ印が出てこなく...
-
なぜ世間は「ニートは国民の三...
-
スイッチでマインクラフトをプ...
-
デスクトップで謎の半透明なウ...
-
Windows10の統合版マインクラフ...
-
ポケモンのなつき度チェック(...
-
動画見ながらゲーム等するとPC...
-
海外版ツムツムについて
-
ICOのエンディングなどについて...
-
Ryzen 7 5700Uではゲームは出来...
-
旦那が数ヶ月前から毎日の様に...
-
Uplayでダウンロードしたゲーム...
-
PS2のソフトが使えるはずのPS3...
-
PCゲームのFPSが突然下がります。
-
大学内でオンラインゲームをや...
-
パソコンにBugSplatが表示され...
-
ポケモンHG・SSでヒンバスは出...
-
ユーザーアカウントが複数ある...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
生理でも会ってくれるセフレっ...
-
パソコンのバツ印が出てこなく...
-
動画見ながらゲーム等するとPC...
-
スイッチでマインクラフトをプ...
-
デスクトップで謎の半透明なウ...
-
ポケモンのなつき度チェック(...
-
なぜ世間は「ニートは国民の三...
-
手持ちのポケモンがゆうことを...
-
男性は好きでもない人と一緒に...
-
スペックは足りてるのにゲーム...
-
Windows10で最近パソコンを立ち...
-
PCゲームのFPSが突然下がります。
-
自分が持っているDSのソフトのR...
-
ネカフェのPCでSteamをダウンロ...
-
パズドラの動作が重いです
-
PCゲームのプレイ中に突然デス...
-
大学内でオンラインゲームをや...
-
ps5デジタルエディションについ...
-
海外版ツムツムについて
-
Windows10の統合版マインクラフ...
おすすめ情報