Word VBA를 사용하여 링크 경로 업데이트

Word 문서에서 Excel에 대한 다음 링크가 있습니다.

문제는 변경 될 때 엑셀 시트와 워드 문서의 문서 버전이 변경된다는 것입니다.

따라서 링크 경로를 업데이트해야합니다.

VBA 매크로를 사용하여이 작업을 수행하고 싶습니다. 여기에 지금까지 나와있는 작업이 있습니다.

Sub Replace_Link()
Dim iShp As InlineShape
Dim exWb As Excel.Workbook
For Each iShp In ActiveDocument.InlineShapes
With ActiveDocument
        Set exWb = objExcel.Workbooks.Open(.Path & "\" & Replace$(.Name, ".docm", ".xlsm"))
    End With
  With iShp
     If Not .OLEFormat Is Nothing Then
      If Split(.OLEFormat.ClassType)(0) = "Excel" Then
        .LinkFormat.SourcePath = exWb
  End If
End If
  End With
Next
End Sub

'사용자 정의 형식이 정의되지 않았습니다.'라는 메시지가 'Dim exWb As Excel.Workbook'에 나타납니다. 또한 'inlineShape'명령으로 업데이트 할 수없는 '워크 시트'유형 링크를 포함하려면 더 많은 코드가 필요할 것이라고 확신합니다.

누군가가 도울 수있는 뭔가인가? 티아

VBA 프로젝트에서 "Microsoft Excel 14.0 Object Library"에 대한 참조를 추가 했습니까? (주의 : 14.0은 설치 한 Excel의 버전에 따라 다를 수 있습니다.)

VBA 창의 도구 메뉴에서 참조를 선택하여 참조 - 프로젝트 대화 상자를 불러옵니다. 그런 다음 목록을 아래로 스크롤하고 Microsoft Excel 라이브러리를 찾은 다음 확인란을 선택합니다 (그러면 목록의 맨 위에 나타납니다).