Testing for a worksite document

Hello,

I need to write VB code to test if the current document in Word is saved to WorkSite, as opposed to the user's c drive. Anyone have some sample code?

Thanks

Find more posts tagged with

Comments

guido1

Something like the following should do it:

 
Public Function IsProfiledInWorksite(Doc as Word.Document)

Dim wordApp as Word.Applicattion
set wordApp= Doc.Parent

Dim ext as Object ' or IManO2k.iManageExtensibility, if relevant library is referenced
set ext=wordApp.COMAddins("iManO2k.AddinForWord2000").Object

IsProfiledInWorksite = (Not (ext.GetDocumentFromPath(Doc.FullName) Is Nothing)
set ext=nothing
set wordApp=nothing

end Function

Briefly, you need to fetch a pointer to the iManageExtensibility object that's exposed by the WorkSite COM addin. The GetDocumentFromPath method accepts a full path to a document as a parameter, and returns an NRTDocument object if the Word document is profiled in the database

EvDev

Works perfectly.

Thanks

EvDev

Okay, I spoke to soon. I also need to have this same code work in Excel and PowerPoint.

The code below works in Excel but when I move it over to VB6 it does nto give me the correct results.


Public Function IsProfiledInWorksite(Doc As Object) As Boolean
Dim wordApp As Object
Dim ext As iManO2K.iManageExtensibility ' if relevant library is referenced

Set wordApp = Excel.Application  ' Doc.Parent

Set ext = wordApp.COMAddIns("iManO2k.AddinForExcel2000").object

IsProfiledInWorksite = (Not (ext.GetDocumentFromPath(Doc.FullName) Is Nothing))
Set ext = Nothing
Set wordApp = Nothing
End Function

guido1

it's difficult to say where you might be going wrong, as you don't really say what problems you're seeing

outside of the integrated application's dev environment (i.e. the VBA IDE) I would expect the following to work:

 
Public function IsProfiled(byval OfficeDoc As object) As boolean

On Error Goto catch_err

IsProfiled = Not (mExt.GetDocumentfromPath(OfficeDoc .FullName) Is Nothing)

finally:
Exit function

catch_err:
IsProfiled = false
resume finally

End function

in the above code, mExt represents a class level variable that points to a valid instance of the integrated app's iManageExtensibility object. You would have to cast that appropriately from the iManageExtensibility.AddinForWord2000, iManageExtensibility.AddinForExcel2000, or iManageExtensibility.AddinForPowerPoint2000 COM addin instance, depending on which application is the context for the function call.

The OfficeDoc parameter can be declared as a late-bound parameter in VB as all Office apps' "document"-type object (i.e. Document in Word, Workbook in Excel, Presentation in PowerPoint) share the same property of FullName, which returns the full path and file name of the document.

If your code isn't working, maybe you haven't properly considered the above?