1. Imports SpreadsheetGear
   
2. Imports KbInterfaces
   
3. Imports System.Windows.Resources
   
4. Imports System.Windows.Threading
   
5. Imports System.Windows
   
6. Imports System.Windows.Co**ols
   
7. Imports Newtonsoft.Json.Linq
   
8. Imports System.Runtime.InteropServices.Automation
   
9. 
   
10. Namespace ExcelViewVBDotnet
    
11. Public Class StandardInterface '自定义名称
    
12. Implements Interfaces.IExcelWorkBook
    
13. Public Property ActiveWorkbook() As IWorkbook Implements Interfaces.IExcelWorkBook.Workbook
    
14. Dim AW As SpreadsheetGear.IWorkbook, Range As SpreadsheetGear.IRange
    
15. Public Sub Workbook_Open(OldRoot As Grid, NewRoot As Grid, Excel As SpreadsheetGear.Windows.Co**ols.WorkbookView) Implements Interfaces.IExcelWorkBook.Workbook_Open
    
16. Excel.GetLock()
    
17. AW = Excel.ActiveWorkbook
    
18. Range = AW.ActiveWorksheet.Range
    
19. Excel.ReleaseLock()
    
20. 
    
21. End Sub '打开时执行事件
    
22. 
    
23. Public Sub RangeSelection(sender As Object, e As SpreadsheetGear.Windows.Co**ols.RangeSelectionChangedEventArgs) Implements Interfaces.IExcelWorkBook.RangeSelection
    
24. 
    
25. End Sub '单元格选择后执行的事件
    
26. 
    
27. Public Sub RangeChanged(sender As Object, e As SpreadsheetGear.Windows.Co**ols.RangeChangedEventArgs) Implements Interfaces.IExcelWorkBook.RangeChanged
    
28. 
    
29. End Sub '单元格编辑完成后执行事件
    
30. 
    
31. Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Co**ols.ShapeActionEventArgs) Implements Interfaces.IExcelWorkBook.ButtunClick
    
32. ActiveWorkbook.WorkbookSet.GetLock()
    
33. 
    
34. If e.Shape.Name = "Button 1" Then
    
35. '判断是否OOB模式运行
    
36. If Application.Current.IsRunningOutOfBrowser = True Then
    
37. '实例化Word接口
    
38. Dim _myWord As Object = AutomationFactory.CreateObject("Word.Application")
    
39. 
    
40. 
    
41. With _myWord
    
42. .Visible = True
    
43. .documents.open("D:\word\abc.doc")
    
44. 
    
45. 'If _myWord.ActiveDocument.Bookmarks.Exists("Party_Co") = True Then
    
46. ' MessageBox.Show(123)
    
47. 'End If
    
48. AW.WorkbookSet.GetLock()
    
49. '_myWord.ActiveDocument.bookmarks("Party_Co").range.Text = Range("F_4068").Text
    
50. 
    
51. While .Selection.Find.Execute("姓名")
    
52. .Selection.Text = Range("F_4068").Text
    
53. .Selection.HomeKey(6)
    
54. End While
    
55. 
    
56. AW.WorkbookSet.ReleaseLock()
    
57. _myWord.ActiveDocument.SaveAs("D:\word" & Range("F_4068").Text)
    
58. _myWord.ActiveDocument.Close()
    
59. 
    
60. _myWord.Quit()
    
61. _myWord = Nothing
    
62. 
    
63. End With
    
64. 
    
65. Else
    
66. MessageBox.Show("必须在桌面启动才能使用！")
    
67. End If
    
68. End If
    
69. ActiveWorkbook.WorkbookSet.ReleaseLock()
    
70. End Sub '按钮/标签点击事件
    
71. 
    
72. Public Sub FollowHyperlink(sender As Object) Implements Interfaces.IExcelWorkBook.FollowHyperlink
    
73. 
    
74. End Sub '暂不支持
    
75. 
    
76. 
    
77. Public Function ReText(ReTextA As IRange)
    
78. ReText = StrReverse(ReTextA.ToString)
    
79. Return (ReText)
    
80. End Function
    
81. 
    
82. Private Function DataTemplate() As String
    
83. Throw New NotImplementedException
    
84. End Function
    
85. 
    
86. Private Function wdGoToBookmark() As Object
    
87. Throw New NotImplementedException
    
88. End Function
    
89. 
    
90. Private Function strBookMark() As Object
    
91. Throw New NotImplementedException
    
92. End Function
    
93. 
    
94. Private Sub SaveAs(p1 As Object)
    
95. Throw New NotImplementedException
    
96. End Sub
    
97. 
    
98. End Class
    
99. '注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
100. 
     
101. End Namespace
     

复制代码

1. Imports SpreadsheetGear
   
2. Imports KbInterfaces
   
3. Imports System.Windows.Resources
   
4. Imports System.Windows.Threading
   
5. Imports System.Windows
   
6. Imports System.Windows.Co**ols
   
7. Imports Newtonsoft.Json.Linq
   
8. Imports System.Runtime.InteropServices.Automation
   
9. 
   
10. Namespace ExcelViewVBDotnet
    
11. Public Class StandardInterface '自定义名称
    
12. Implements Interfaces.IExcelWorkBook
    
13. Public Property ActiveWorkbook() As IWorkbook Implements Interfaces.IExcelWorkBook.Workbook
    
14. Dim AW As SpreadsheetGear.IWorkbook, Range As SpreadsheetGear.IRange
    
15. Public Sub Workbook_Open(OldRoot As Grid, NewRoot As Grid, Excel As SpreadsheetGear.Windows.Co**ols.WorkbookView) Implements Interfaces.IExcelWorkBook.Workbook_Open
    
16. Excel.GetLock()
    
17. AW = Excel.ActiveWorkbook
    
18. Range = AW.ActiveWorksheet.Range
    
19. Excel.ReleaseLock()
    
20. 
    
21. End Sub '打开时执行事件
    
22. 
    
23. Public Sub RangeSelection(sender As Object, e As SpreadsheetGear.Windows.Co**ols.RangeSelectionChangedEventArgs) Implements Interfaces.IExcelWorkBook.RangeSelection
    
24. 
    
25. End Sub '单元格选择后执行的事件
    
26. 
    
27. Public Sub RangeChanged(sender As Object, e As SpreadsheetGear.Windows.Co**ols.RangeChangedEventArgs) Implements Interfaces.IExcelWorkBook.RangeChanged
    
28. 
    
29. End Sub '单元格编辑完成后执行事件
    
30. 
    
31. Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Co**ols.ShapeActionEventArgs) Implements Interfaces.IExcelWorkBook.ButtunClick
    
32. ActiveWorkbook.WorkbookSet.GetLock()
    
33. 
    
34. If e.Shape.Name = "Button 1" Then
    
35. '判断是否OOB模式运行
    
36. If Application.Current.IsRunningOutOfBrowser = True Then
    
37. '实例化Word接口
    
38. Dim _myWord As Object = AutomationFactory.CreateObject("Word.Application")
    
39. 
    
40. 
    
41. With _myWord
    
42. .Visible = True
    
43. .documents.open("D:\word\abc.doc")
    
44. 
    
45. 'If _myWord.ActiveDocument.Bookmarks.Exists("Party_Co") = True Then
    
46. ' MessageBox.Show(123)
    
47. 'End If
    
48. AW.WorkbookSet.GetLock()
    
49. '_myWord.ActiveDocument.bookmarks("Party_Co").range.Text = Range("F_4068").Text
    
50. 
    
51. While .Selection.Find.Execute("姓名")
    
52. .Selection.Text = Range("F_4068").Text
    
53. .Selection.HomeKey(6)
    
54. End While
    
55. 
    
56. AW.WorkbookSet.ReleaseLock()
    
57. _myWord.ActiveDocument.SaveAs("D:\word" & Range("F_4068").Text)
    
58. _myWord.ActiveDocument.Close()
    
59. 
    
60. _myWord.Quit()
    
61. _myWord = Nothing
    
62. 
    
63. End With
    
64. 
    
65. Else
    
66. MessageBox.Show("必须在桌面启动才能使用！")
    
67. End If
    
68. End If
    
69. ActiveWorkbook.WorkbookSet.ReleaseLock()
    
70. End Sub '按钮/标签点击事件
    
71. 
    
72. Public Sub FollowHyperlink(sender As Object) Implements Interfaces.IExcelWorkBook.FollowHyperlink
    
73. 
    
74. End Sub '暂不支持
    
75. 
    
76. 
    
77. Public Function ReText(ReTextA As IRange)
    
78. ReText = StrReverse(ReTextA.ToString)
    
79. Return (ReText)
    
80. End Function
    
81. 
    
82. Private Function DataTemplate() As String
    
83. Throw New NotImplementedException
    
84. End Function
    
85. 
    
86. Private Function wdGoToBookmark() As Object
    
87. Throw New NotImplementedException
    
88. End Function
    
89. 
    
90. Private Function strBookMark() As Object
    
91. Throw New NotImplementedException
    
92. End Function
    
93. 
    
94. Private Sub SaveAs(p1 As Object)
    
95. Throw New NotImplementedException
    
96. End Sub
    
97. 
    
98. End Class
    
99. '注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
100. 
     
101. End Namespace
     

复制代码