corelvba/module/HotKeys.bas

Attribute VB_Name = "HotKeys"
Sub Start_SelectSame()
  '// 选择相同工具增强版
  frmSelectSame.Show 0
End Sub

Sub Start_CQL_FIND()
  '// 简单查找
  CQL_FIND_UI.Show 0
End Sub

Sub Start_Batch_Replace()
  '// 批量替换
  Replace_UI.Show 0
End Sub

Sub Start_Arrange()
  '// 开始拼版
   ArrangeForm.Show 0
End Sub

Sub Start_CutLines()
  CutLines.Draw_Lines  '// 调用角线
End Sub

Sub AIClipboard_CopyAIFormat()
   value = GMSManager.RunMacro("AIClipboard", "CopyPaste.CopyAIFormat")
End Sub

Sub AIClipboard_PasteAIFormat()
   value = GMSManager.RunMacro("AIClipboard", "CopyPaste.PasteAIFormat")
End Sub