USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  VBA - Como mudar as margens
Sergio Luque
não registrado
ENUNCIADA !
Postada em 23/11/2004 18:25 hs   
Olá ,
Estou criando um arquivo do Word via VB6 , gostaria de saber se alguém sabe como mudar as margens direita,esquerda e o tamanho do papel via codigo , estou usando o seguinte código.
   
    Dim Word_VB As New Word.Application
    Word_VB.Documents.Add
    Word_VB.Visible = False
    Word_VB.Selection.Font.Name = "Courier New"
    'Tamanho da Fonte
    Word_VB.Selection.Font.Size = 8
   
Geronimo
Pontos: 2843
JOINVILLE
SC - BRASIL
ENUNCIADA !
Postada em 23/11/2004 18:56 hs            
Este exemplo adiciona um retângulo a meuDocumento, adiciona texto ao retângulo e, em seguida, define as margens para a moldura de texto.
Set meuDocumento = ActiveDocument
With meuDocumento.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame
    .TextRange.Text = "Eis aqui um texto de teste"
    .MarginBottom = 0
    .MarginLeft = 100
    .MarginRight = 0
    .MarginTop = 20
End With
 
Mais detalhes no proprio help de vba do word ....
Ou qualquer duvida post .....

"O pior inimigo que você poderá encontrar será sempre você mesmo."
   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 23/11/2004 19:15 hs            
Poxa, eu não mexo muito com uma aplicação word via vb mas tente isso...
Dim varDoc as Word.Application
 
Set varDoc = New Word.Application
with varDoc.ActiveDocument.PageSetup
 .PaperSize = wdPaperA4 'tamanho do papel
.LeftMargin = InchesToPoints(0.75)
.RightMargin = InchesToPoints(0.75)
.TopMargin = InchesToPoints(1.5)
.BottomMargin = InchesToPoints(1)
end with
obs.:InchesToPoints é usado para converter polegadas em pontos. 0,5 polegada (1,27 centímetro).
 
tentei...Emoções
TÓPICO EDITADO
 
Gelson
não registrado
ENUNCIADA !
Postada em 09/02/2011 17:08 hs   
A mensagem é antiga, mas me serviu.
 
Utilizei a sugestão do ghost_jlp, o fantasminha camarada.
 
Obrigado.
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página