Imports Word
Private m_Word As Word.ApplicationClass

' Parameters: isVisible - Set as True or False
    Public Sub StartWord( ByVal isVisible As Boolean)
        m_Word = New Word.Application
        m_Word.Visible = isVisible
    End Sub

Public Sub OpenDocument( _
        ByVal documentName As String, _
        ByVal openReadOnly As Boolean)
 
        m_Word.Documents.Open( _
            FileName:=documentName.ToString, _
            ReadOnly:=CType(openReadOnly, Boolean))
    End Sub

 Public Property ActiveDocument() As String
        Get
            Return m_Word.ActiveDocument.Name
        End Get
        Set(ByVal Value As String)
            m_Word.Application.Documents.Item(Value).Activate()
            m_Word.ActiveDocument.Activate()
        End Set
    End Property