Simple question: Insert DocsOpen doc number?

OrphanAnnie23 · Jul 1, 2005

Sorry to bother you with a simple question, but -- How can I insert a Docs Open file number (not the entire ODMA path, just the assigned file number, without version number) into a Word Doc? Word's autotext will insert the entire ODMA file path with number, but that's not acceptable to my admin people. Macros aren't enabled on our network, altho I might get a dispensation in this case if anyone has a macro we could use. I just don't know how to capture that info.

Using Docs Open 4.0.0 build 61, Windows NT, Word 2002 and Citrix.

Thanks for any suggestions or referrals.

sritzel · Jul 1, 2005

Try inserting this code into your NewMacros Module:

Code:

Option Explicit
Private Declare Function DOCSGetProfileInfo Lib "DOCSAP32" (ByVal openFileID$, ByVal item$, ByVal itemBuffer$, ByVal bufferLen As Integer) As Long

'=======================================================================
' Macro to insert Docs Number only
'=======================================================================
Sub InsertDocNumber()
   
   Dim DocNumber$
   Dim openfilename$
   
   openfilename$ = ActiveDocument.FullName
   
   DocNumber$ = GetProfileInfo$(openfilename$, "DOCNUMBER")
   
   Selection.TypeText DocNumber$

End Sub

Public Function GetProfileInfo$(openFileID$, item$)
    Dim itemBuffer As String
    Dim rc As Integer
    itemBuffer = String(512, " ")
    
    rc = DOCSGetProfileInfo(openFileID$, item$, itemBuffer, 512)

    If rc = 0 Then
        itemBuffer$ = ""
    End If
    itemBuffer$ = Trim(itemBuffer$)
    GetProfileInfo$ = Mid(itemBuffer$, 1, Len(itemBuffer$) - 1)
End Function

Let me know if it works!!!

OrphanAnnie23 · Jul 5, 2005

Dear sritzel:

Thanks. My attempted solutions all depended on using an existing Word field, converting to text and then editing the text. Yours is much cleaner and more elegant, and works beautifully.

Would it be pushing if I asked if you could give me code to recover the version number also? I'm only just learning to "read" VBA (the hard way) and don't know where to find the name of that property to call in the macro.

Either way, thanks again -- that was a big help!

sritzel · Jul 5, 2005

The version might be a bit trickier. We were extracting ours from the full path of the document. Here's how we're doing it:

Code:

Dim Version$

...

Version$ = Trim(Str(Val(Mid(path$, InStr(1, path$, ".") - 3, 2))))

Let me know if that works.

-Steve

OrphanAnnie23 · Jul 5, 2005

Thanks!

This is a really challenging way to learn VB....

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Simple question: Insert DocsOpen doc number?

OrphanAnnie23

Technical User

sritzel

Programmer

OrphanAnnie23

Technical User

sritzel

Programmer

OrphanAnnie23

Technical User

Similar threads

Part and Inventory Search

Sponsor