我正在尝试使用IMANEXTLib中的ImportCmd将Word文档保存到iManage中,每次我运行它时都会得到一个新的Word实例。
我已经将文档保存到doc1.doc,然后:
'Connects to WorkSite
Dim dmsConnection As IManage.IManDMS = New IManage.ManDMSClass()
dmsConnection.ApplicationName = "My Application"
Dim sesCobbDms As IManage.IManSession = dmsConnection.Sessions.Add("DMS")
sesCobbDms.TrustedLogin()
'Initialisation
Dim hwndWord As Integer
Dim strTempCaption As String = Application.Caption
Application.Caption = "Hunting For Word"
hwndWord = MyApi.FindWindow("OpusApp", Application.Caption)
Application.Caption = strTempCaption
Dim intKeepCheckedOut As Integer
Dim docJustSaved As IManage.NRTDocument
Dim objImportCmd As IMANEXTLib.ImportCmd
Dim objContextItems As New IMANEXTLib.ContextItems
'Sets up ContextItems ready for save process
objContextItems.Add("ParentWindow", hwndWord)
objContextItems.Add("DestinationObject", sesCobbDms)
objContextItems.Add("IManExt.Import.FileName", NrPort & "\Doc1.doc")
'Note that we have to check it in and then back out again, otherwise it checks out to the wrong place
intKeepCheckedOut = IManage.CheckinOptions.nrDontKeepCheckedOut
objContextItems.Add("IManExt.Import.KeepCheckedOut", intKeepCheckedOut)
'Forces a blank description
objContextItems.Add("ImanExt.Import.DocDescription", "")
objImportCmd = New IMANEXTLib.ImportCmd
objImportCmd.Initialize(objContextItems)
objImportCmd.Update()
If objImportCmd.Status = IMANEXTLib.CommandStatus.nrActiveCommand Then
'Imports the document, throwing a Save As screen at the user
objImportCmd.Execute()在这一点上,我得到了一个新的Word实例,在我保存的那个实例之上(即,在应用程序之上)。怎么回事?
发布于 2009-04-14 14:32:49
为了提供一个解决方案,我注意到这个问题只发生在一个用户帐户(我的)下,然后我删除了我的用户配置文件。我的闪亮!新的!配置文件没有同样的问题。
发布于 2009-04-03 15:52:35
我希望这看起来不像是推卸责任,但我会联系Interwoven supprot (或者这个月买下它们的人)。
发布于 2018-05-21 06:56:50
您可以尝试使用iManage以外的save命令。为了进行测试,您可以创建一个word演示文档,然后尝试从MS WORD应用程序本身保存word文档,以检查哪个弹出窗口是可见的。如果文档以期望的正常行为保存,则意味着代码有问题,但如果再次打开一个新的word应用程序,则这是应用程序的问题。
您可以在MS WORD应用程序中使用iManage同时尝试Save As和local Save As。如果这两个命令都工作得很好,那么可以尝试在代码中使用另一个save命令。
https://stackoverflow.com/questions/714388
复制相似问题