1.Ctrl + Alt + V 開啟變數設定視窗
2.Ctrl + M 開啟巨集設定視窗
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| Sub GotoSheet
//取得工作表上的物件名稱
Set sheetName = ActiveDocument.GetSheetObject("CH03")
//如果有點擊
If sheetName.isActive Then
//取得表格物件欄位值
Set mySelections = ActiveDocument.fields("case_id").GetSelectedValues
//如果有值
IF mySelections.Count =1 Then
//跳到別的工作表
ActiveDocument.Sheets("詳細案件內容").Activate
//將現有變數設定值
ActiveDocument.Variables("vOpenDetailWindows").SetContent "1", true
//彈出視窗
msgbox vOpenDetailWindows
End If
End If
End Sub
|
沒有留言:
張貼留言