Apprentice Replace Reference Issues

[MechMachineMan]

Issue 1: 

           On the occasional run of my excel vba rule, after I open a file with apprentice, save it as a new name, and then try to  reassign it to modify iProps, it gives me an error. Looking in the debug window it shows the PropertySets as application error. Is there a better way to change Properties in a newly saved file in apprentice then to reopen it under the new file name, modify properties, and then flushing to file?

[frederic.vandenplas]

Hi,

A little bit of code would be nice to see where the problem may be.

[MechMachineMan]

Sorry about that, I was rushed at the end of the workday. Anyways, the code I've been using with varying success - sometimes it saves fine, others it doesn't, is pasted below.

I'm guessing I manage to confuse apprentice because I have more than one document opened/assigned to the same sharedapprentice As ApprenticeServerComponent, but can anyone confirm this?

ie; in the main sub

Set oParentDoc = sharedapprentice.Open("PARENTFILENAME.ipn")

Set oOldDoc = sharedapprentice.Open("FILENAME.iam")

Set oNewDoc = sharedapprentice.Open("FILENAME2.iam")

Call ReplaceRef(oOldDoc, oNewDoc, oParentDoc)

Sub ReplaceRef(oOldDoc As ApprenticeServerDocument, oNewDoc As ApprenticeServerDocument, Optional oParentDoc As ApprenticeServerDocument = vbNullString)
    
    Dim oWasReplaced As Boolean
    oWasReplaced = False
    'Replace ref in parent doc
    If Not oParentDoc Is Nothing Then
        Dim oDD As DocumentDescriptor
        For Each oDD In oParentDoc.ReferencedDocumentDescriptors
            If oDD.ReferencedFileDescriptor.FullFileName Like "*" & fso.GetBaseName(oOldDoc.FullFileName) & "." & fso.GetExtensionName(oOldDoc.FullFileName) Then
                On Error Resume Next
                oDD.ReferencedFileDescriptor.ReplaceReference (oNewDoc.FullFileName)
                If Err.Number <> 0 Then
                    MsgBox ("Error Found")
                End If
                On Error GoTo 0
                oWasReplaced = True
            End If
        Next
        
        With sharedapprentice.FileSaveAs
            Call .AddFileToSave(oParentDoc, oParentDoc.FullFileName)
            Call .ExecuteSave
        End With
        Call oParentDoc.Close
        Set oParentDoc = Nothing
        
    End If
    If oWasReplaced = False Then
        MsgBox ("Failed to Replace!")
    End If
        
End Sub