Horizontal/Vertical en Word - VB-MUNDO

chlsaul · #1 (**permalink**) 03-09-2005, 14:52:33

Hola a Todos tengo un prog ke genera un Doc Word pero quiero saber como puedo cambiar el sentidod e la Hoja osea en Vertical y Horizontal, tambien com haria para inserter una linea sin tener que digitar un "___________________" sino insertar una linea asi como la que se hace con la barra de herramientas de dibujo en word....

acalanto · #2 (**permalink**) 03-09-2005, 15:32:42

Prueba este código y da las gracias al propio Word, yo sólo he puesto los comentarios, el resto lo hace él.

Para poner el papel apaisado:

Código:

    With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientLandscape
        .TopMargin = CentimetersToPoints(3)
        .BottomMargin = CentimetersToPoints(3)
        .LeftMargin = CentimetersToPoints(2.5)
        .RightMargin = CentimetersToPoints(2.5)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.25)
        .FooterDistance = CentimetersToPoints(1.25)
        .PageWidth = CentimetersToPoints(29.7)
        .PageHeight = CentimetersToPoints(21)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .GutterPos = wdGutterPosLeft
    End With

Para trazar una línea:

Código:

    ActiveDocument.Shapes.AddLine(52.9, 112.05, 691.9, 112.05).Select

chlsaul · #3 (**permalink**) 03-09-2005, 15:38:14

las Gracias tambien van para Ud Maestro por Traerme el Codigo de Word hasta aca... :smt004

acalanto · #4 (**permalink**) 03-09-2005, 15:44:33

Gracias por el reconocimiento. Prueba a grabar una Macro Automática con Word y edítala, te sorprenderás de lo efectivo que escribe su propio código y las ideas que aporta.