Hola, estoy haciendo un programa que me genera unas plantillas y esto es lo que uso para hacer el pie de página:

Public Sub Pie_Word(AppWord As Word.Application, Documento As Word.Document)
AppWord.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter 'Se situa en Pie de Página
With AppWord.Selection
.Text = "CORREO ELECTRÓNICO:" & vbCr
.Font.Size = 7
.Move 1
.Text = "correo@correo.es"
.ItalicRun
.Font.Size = 7
.Move 1
.HeaderFooter.Shapes.AddTextbox(1, 440.75, 768.4, 125#, 44.35).Select
.ShapeRange.TextFrame.TextRange.Select
.Collapse
.ShapeRange.Line.Visible = False
With .ParagraphFormat
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.Alignment = wdAlignParagraphLeft
.LineSpacingRule = wdLineSpaceSingle
End With
.Font.Size = 8
.TypeText Text:="Lo que sea"
.HeaderFooter.Shapes.AddConnector(1, 446#, 773, 0#, 43.5).Select
End With
End Sub
MI PREGUNTA: ¿Cómo puedo ampliar los márgenes del pie de página? (también me interesan de la cabecera, pero ese ya lo podré sacar yo si consigo la solución de este xD) Lo que me interesa es que esos márgenes sean diferentes que los del resto del documento.

El resto del documento lo monto por párrafos:
Dim Parrafo As Word.Paragraph
Set Parrafo = Documento.Paragraphs.Add
Parrafo.Range.InsertAfter "LO QUE SEA"
AppWord.ActiveDocument.Paragraphs(2).Range.Bold = True
AppWord.ActiveDocument.Paragraphs(2).IndentFirstLi neCharWidth (3)
AppWord.ActiveDocument.Paragraphs(2).LeftIndent = 5
AppWord.ActiveDocument.Paragraphs(2).Alignment = wdAlignParagraphJustify
Set Parrafo = Documento.Paragraphs.Add

El tema también es que .IndentFirstLineCharWidth (Sangría) y .LeftIndent (márgen izquierdo) no me coinciden con los puntos exactos de la regla de word y me gustaría que coincidieran (como si lo moviera con el ratón), no se si me explico bien


Gracias ! ! !

Vale, solucionado...confundí sangría con margen.
Para el margen de la izquierda:
AppWord.ActiveDocument.PageSetup.LeftMargin

Salu2 ! ! !