Сохранение в iManage с VBA
Я пытаюсь найти образец VBA для сохранения файла Excel в iManage. У меня есть код, который позволяет мне загрузить документ, но я не знаю, есть ли что-то подобное для сохранения в рабочей области.
Файл Excel будет иметь ссылку на рабочую область, например, 123456/0001, и поэтому код макроса будет смотреть на это и затем сохранять в рабочей области с этим номером клиента / материи.
Код для взаимодействия с iManage находится здесь:
Private Sub DownloadDoc()
Dim dmsRoot As IManDMS
Dim dmsSession As IManSession
Dim dmsDatabase As IManDatabase
Dim doc As IManDocument
Dim tempDocName As String
Const ServerName As String = "MYSERVER"
Const DatabaseName As String = "MYDATABASE"
Const DocNumToFind = 7487741
Const DocVerToFind = 1
tempDocName = "C:\temp\mydoc.docx"
Set dmsRoot = New ManDMS
Set dmsSession = dmsRoot.Sessions.Add(ServerName)
dmsSession.TrustedLogin
Set dmsDatabase = dmsSession.Databases.ItemByName(DatabaseName)
Set doc = dmsDatabase.GetDocument(DocNumToFind, DocVerToFind)
doc.GetCopy tempDocName, imGetCopyOptions.imNativeFormat
End Sub
Я сознаю, что на самом деле у меня совсем немного кода, поэтому даже пару указателей / методов и т. Д., На которые я могу пойти и исследовать еще кое-что, будет оценено.