☰

Atualizando caminhos de link com Word VBA

tag-icon • tag-icon microsoft-excel microsoft-word microsoft-excel-2007 vba
Atualizando caminhos de link com Word VBA

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

http://i12.photobucket.com/albums/a212/hypersonik/links_zpsy9hghggl.png

O problema é que, quando são feitas alterações, a versão do documento na planilha Excel referenciada e no documento do Word muda.

Como tal, precisarei atualizar o caminho do link.

Eu gostaria de fazer isso com uma macro VBA e aqui está o que tenho até agora:

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

Estou recebendo um 'Tipo definido pelo usuário não definido' para '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'.

Alguém pode ajudar com isso? TIA

Responder1

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

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

informação relacionada