SoloCodigo

hola

necesito un pequeño favor, necesito dejar la hora horizontal pero no se cual es la propiedad indicada plisss ayuda aca les dejo el codigo, le puede servir a alguien:

Dim WordApp As Word.Application
Dim prueba As Word.Document
Dim sel As Word.Selection

Set Db = Adodc1.Recordset
Set WordApp = New Word.Application

    On Error Resume Next
        WordApp.Documents.Add
        Set prueba = WordApp.ActiveDocument
        Set sel = WordApp.Selection
       
        prueba.Tables.Add Range:=sel.Range, NumRows:=1, NumColumns:=16
       
       
        Do Until Db.EOF
           
            sel.TypeText Text:=Db!SERVICIO
            sel.MoveRight unit:=12
           
           
            Db.MoveNext
            Loop
           



    WordApp.Visible = True
    Set WordApp = Nothing