• Domingo 22 de Diciembre de 2024, 13:35

Autor Tema:  Como Cambian El TamaÑo De La Letra  (Leído 794 veces)

criman

  • Nuevo Miembro
  • *
  • Mensajes: 9
    • Ver Perfil
Como Cambian El TamaÑo De La Letra
« en: Lunes 26 de Septiembre de 2005, 21:54 »
0
HOLA DE NUEVO

estoy exportando un archivo a word y no se como cambiar el tamaño de la fuente cuando se exporta el archivo les dejo el codigo puede que le sirva 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
       
        sel.Text = "Servicios no realizados Delegacion: " & Combo1.Text
        sel.MoveDown
        sel.MoveDown
     
        prueba.PageSetup.Orientation = wdOrientLandscape
        prueba.Tables.Add Range:=sel.Range, NumRows:=1, NumColumns:=12
       
        sel.Text = "SERVICIO"
        sel.MoveRight unit:=12


 
    WordApp.Visible = True
    Set WordApp = Nothing

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Como Cambian El TamaÑo De La Letra
« Respuesta #1 en: Martes 27 de Septiembre de 2005, 04:37 »
0
Prueba con esto, además del tamaño puedes cambiar el nombre, etc

Sel.Font.Name = "Arial"
Sel.Font.Size = 14
Sel.Font.Bold = True

 :)