Word VBA(Events) - 鐧惧害鏂囧簱

鏂板缓

涓婁紶

棣栭〉

鍔╂墜

鏈�杩?/div>

璧勬枡搴?/div>

宸ュ叿

Microsoft Word VBA (3) 

 

Word Events 

鍦?/p>

Word

涓�鍙�鏈?/p>

Application object

鍜?/p>

Document object

鍝嶅簲浜嬩欢

: 

Events With Application object

 : 

NewDocument,  DocumentOpen, 

DocumentBeforeClose,  DocumentBeforePrint,  DocumentBeforeSave 

WindowActivate,  WindowDeactivate,  WindowSelectionChange, 

WindowBeforeDoubleClock,  WindowBeforeRightClick, 

Quit 

Events With Document object

 :

 

New, Open, Close 

 

姝ゅ�栵紝鍦�

Document

涓婄殑

ActiveX Cobtrols

涔熷搷搴斾簨浠躲�?/p>

     

瀵规瘡涓�

FormField

鍙�浠ユ寚瀹�

On Entry

鍜?/p>

On Exit

瀹忥紝鐩稿綋浜?/p>

 GotFocus

鍜?/p>

LostFocus

浜嬩欢杩囩▼銆傚綋鐒跺湪

Word VB Project

涓�寤虹珛鐨�

UserForms

鍙?/p>

鍏朵笂鐨?/p>

Controls

涔熷搷搴斾簨浠躲�?/p>

 

 

 

 

Events: When you open a document 

 

褰?/p>

Open

 

MyDoc1.doc

鏂囨。鏃讹紝鍙戠敓浠ヤ笅浜嬩欢锛?/p>

 

   1. Document_Open 

   2. App_DocumentChange : 

   3. App_DocumentOpen :       C:\

鈥?/p>

\MyDoc1.doc 

 

 

濡傛灉

Order4.Doc

鏈?/p>

AttachedTemplate

锛屽垯褰?/p>

Open

璇?/p>

Doc

鏃讹紝鍙戠敓浠ヤ笅浜嬩欢锛?/p>

 

   1. Template

鈥?/p>

s Document_Open

锛?/p>

Doc

鎵撳紑涔熻Е鍙戞ā鏉跨殑

Open

浜嬩欢銆傦級

 

   2. App_DocumentChange (

濡傛灉杩欎笉鏄�绗�涓�涓�鎵撳紑鐨勬枃妗ｏ紝鍙戠敓

App_DocumentChange

浜嬩欢

) 

   3. Document

鈥?/p>

s Document_Open 

   4. App_DocumentOpen :       C:\My Documents\Order4.doc 

 

Events: When you close a document 

 

褰?/p>

Close

鏂囨。鏃讹紝鍙戠敓浠ヤ笅浜嬩欢锛?/p>

 

   1. App_DocumentBeforeClose:C:\

鈥?/p>

\MyDoc1.doc 

   2. Document_Close 

   3. 

瀵硅瘽妗?/p>

Save Changes ? 

   4. 

濡傛灉

Save

锛?/p>

 App_DocumentBeforeSave :C:\

鈥?/p>

\MyDoc1.doc 

      

锛堝�傛灉涓�

Save changes

鍒欎笉鍙戠敓

App_DocumentBeforeSave

銆傦級

 

 

 

濡傛灉

Order4.Doc

鏈?/p>

AttachedTemplate

锛屽垯褰?/p>

Close

璇?/p>

Doc

鏃讹紝鍙戠敓浠ヤ笅浜嬩欢锛?/p>

 

   1. App_DocumentBeforeClose:C:\My Documents\Order4.doc 

   2. Template

鈥?/p>

s Document_Close 

锛?/p>

Doc

鍏抽棴涔熻Е鍙戞ā鏉跨殑

Close

浜嬩欢銆傦級

 

   3. Document

鈥?/p>

s Document_Close 

   4. 

瀵硅瘽妗?/p>

Save Changes  to .Doc ?   

   5. Yes:

  

App_DocumentBeforeSave: C:\My Documents\Order4.doc 

   6. 

瀵硅瘽妗?/p>

Save Changes  to .Dot ? 

   7. Yes: App_DocumentBeforeSave: C:\WINDOWS\

Application Data\Microsoft\Templates

\Order.

dot 

   8. 

鍏抽棴

Word

鏂囨。绐楀彛

 

 

   

娉�锛氬�傛灉浣犱笉甯屾湜

Save

妯℃澘锛堝嵆浣挎湁

Changes

锛夛紝鍙�浠ュ湪鏈�鍚庝竴涓?/p>

App_DocumentBeforeSave

浜嬩欢

 

涔嬪墠锛屼緥濡傚湪

Template

鈥?/p>

s Document_Close

浜嬩欢閲岋紝鎵ц�屼互涓嬭��鍙ワ�?/p>

 

ActiveDocument.AttachedTemplate.Saved = True

  

锛堜笉瑕佺敤

DocumentBeforeSave

浜嬩欢閲岀殑

Cancel=True

,

瀹冧笉鍏抽棴

.Doc

绐楀彛銆傦級