I was getting confused with all these apprentice thing. (what is that?)
try this
Close idw, then change the ipt name (from 123.ipt to 123a.ipt) then open up idw again, it will prompt locate 123.ipt select 123REVA.ipt. This should work.
Jis
The command you are looking for I believe is:
dim oDoc as DrawingDocument
Set oDoc = ThisApplication.ActiveDocument 'provided your active document is an .idw
Call oDoc.Sheets(1).DrawingViews(1).ReferencedDocumentDescriptor.ReferencedFileDescriptor.ReplaceReference("C:\Path\Part.ipt") 'set the sheet number to the page and the drawing view number to the base view (typically 1)