Word inserir imagem no word em sequencia

[lavikix]

bom, preciso adicionar no word uma sequencia de imagem, preciso criar uma sequencia que ele entende, exemplo, eu tenho 100 fotos na pasta, as imagens estão numeradas, 0001 até 0100, a sequencia e assim, 0001 - 0004 - 0003 - 0002, depois 0005 - 0008 - 0007 - 0006 assim até chegar na 0100. como posso fazer isso no word?

[Victor Comparini]

Olá

 

Tente utilizar essa macro no word:

 

Não esqueça de trocar o local do arquivo e o formato

Sub AddArquivos()
'Código desenvolvido por: Vics


Dim localArquivo As String
Dim arquivo As String
Dim formato As String

    localArquivo = "SEU LOCAL" 'local do seu arquivo Exemplo: C:\Users\Usuario\Desktop\
    formato = ".png" 'formato dos arquivos
    
    arquivo = 1
    arquivo = Format(arquivo, "0000")

    Do While arquivo <= 100
            Selection.InlineShapes.AddPicture FileName:=localArquivo & arquivo & formato, _
                LinkToFile:=False, SaveWithDocument:=True
        arquivo = arquivo + 3
        arquivo = Format(arquivo, "0000")
            Selection.InlineShapes.AddPicture FileName:=localArquivo & arquivo & formato, _
                LinkToFile:=False, SaveWithDocument:=True
                arquivo = arquivo - 1
                arquivo = Format(arquivo, "0000")
            Selection.InlineShapes.AddPicture FileName:=localArquivo & arquivo & formato, _
                LinkToFile:=False, SaveWithDocument:=True
                arquivo = arquivo - 1
                arquivo = Format(arquivo, "0000")
            Selection.InlineShapes.AddPicture FileName:=localArquivo & arquivo & formato, _
                LinkToFile:=False, SaveWithDocument:=True
        arquivo = arquivo + 3
        arquivo = Format(arquivo, "0000")
    Loop

End Sub

Espero ter ajudado,

Qualquer dúvida estou a disposição.

[Midori]

Pelo menu do Word dá para adicionar, mas pode haver casos em que uma imagem fica ao lado da outra dependendo do tamanho. Se quiser evitar isso esta macro vai ajudar.

 

Você tem que alterar para o caminho da pasta correta que neste caso está em "C:\IMAGENS".

 

E se a imagem for em outro formato é só substituir ".jpg" pelo correto.

 

Sub AdicionarImagens()
    Dim I       As Integer
    Dim Imagem  As String
    
    For I = 1 To 100
        Imagem = Format(I, "0000") & ".jpg"
        Selection.InlineShapes.AddPicture "C:\IMAGENS\" & Imagem
        Selection.TypeParagraph
    Next I
End Sub

 

[lavikix]

Em 13/04/2020 às 20:00, Vics disse:

Olá

 

Tente utilizar essa macro no word:

 

Não esqueça de trocar o local do arquivo e o formato

Sub AddArquivos()
'Código desenvolvido por: Vics


Dim localArquivo As String
Dim arquivo As String
Dim formato As String

    localArquivo = "SEU LOCAL" 'local do seu arquivo Exemplo: C:\Users\Usuario\Desktop\
    formato = ".png" 'formato dos arquivos
    
    arquivo = 1
    arquivo = Format(arquivo, "0000")

    Do While arquivo <= 100
            Selection.InlineShapes.AddPicture FileName:=localArquivo & arquivo & formato, _
                LinkToFile:=False, SaveWithDocument:=True
        arquivo = arquivo + 3
        arquivo = Format(arquivo, "0000")
            Selection.InlineShapes.AddPicture FileName:=localArquivo & arquivo & formato, _
                LinkToFile:=False, SaveWithDocument:=True
                arquivo = arquivo - 1
                arquivo = Format(arquivo, "0000")
            Selection.InlineShapes.AddPicture FileName:=localArquivo & arquivo & formato, _
                LinkToFile:=False, SaveWithDocument:=True
                arquivo = arquivo - 1
                arquivo = Format(arquivo, "0000")
            Selection.InlineShapes.AddPicture FileName:=localArquivo & arquivo & formato, _
                LinkToFile:=False, SaveWithDocument:=True
        arquivo = arquivo + 3
        arquivo = Format(arquivo, "0000")
    Loop

End Sub

Espero ter ajudado,

Qualquer dúvida estou a disposição.

Pow show de bola.. funcionou perfeitamente no que precisava. só uma coisa consigo coloca para ele buscar em .png e .jpg? fora está perfeito. obrigado por ajudar.

adicionado 1 minuto depois

Em 13/04/2020 às 20:34, Midori disse:

Pelo menu do Word dá para adicionar, mas pode haver casos em que uma imagem fica ao lado da outra dependendo do tamanho. Se quiser evitar isso esta macro vai ajudar.

 

Você tem que alterar para o caminho da pasta correta que neste caso está em "C:\IMAGENS".

 

E se a imagem for em outro formato é só substituir ".jpg" pelo correto.

 

Sub AdicionarImagens()
    Dim I       As Integer
    Dim Imagem  As String
    
    For I = 1 To 100
        Imagem = Format(I, "0000") & ".jpg"
        Selection.InlineShapes.AddPicture "C:\IMAGENS\" & Imagem
        Selection.TypeParagraph
    Next I
End Sub

 

Neste caso, ele iria busca a imagem na seguencia e não ficaria conforme preciso. mais irei guarda essa macro. obrigado por ajudar.

[Victor Comparini]

 

23 horas atrás, lavikix disse:

Pow show de bola.. funcionou perfeitamente no que precisava. só uma coisa consigo coloca para ele buscar em .png e .jpg? fora está perfeito. obrigado por ajudar.

 

Olá, consgue sim.

altera essa linha no código

 

formato = ".png" 'formato dos arquivos

para

formato = ."jpg" 'formato dos arquivos