0

我正在尝试使用 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 实例，位于我从中保存的那个之上（即，在 Application 之上）。是什么赋予了？

4

3 回答 3

1

只是为了提供解决方案，我注意到问题仅发生在一个用户帐户（我的）下，然后我删除了我的用户配置文件。我的闪亮！新的！profile 没有同样的问题。

于 2009-04-14T14:32:48.940 回答
0

我希望这看起来不像是逃避，但我会联系 Interwoven 支持（或本月将其买断的任何人）。

于 2009-04-03T15:52:34.687 回答
0

您可以尝试使用saveiManage 以外的命令。为了进行测试，您可以创建一个演示 word 文档，然后尝试从MS WORD应用程序本身保存 word 文档，以检查哪个弹出窗口可见。如果文档以所需的正常行为保存，则表示您的代码存在问题，但如果再次打开新单词应用程序，则说明您的应用程序存在问题。

您可以尝试两者Save As并local Save As在应用程序中使用 iManage MS WORD。如果两者都可以正常工作，请尝试在您的代码中使用替代save命令。

于 2018-05-20T22:56:49.580 回答