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

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 .....

Poxa, eu não mexo muito com uma aplicação word via vb mas tente isso...

 

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...

A mensagem é antiga, mas me serviu.

 

Utilizei a sugestão do ghost_jlp, o fantasminha camarada.

 

Obrigado.