Exposing vb.net procedures

[John]

Hi

How can I expose procedures (function or sub) in my vb.net app to vba in
word?

Thanks

Regards

 

[Herfried K. Wagner [MVP]]

How can I expose procedures (function or sub) in my vb.net app to vba in
word?

Please do not make excessive use of X-posts.

You can make classes and methods visible to COM and use the DLL within
your VBA application. You will find a sample for using a .NET DLL from
within VB6 here:

<http://www.mvps.org/dotnet/dotnet/samples/codingtechnique/downloads/MyComLib.zip>

 

[Jonathan West]

Hi John,

The VB.NET project must be saved as an ActiveX DLL. Then you can access the
DLL either by setting a reference in Tools References in the VBA editor, or
by using late binding, and creating an object variable with the reference
using the CreateObject command.

 

[John]

Hi

How do I save the vb.net app as activex dll? Is activex dll supported in
..net apps?

Thanks

Regards

 

[Armin Zingler]

Hi

How do I save the vb.net app as activex dll? Is activex dll supported
in .net apps?

See Herfried's link. See also the Framework documentation:
http://msdn.microsoft.com/library/en-us/cpguide/html/cpconexposingnetframeworkcomponentstocom.asp

See also the VB.NET documentation:
http://msdn.microsoft.com/library/en-us/vbcn7/html/vaconCOMInteroperability.asp

 

[Frank Oquendo]

See also the VB.NET documentation:

http://msdn.microsoft.com/library/en-us/vbcn7/html/vaconCOMInteroperability.asp

I never did like the ComClass attribute. I prefer the absolute control
of ComVisible, ProgId, Guid and ClassInterfaceType in conjunction with
interfaces.

--
There are 10 kinds of people. Those who understand binary and those who
don't.

http://code.acadx.com
(Pull the pin to reply)

 

[John]

OK, I am slowly trying to get the hang of things. At the bottom is what I
have come with as something I can call from Word VBA. When I build it I get
two files one dll and other tlb. Can I just add these to references in Word
and start using or do I need to do something else before that?

Thanks

Regards

Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices

<Assembly: AssemblyKeyFile("C:\Events
Manager\Contacts\EventHelper\EventHelper\EventHelper.snk")>

Namespace MyCompany.EventHelper

Public Interface IEventHelper
Event WordDocSaved(ByRef Doc As Object)
Event WordDocPrinted(ByRef Doc As Object)
Function Instance() As IEventHelper
Sub RaiseWordDocSaved(ByRef Doc As Object)
Sub RaiseWordDocPrinted(ByRef Doc As Object)
End Interface

<ClassInterface(ClassInterfaceType.None)> _
Public Class EventHelper
Implements IEventHelper
Public Event WordDocSaved(ByRef Doc As Object) Implements
IEventHelper.WordDocSaved
Public Event WordDocPrinted(ByRef Doc As Object) Implements
IEventHelper.WordDocPrinted
Private Shared _Instance As EventHelper

Public Function Instance() As IEventHelper Implements IEventHelper.Instance
If (_Instance Is Nothing) Then
SyncLock GetType(EventHelper)
If (_Instance Is Nothing) Then
_Instance = New EventHelper
End If
End SyncLock
End If
Return _Instance
End Function

Public Sub RaiseWordDocSaved(ByRef Doc As Object) Implements
IEventHelper.RaiseWordDocSaved
RaiseEvent WordDocSaved(Doc)
End Sub

Public Sub RaiseWordDocPrinted(ByRef Doc As Object) Implements
IEventHelper.RaiseWordDocPrinted
RaiseEvent WordDocPrinted(Doc)
End Sub

End Class
End Namespace