12 lines
312 B
QBasic
12 lines
312 B
QBasic
|
Attribute VB_Name = "z_UIRibbon"
|
|||
|
|
' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
Option Explicit
|
|||
|
|
|
|||
|
|
Sub OnRibbonBtn(control As IRibbonControl)
|
|||
|
|
Select Case control.ID
|
|||
|
|
Case "ImportWord": Call RunImportWord
|
|||
|
|
Case "FollowLink": Call RunFollowLink
|
|||
|
|
Case "ClearAll": Call RunClearAll
|
|||
|
|
End Select
|
|||
|
|
End Sub
|