Macro para incluir várias imagens em documento MS Word

Bom, que falta de inspiração!

Vamos ao que interessa.

Na Faculdade me deparei com um grande problema. As vezes estou lendo textos on line onde há imagens e fórmulas mas que não tem a opção de baixar para meu o computador. E o pior é que tenho um Tablet e gostaria muito de ler aquele texto no momento que estou ocioso, como por exemplo, a hora do almoço.

Pensando nisto, pesquisei na internet e achei alguns programas que podem ser usados para captura de telas e as mesmas são gravadas em uma pasta como imagem .JPEG. Até ai tudo bem, ficarei com aproximadamente 200 imagens que posso copiar para o Tablet e com qualquer leitor de imagem, posso ver a mesma.

Mas, estou querendo é mais que isto, quero que estas imagens sejam todas colocadas em um único arquivo de texto (e colocar 200 imagens só clicando em Inserir/Image/Do arquivo... não é fácil ), para depois acrescentar alguns comentários e após isto transformar todo o texto em PDF.

Com o texto em PDF, é só passar para o Tablet e ai posso ler minhas aulas tranquilamente.

Como não achei um software que o fizesse...

Para quem tem o MS Word instalado no computador eu tenho uma solução, estou desenvolvendo uma macro para esse fim. Que a mesma faça a leitura das imagens que estão em uma determinada pasta em meu computador incluindo-as no Documento do MS Word e logo após fazermos o comentário que se achar necessário, é só usar um programa que transforme o Documento MS Word em PDF.

OBS.: Ainda estou melhorando a mesma. O que me falta é tempo para a inspiração, mas até aqui já resolve muita coisa.

Veja abaixo a Macro.

Attribute VB_Name = "NewMacros"

'Autor: Acilon J Santos

'Data: 8/6/2013

'Versão: Beta

Sub testeimagem()

Attribute testeacilon.VB_Description = "Macro gravada 5/8/2013 por Acilon J Santos"

Attribute testeacilon.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.testeimagem"

'

' testeimagem Macro

' Macro gravada 5/6/2013 por Acilon J Santos

'

Dim I As Integer

Dim strI As String

Dim strFile1 As String

Dim strFile2 As String

Dim strCaminho As String

Dim Message, Title, Default, MyValue

'

'Local onde esta gravado as imagens

'

strFile1 = "E:\PrintScreen Files\ScreenShot" 

strFile2 = ".bmp"

' Lê a quantidade de figuras a ser inserida

' no documento ativo.

Message = "Digite a quantidade de imagens"    ' Define o aviso.

Title = "Quantidade de Imagens"               ' Define o título.

Default = "1"    ' Define o padrão.

' Exibe a mensagem, o título e o valor padrão.

MyValue = InputBox(Message, Title, Padrão)

For I = 1 To MyValue

   strI = strFile1 + Trim(CStr(I)) + strFile2

   If I <= 9 Then

        strI = strFile1 + "00" + Trim(CStr(I)) + strFile2

    Else

    If I <= 99 Then

        strI = strFile1 + "0" + Trim(CStr(I)) + strFile2

    Else

        strI = strFile1 + Trim(CStr(I)) + strFile2

    End If

   End If

  

    Selection.InlineShapes.AddPicture FileName:= _

        strI, LinkToFile:=False, _

        SaveWithDocument:=True

    'Windows("Doc1.doc").Activate

    Windows("Documento1").Activate

    Application.WindowState = wdWindowStateNormal

    Application.WindowState = wdWindowStateMinimize

    'Windows("Doc1.doc").Activate

    Windows("Documento1").Activate

    Application.WindowState = wdWindowStateNormal

Next I

FimDoProcesso:

Dim Msg, Style

Msg = "Processo concluido"                ' Define a mensagem.

Style = vbOK + vbInformation + vbOKOnly   ' Define os botões.

Title = "Inclusão de imagens"             ' Define o título.

MsgBox Msg, Style, Title

End Sub

Esta publicação dedico aos amigos da EAD da Estácio de Sá.

Pessoal em caso de dúvidas e sugestões, favor postar comentários. Valeu!