235 lines
10 KiB
VB.net
235 lines
10 KiB
VB.net
'------------------------------------------------------------------------------
|
|
' <auto-generated>
|
|
' This code was generated by a tool.
|
|
' Runtime Version:4.0.30319.42000
|
|
'
|
|
' Changes to this file may cause incorrect behavior and will be lost if
|
|
' the code is regenerated.
|
|
' </auto-generated>
|
|
'------------------------------------------------------------------------------
|
|
|
|
Option Strict Off
|
|
Option Explicit On
|
|
|
|
|
|
|
|
'''
|
|
<Microsoft.VisualStudio.Tools.Applications.Runtime.StartupObjectAttribute(0), _
|
|
Global.System.Security.Permissions.PermissionSetAttribute(Global.System.Security.Permissions.SecurityAction.Demand, Name:="FullTrust")> _
|
|
Partial Public NotInheritable Class ThisAddIn
|
|
Inherits Microsoft.Office.Tools.AddInBase
|
|
|
|
Friend WithEvents CustomTaskPanes As Microsoft.Office.Tools.CustomTaskPaneCollection
|
|
|
|
Friend WithEvents VstoSmartTags As Microsoft.Office.Tools.SmartTagCollection
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "16.0.0.0")> _
|
|
Friend WithEvents Application As Microsoft.Office.Interop.Word.Application
|
|
|
|
'''
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)> _
|
|
Public Sub New(ByVal factory As Global.Microsoft.Office.Tools.Word.ApplicationFactory, ByVal serviceProvider As Global.System.IServiceProvider)
|
|
MyBase.New(factory, serviceProvider, "AddIn", "ThisAddIn")
|
|
Globals.Factory = factory
|
|
End Sub
|
|
|
|
'''
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "16.0.0.0"), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)> _
|
|
Protected Overrides Sub Initialize()
|
|
MyBase.Initialize()
|
|
Me.Application = Me.GetHostItem(Of Microsoft.Office.Interop.Word.Application)(GetType(Microsoft.Office.Interop.Word.Application), "Application")
|
|
Globals.ThisAddIn = Me
|
|
Global.System.Windows.Forms.Application.EnableVisualStyles()
|
|
Me.InitializeCachedData()
|
|
Me.InitializeControls()
|
|
Me.InitializeComponents()
|
|
Me.InitializeData()
|
|
End Sub
|
|
|
|
'''
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "16.0.0.0"), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)> _
|
|
Protected Overrides Sub FinishInitialization()
|
|
Me.OnStartup()
|
|
End Sub
|
|
|
|
'''
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "16.0.0.0"), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)> _
|
|
Protected Overrides Sub InitializeDataBindings()
|
|
Me.BeginInitialization()
|
|
Me.BindToData()
|
|
Me.EndInitialization()
|
|
End Sub
|
|
|
|
'''
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "16.0.0.0"), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)> _
|
|
Private Sub InitializeCachedData()
|
|
If (Me.DataHost Is Nothing) Then
|
|
Return
|
|
End If
|
|
If Me.DataHost.IsCacheInitialized Then
|
|
Me.DataHost.FillCachedData(Me)
|
|
End If
|
|
End Sub
|
|
|
|
'''
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "16.0.0.0"), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)> _
|
|
Private Sub InitializeData()
|
|
End Sub
|
|
|
|
'''
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "16.0.0.0"), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)> _
|
|
Private Sub BindToData()
|
|
End Sub
|
|
|
|
'''
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
|
Private Sub StartCaching(ByVal MemberName As String)
|
|
Me.DataHost.StartCaching(Me, MemberName)
|
|
End Sub
|
|
|
|
'''
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
|
Private Sub StopCaching(ByVal MemberName As String)
|
|
Me.DataHost.StopCaching(Me, MemberName)
|
|
End Sub
|
|
|
|
'''
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
|
Private Function IsCached(ByVal MemberName As String) As Boolean
|
|
Return Me.DataHost.IsCached(Me, MemberName)
|
|
End Function
|
|
|
|
'''
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "16.0.0.0"), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)> _
|
|
Private Sub BeginInitialization()
|
|
Me.BeginInit()
|
|
Me.CustomTaskPanes.BeginInit()
|
|
Me.VstoSmartTags.BeginInit()
|
|
End Sub
|
|
|
|
'''
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "16.0.0.0"), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)> _
|
|
Private Sub EndInitialization()
|
|
Me.VstoSmartTags.EndInit()
|
|
Me.CustomTaskPanes.EndInit()
|
|
Me.EndInit()
|
|
End Sub
|
|
|
|
'''
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "16.0.0.0"), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)> _
|
|
Private Sub InitializeControls()
|
|
Me.CustomTaskPanes = Globals.Factory.CreateCustomTaskPaneCollection(Nothing, Nothing, "CustomTaskPanes", "CustomTaskPanes", Me)
|
|
Me.VstoSmartTags = Globals.Factory.CreateSmartTagCollection(Nothing, Nothing, "VstoSmartTags", "VstoSmartTags", Me)
|
|
End Sub
|
|
|
|
'''
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "16.0.0.0"), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)> _
|
|
Private Sub InitializeComponents()
|
|
End Sub
|
|
|
|
'''
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
|
Private Function NeedsFill(ByVal MemberName As String) As Boolean
|
|
Return Me.DataHost.NeedsFill(Me, MemberName)
|
|
End Function
|
|
|
|
'''
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "16.0.0.0"), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Never)> _
|
|
Protected Overrides Sub OnShutdown()
|
|
Me.VstoSmartTags.Dispose()
|
|
Me.CustomTaskPanes.Dispose()
|
|
MyBase.OnShutdown()
|
|
End Sub
|
|
End Class
|
|
|
|
'''
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "16.0.0.0")> _
|
|
Partial Friend NotInheritable Class Globals
|
|
|
|
'''
|
|
Private Sub New()
|
|
MyBase.New()
|
|
End Sub
|
|
|
|
Private Shared _ThisAddIn As ThisAddIn
|
|
|
|
Private Shared _factory As Global.Microsoft.Office.Tools.Word.ApplicationFactory
|
|
|
|
Private Shared _ThisRibbonCollection As ThisRibbonCollection
|
|
|
|
Friend Shared Property ThisAddIn() As ThisAddIn
|
|
Get
|
|
Return _ThisAddIn
|
|
End Get
|
|
Set(ByVal value As ThisAddIn)
|
|
If (_ThisAddIn Is Nothing) Then
|
|
_ThisAddIn = value
|
|
Else
|
|
Throw New System.NotSupportedException()
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Friend Shared Property Factory() As Global.Microsoft.Office.Tools.Word.ApplicationFactory
|
|
Get
|
|
Return _factory
|
|
End Get
|
|
Set(ByVal value As Global.Microsoft.Office.Tools.Word.ApplicationFactory)
|
|
If (_factory Is Nothing) Then
|
|
_factory = value
|
|
Else
|
|
Throw New System.NotSupportedException()
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Friend Shared ReadOnly Property Ribbons() As ThisRibbonCollection
|
|
Get
|
|
If (_ThisRibbonCollection Is Nothing) Then
|
|
_ThisRibbonCollection = New ThisRibbonCollection(_factory.GetRibbonFactory)
|
|
End If
|
|
Return _ThisRibbonCollection
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
'''
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Tools.Office.ProgrammingModel.dll", "16.0.0.0")> _
|
|
Partial Friend NotInheritable Class ThisRibbonCollection
|
|
Inherits Microsoft.Office.Tools.Ribbon.RibbonCollectionBase
|
|
|
|
'''
|
|
Friend Sub New(ByVal factory As Global.Microsoft.Office.Tools.Ribbon.RibbonFactory)
|
|
MyBase.New(factory)
|
|
End Sub
|
|
End Class
|