返回列表 上一主題 發帖

[發問] word 巨集 被連續觸發

eigen

帖子
79 
主題
33 
精華
0 
積分
123 
點名
0  
作業系統
win7 
軟體版本
x64 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2013-10-24 
最後登錄
2024-3-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-5-30 15:56 | 顯示全部帖子

[發問] word 巨集 被連續觸發

word 巨集 被連續觸發

我參考微軟  http://msdn.microsoft.com/en-us/library/office/aa211873(v=office.11).aspx

和

http://msdn.microsoft.com/en-us/library/office/aa211915(v=office.11).aspx

https://stackoverflow.com/questions/8693798/documentbeforeclose-syntax

做出了 word 2003 beforeprint 的巨集

當我列印時，會先觸發這個 BeforePrint 這個巨集


目前發生一個問題，我發現當我開啟 A、B 兩個同類型doc，都有 BeforePrint 巨集

當我對 A.doc執行 print ，BeforePrint 巨集就會被觸發 2次

如果我開啟三個 A、B、C 三個，都有 BeforePrint 巨集的 DOC

當我對 A.doc執行 print ，BeforePrint 巨集就會被觸發 3次。

不勝奇擾，有人看的懂這巨集究竟有什麼問題？

附件有價單.DOT ，執行兩次就會新增兩個DOC ，執行列印就會發生上述的問題

我只想針對我要列印的檔案
價單.zip (10.15 KB)
收藏 分享
公開經驗，創造智慧（我又不靠這過活）

eigen

帖子
79 
主題
33 
精華
0 
積分
123 
點名
0  
作業系統
win7 
軟體版本
x64 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2013-10-24 
最後登錄
2024-3-28 
2#
發表於 2018-5-31 17:08 | 顯示全部帖子
解：

建個新的 module

將
Dim X As New EventClassModule
Sub Register_Event_Handler()
Set X.appWord = Word.Application
End Sub

移過去，不要放在 ThisDocument
公開經驗，創造智慧（我又不靠這過活）

TOP

        靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。
返回列表 上一主題