하위 manulrelink()
파일 경로 = "e:\disegni\progetti"
파일명 = "traverso"
fileext = "asm"을
오류는 다음을 다시 시작합니다.
설정 rmapp = getobject (, "revisionmanager.application")
rmapp이 아무것도 없다면
오류 goto 0
설정 rmapp = createobject("revisionmanager.application")
끝 면
rmdft = rmapp.open (파일 경로 & "" & filename & ".dft")
이름:
'per i dft senza 3d : mettere un controllo
' rmdft.linkeddocuments.count >' rmdft.linkeddocuments.count 0 댓글
설정 rm3d = rmdft.linkeddocuments.item(1)
rm3d_filename = rm3d.전체명
'' 파스 - 파싱
테스트 = rm3d_filename
'pos = instrrev (testo, ".")
' parsearg = 트림 (mid (testo, pos + 1, 3))
' fileext = 파서
fileext = "asm" '소프러스비
rm3d.replace (파일이름 & "." & fileext)
rmdft.savealllinks의 특징
끝 이하