Ajuda com VBA(word)

[Hecttor]

Ow galere então estou começando agora com vba e precisava da ajuda de vocês para o seguinte

eu preciso fazer um programa no word que:

-insira todas as fotos de uma pasta(que o usuario q escolhe a pasta) uma seguida da outra( tipo da esquerda pra direita), num tamanho Height = 180/ .Width = 240

-que numere as fotos tipo foto 1 foto 2 foto 3 e quando eu delete uma foto no meio de outras ele reorganize o negocio e renumere as fotos

bom aki vai o começo do meu código(obs o maior prob ta sendo pra colocar as fotos no prog , eu so muito nob e n to manjando direito )...

valeu galere se possivel me ajudar eu agradeço muitooo

Private Sub Inserefoto(textbox1 As String)

    
    If textbox1 = "" Then
        MsgBox "Nenhum arquivo encontrado."
        Exit Sub
    End If
    
    While MyFile <> ""
        Set imagem = Selection.InlineShapes.AddPicture(FileName:=textbox1, _
            LinkToFile:=False, SaveWithDocument:=True)
        With imagem
            .Height = 180
            .Width = 240
        End With


    Wend

   
End Sub

Private Sub CommandButton1_Click()


Inserefoto (textbox1)

    
End Sub

Private Sub CommandButton2_Click()
Application.Quit
End Sub


Private Sub Image1_Click()

End Sub

Private Sub TextBox1_Change()



End Sub

Private Sub UserForm_Click()

End Sub

Editado Setembro 18, 2009 por kuroi
Adicionar tag CODE