返回列表 上一主題 發帖

[發問] 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

linyancheng

帖子
228 
主題
73 
精華
2 
積分
333 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2000, 2019 
閱讀權限
100 
性別
男 
來自
彰化縣 
註冊時間
2013-7-18 
最後登錄
2024-10-13 
3#
發表於 2018-6-9 22:11 | 只看該作者
本帖最後由 linyancheng 於 2018-6-9 23:06 編輯

回復 2# eigen


Document_Open在dot檔沒有作用，保留Document_New即可。

在ThisDocument模組為Private Sub模組，
兩個檔案下，Dim X各自存在，
故會產生兩個物件類別模組的物件「影子」，
三個檔案就會產生三個，
也就同時引起幾個觸發事件。

一般模組下為Public Sub模組，
不管開幾個檔案，Dim X只有一個，
只Set一次，
也只產生一個物件「影子」，
觸發事件也只有一次。

「影子」的「實體」是Word.Application，
任何新開的檔案都會受影響，不只以它為範本的檔案。

TOP

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
返回列表 上一主題