VBA使用工具栏自定义按钮打开Word

版本：企业版V9.89

1. Imports SpreadsheetGear
   
2. Imports KbInterfaces
   
3. Imports System.Windows.Resources
   
4. Imports System.Windows.Threading
   
5. Imports System.Windows
   
6. Imports System.Windows.Controls
   
7. Imports C1.Silverlight
   
8. Imports C1.Silverlight.C1MessageBoxButton
   
9. Imports C1.Silverlight.C1MessageBoxIcon
   
10. Imports Newtonsoft.Json
    
11. Imports Newtonsoft.Json.Linq
    
12. Imports System.IO
    
13. Imports System.Text
    
14. Imports System.Runtime.InteropServices.Automation
    
15. Namespace ExcelViewVBDotnet
    
16.         Public Class StandardInterface
    
17. 
    
18. 
    
19.                 Dim btnName As String = ""
    
20.                 Dim CF As TextBox, VW As Object
    
21.                 Dim TS As StackPanel
    
22.                 Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView, AW As SpreadsheetGear.IWorkbook, Range As SpreadsheetGear.IRange
    
23.                 Public Sub Workbook_Open(OldRoot As Object, NewRoot As Object, Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
24.                         EV = Excel
    
25.                         Excel.GetLock()
    
26.                         AW = Excel.ActiveWorkbook
    
27.                         Range = AW.ActiveWorksheet.Range
    
28.                         Excel.ReleaseLock()
    
29. 
    
30. 
    
31.                         Dim click As Action(Of String) = Function(other)
    
32.                         Call InsertTableRows()
    
33.                         End Function
    
34.                         App.KBAddButton(17, "msg", "生成", click)
    
35. '-----------------------------------------------------------------------------------------------------------------------------
    
36.                 End Sub'打开时执行事件
    
37. 
    
38.                 Public Sub RangeSelection(sender As Object, e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
39. 
    
40.                 End Sub'单元格选择后执行的事件
    
41. 
    
42.                 Public Sub RangeChanged(sender As Object, e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
43. 
    
44.                 End Sub'单元格编辑完成后执行事件
    
45. 
    
46.                 Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
47. 
    
48.                 End Sub'按钮/标签点击事件
    
49. 
    
50.                 Public Sub FollowHyperlink(sender As Object)
    
51. 
    
52.                 End Sub '暂不支持
    
53. 
    
54. 
    
55.                 Sub InsertTableRows()
    
56.                         Dim _word As Object = AutomationFactory.CreateObject("Word.Application")
    
57.                         _word.visible = True
    
58.                         _word.Documents.open("d:\word\demo.docx")'ActiveDocument
    
59.                         ActiveWorkbook.WorkbookSet.GetLock()

复制代码

VBA使用工具栏自定义按钮打开Word

版本：企业版V9.89

1. Imports SpreadsheetGear
   
2. Imports KbInterfaces
   
3. Imports System.Windows.Resources
   
4. Imports System.Windows.Threading
   
5. Imports System.Windows
   
6. Imports System.Windows.Controls
   
7. Imports C1.Silverlight
   
8. Imports C1.Silverlight.C1MessageBoxButton
   
9. Imports C1.Silverlight.C1MessageBoxIcon
   
10. Imports Newtonsoft.Json
    
11. Imports Newtonsoft.Json.Linq
    
12. Imports System.IO
    
13. Imports System.Text
    
14. Imports System.Runtime.InteropServices.Automation
    
15. Namespace ExcelViewVBDotnet
    
16.         Public Class StandardInterface
    
17. 
    
18. 
    
19.                 Dim btnName As String = ""
    
20.                 Dim CF As TextBox, VW As Object
    
21.                 Dim TS As StackPanel
    
22.                 Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView, AW As SpreadsheetGear.IWorkbook, Range As SpreadsheetGear.IRange
    
23.                 Public Sub Workbook_Open(OldRoot As Object, NewRoot As Object, Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
24.                         EV = Excel
    
25.                         Excel.GetLock()
    
26.                         AW = Excel.ActiveWorkbook
    
27.                         Range = AW.ActiveWorksheet.Range
    
28.                         Excel.ReleaseLock()
    
29. 
    
30. 
    
31.                         Dim click As Action(Of String) = Function(other)
    
32.                         Call InsertTableRows()
    
33.                         End Function
    
34.                         App.KBAddButton(17, "msg", "生成", click)
    
35. '-----------------------------------------------------------------------------------------------------------------------------
    
36.                 End Sub'打开时执行事件
    
37. 
    
38.                 Public Sub RangeSelection(sender As Object, e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
39. 
    
40.                 End Sub'单元格选择后执行的事件
    
41. 
    
42.                 Public Sub RangeChanged(sender As Object, e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
43. 
    
44.                 End Sub'单元格编辑完成后执行事件
    
45. 
    
46.                 Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
47. 
    
48.                 End Sub'按钮/标签点击事件
    
49. 
    
50.                 Public Sub FollowHyperlink(sender As Object)
    
51. 
    
52.                 End Sub '暂不支持
    
53. 
    
54. 
    
55.                 Sub InsertTableRows()
    
56.                         Dim _word As Object = AutomationFactory.CreateObject("Word.Application")
    
57.                         _word.visible = True
    
58.                         _word.Documents.open("d:\word\demo.docx")'ActiveDocument
    
59.                         ActiveWorkbook.WorkbookSet.GetLock()

复制代码