请问Word中如何在表格内容更改时，触发一个宏

laymanne

Word表格内容需要由用户修改，
请问如何能够做到：修改了特定位置的内容时，则触发某个宏命令



谢谢

tmplinshi

需要插入一个内容控件

1. Private prevText
   
2. 
   
3. Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
   
4.     prevText = ContentControl.Range.Text
   
5. End Sub
   
6. 
   
7. Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
   
8. 
   
9.     Dim answer As Long
   
10.    
    
11.     If (ContentControl.Range.Text <> prevText) Then
    
12.         answer = MsgBox("确定要修改吗？", vbQuestion + vbYesNo)
    
13.         If (answer = vbNo) Then
    
14.             ContentControl.Range.Text = prevText
    
15.         End If
    
16.     End If
    
17.    
    
18. End Sub

复制代码

batmanbbs

应该只能用表单控件，要求必须在表单中填写内容，离开控件时判断内容是否有变化，有变化触发相关代码