Attribute VB_Name = "DocID"
Dim DocNumber, DocName, DocVer, ClientNum, MatterNum, TextString As String
Public iManEvtObj As iManEvt
'
'   This Project References the Following:
'
'      IManEXT 1.0 Type Library         (IManExt.dll)
'      IMan 2.0 Type Library            (IManage.dll)
'      IManage Office 2000 Integration  (IManOXP.dll)
'
'   See the AutoExec Subroutine in Main for Instantiation
'
'Sub Autoexec()
'
'    '
'    '   Section for iManage Object Instantiation
'    '
'    '   Set the iManage COM AddIn for Word
'    Dim objCOMAddIn As Object
'    Set objCOMAddIn = _
'            Application.COMAddIns("iManO2K.AddinForWord2000").Object
'
'    ' Instantiate the COM  object.
'    Set iManEvtObj = New iManEvt
'    iManEvtObj.InstIManCom objCOMAddIn
'
'End Sub


Public Sub GetIManageInfo(iManDoc As iManage.NRTDocument)
    On Error Resume Next
    DocNumber = iManDoc.GetAttributeByID(nrDocNum)
    DocVer = iManDoc.GetAttributeByID(nrVersion)
    ClientNum = iManDoc.GetAttributeByID(nrCustom1)
    MatterNum = iManDoc.GetAttributeByID(nrCustom2)
    TextString = CStr(DocNumber) & "." & CStr(DocVer)
'    MsgBox "DocNumber=" & DocNumber & vbCrLf & "DocVer=" & DocVer & vbCrLf & "ClientNum=" & ClientNum & vbCrLf & "MatterNum=" & MatterNum & vbCrLf & "TextString=" & TextString
    Word.ActiveDocument.CustomDocumentProperties.Add Name:="WTXDocID", LinkToContent:=False, Value:="", Type:=msoPropertyTypeString
    Word.ActiveDocument.CustomDocumentProperties("WTXDocID").Value = TextString
    If ClientNum <> "" Then
        Word.ActiveDocument.CustomDocumentProperties.Add Name:="WTXMatterID", LinkToContent:=False, Value:="", Type:=msoPropertyTypeString
        If Len(MatterNum) > 0 Then
            Word.ActiveDocument.CustomDocumentProperties("WTXMatterID").Value = ClientNum & "-" & MatterNum
        Else
            Word.ActiveDocument.CustomDocumentProperties("WTXMatterID").Value = ClientNum
        End If
    Else
        Word.ActiveDocument.CustomDocumentProperties("WTXMatterID").Value = ""
    End If
End Sub
Public Sub LoadInfo()
    Dim objDocument As iManage.NRTDocument
    If iManEvtObj Is Nothing Then
        Dim objCOMAddIn As Object
        ' Set the iManage COM AddIn for Word 2K
        Set objCOMAddIn = _
                Application.COMAddIns("iManO2K.AddinForWord2000").Object
        
        ' Instantiate the COM  object.
        Set iManEvtObj = New iManEvt
        iManEvtObj.InstIManCom objCOMAddIn
    End If
    Set objDocument = iManEvtObj.evtIManExt.GetDocumentFromPath(ActiveDocument.FullName)
    If Not objDocument Is Nothing Then
        GetIManageInfo objDocument
    End If
End Sub
Public Sub UpdateDOCID()
    On Error Resume Next
    Dim aMark As Variant
    Dim Cursor As Range
    Set Cursor = Selection.Range
    For Each aMark In ActiveDocument.Bookmarks
        If InStr(aMark.Name, "WTX_DocNumFoot") > 0 Then
            aMark.Select
            Selection.Fields.Update
        End If
    Next
    While ActiveWindow.Panes.Count > 1
        ActiveWindow.ActivePane.Close
    Wend
    Cursor.Select

End Sub