Word Apagar ou colar desenhos no word via VBA

[Vinicius Passsos]

Olá pessoal, 

 

A situação é aparentemente simples: 

 

Suponha que eu tenha um arquivo com estas 3 imagens, como o anexo. Como eu faço via VBA para apagá-las do word.

 

Sendo mais específico: Eu quero poder, dependendo das condições do VBA, apagar a figura correspondente: 

por exemplo

 

se a=1 apagar a imagem 1

se a=2 apagar a imagem 2

se a=3 apagar a imagem 3

 

Será que vocês conseguem me ajudar nisso?

 

 

O caminho inverso também serve:

 

se a = 1 cola a imagem 1

se a = 2 cola a imagem 2

se a = 3 cola a imagem 3

-------esse caminho é ainda melhor e mais adequado embora pareça ser o mais difícil

 

Qualquer ajuda serei grato

 

 

 

 

 

teste forum.docx

[Basole]

Segue exemplo 

 

Sub Remove_Especifica_imagem()
    Dim Pic     As InlineShape
    Dim a       As String
    Dim num     As String
    Dim divList As Variant
    Dim ttImg   As String
    
    ttImg = ActiveDocument.InlineShapes.Count
    
    num = vba.InputBox("informe o numero da imagem que quer deletar", "Removendo Imagens", "De 1 a " & ttImg)
    
    If num = "" Then Exit Sub
    
    For Each Pic In ActiveDocument.InlineShapes
        
        divList = VBA.Split(Pic.AlternativeText, "\")
        a = divList(UBound(divList, 1))
        If Vba.InStr(a, num) > 0 Then
            Pic.Delete
        End If
        
    Next Pic
    
End Sub