Foro de programacion

¿Como puedo insertar en un documento las marcas que van en los margenes y que luego sirven para doblar la carta y meterla en un sobre? Gracias.

Hola, yo para plegar cartas uso este macro q me he hecho, te dibuja una linea en la mitad del tamaño de un dina4(29,7), y otra en un tercio.

Tendras que jugar un poco con el valor 20, que representa la longitud de la linea dibujada, por q dependiendo de tu impresora puede q deje mas o menos espacio a la iquierda de la hoja sin poder imprimir nada y por tanto que la linea no se dibuje o que sea demasiado grande y destaque mas de lo que debe.

Private Sub dibujar_lineas()
ActiveDocument.Select

Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst

For i = 1 To Selection.Information(wdNumberOfPagesInDocument)

ActiveDocument.Shapes.AddLine(0, 0, 20, 0).Select

Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionPage
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionPage

Selection.ShapeRange.Left = CentimetersToPoints(0)
Selection.ShapeRange.Top = CentimetersToPoints(9.9)


ActiveDocument.Shapes.AddLine(0, 0, 20, 0).Select

Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionPage
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionPage

Selection.ShapeRange.Left = CentimetersToPoints(0)
Selection.ShapeRange.Top = CentimetersToPoints(14.85)

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1, Name:=""
Next i
End Sub