Reply

RedefineLinks

[ Edited ]

I'm having trouble with RedefineLinks. This is what I have:

 

Private Sub RMRepairLinks(ByVal sPart As String, ByVal sFrom As String, ByVal sTo As String)

    oRM = New RevisionManager.Application

    oRM.RedefineLinks(sFrom, sTo, sPart, , False, True, True, True, True, True, True, , )

End Sub

 

Please Help.

 

 

Posted by: Terry Tyson
Post date: 11/5/2010 5:25:35 AM

1 REPLY

RE: RedefineLinks

[ Edited ]

Hi Terry, Please refer given below code.

 

It might help you.

 

 

Private Sub RMRepairLinks(ByVal sPart As String, ByVal sFrom As String, ByVal sTo As String)

 

 

Dim ObjRevMan As RevisionManager.Application

Dim LogFilePath As Object

LogFilePath = "C:\"

Dim SummaryFilePath As Object

SummaryFilePath = "C:\"

Dim arrspart(0) As String

arrspart(0) = sPart

ObjRevMan = New RevisionManager.Application

ObjRevMan.RedefineLinks(sFrom, sTo, arrspart, , False, True, True, True, True, False, False, LogFilePath, SummaryFilePath)

ObjRevMan.Quit()

 

End Sub

 

 

 

Thanks,

Ritesh Patil

 

Posted by: r r
Post date: 11/9/2010 1:22:55 AM