VBA WORD

ANDYSARAGIOTTO 06/08/2013 23:15:16
#427128
CAROS AMIGOS
Como faço para inserir no vb6 um codigo do vba do word para que uma imagem que vai ficar a esquerda e os textos que ficaram a direita eu consiga colocar todos os dizeres ATRAVES DA IMAGEM
ANDYSARAGIOTTO 08/08/2013 10:29:14
#427245
alguem ai para me ajudar?
MARCELO.TREZE 08/08/2013 11:20:45
#427249 Resposta escolhida
acho que ninguem entedeu
ANDYSARAGIOTTO 08/08/2013 11:28:12
#427250
Marcelo, preciso do codigo em vba para para inserir a imagem e depois jogar 3 linhas de texto do lado esquerdo desta imagem
tentei usar a macro do word para ver como ficaria o codigo mas nao deu certo
MARCELO.TREZE 08/08/2013 12:00:05
#427255
um geito de fazer seria colocando uma tabela com uma linha e duas colunas, sem bordas, e a imagem na coluna 1 e o texto na coluna 2, não sei se isto te ajudaria

veja


ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _
        2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> [Ô]Tabela com grade[Ô] Then
            .Style = [Ô]Tabela com grade[Ô]
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
    End With
    Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
    Selection.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.InlineShapes.AddPicture FileName:= _
        [Ô]C:\Users\Marcelo\Pictures\bibico.jpg[Ô], LinkToFile:=False, _
        SaveWithDocument:=True
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.TypeText Text:=[Ô]texto1[Ô]
    Selection.TypeParagraph
    Selection.TypeText Text:=[Ô]texto2[Ô]
    Selection.TypeParagraph
    Selection.TypeText Text:=[Ô]texto3[Ô]
ANDYSARAGIOTTO 08/08/2013 12:41:31
#427257
Marcelo, estas duas linhas deu erro

.ApplyStyleRowBands = True
.ApplyStyleColumnBands = False

Method or DAta member not found
ANDYSARAGIOTTO 08/08/2013 12:57:02
#427258
MARAVILHA DEU CERTO,
MTO OBRIGADO A TODOS
MARCELO.TREZE 08/08/2013 15:54:59
#427273
foi o código acima que deu certo? só explique e feche pra nóis
Tópico encerrado , respostas não são mais permitidas
Voltar