Atualizando caminhos de link com o Word VBA

Question

Eu tenho os seguintes links para o Excel em um documento do Word:

Aquestãoéque,quandomudançassãofeitas,aversãododocumentoéreferenciadatantonaplanilhadoexcelreferenciadaquantonodocumentodoword.

Comotal,precisareiatualizarocaminhodolink.

EugostariadefazerissocomumamacroVBAeaquiestáoqueeutenhoatéagora:

SubReplace_Link()DimiShpAsInlineShapeDimexWbAsExcel.WorkbookForEachiShpInActiveDocument.InlineShapesWithActiveDocumentSetexWb=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

Estou recebendo um 'Tipo definido pelo usuário não definido' para o 'Dim exWb As Excel.Workbook'. Também tenho certeza de que precisarei de mais código para incluir os links do tipo 'Planilha' que não podem ser atualizados com o comando 'inlineShape'.

Isso é algo que alguém pode ajudar? TIA

    

Answer 1

Você adicionou uma referência em seu projeto do VBA à "Biblioteca de objetos do Microsoft Excel 14.0"? (NB: O 14.0 pode ser diferente dependendo de qual versão do Excel você instalou)

Na sua janela do VBA, no menu Ferramentas, selecione Referências para abrir a caixa de diálogo Referências - Projeto. Em seguida, role para baixo na lista e procure pela biblioteca do Microsoft Excel e marque a caixa (ela deve aparecer no topo da sua lista de referências).