Ver Mensaje Individual
  #1 (permalink)  
Antiguo 29/06/2012, 15:02
Avatar de pcarvajal
pcarvajal
 
Fecha de Ingreso: enero-2002
Mensajes: 701
Antigüedad: 22 años, 4 meses
Puntos: 8
VB6 Word.Paragraph Salto de Linea y negrita en texto

Estoy creando un documento word con vb6.0, pero no se como diablos:
1: hacer un salto de linea (el chr(13) lo hace pero deja mucho espacio entre lineas, es como que fuera un salto de linea doble)
2 poner un texto en negrita, por ejemplo "Saldo del Crédito", y el texto que sigue quede como texto normal...

Código:
 Set oWord = CreateObject("Word.Application")
With oWord

        Dim oParrafo As Word.Paragraph
        Set oParrafo = oDocument.Paragraphs.Add(oDocument.Bookmarks("\endofdoc").Range)
        With oParrafo
            .Range.InsertAfter Text:=": esta es la descripcion de la carga."
            .Range.InsertAfter Text:="Carga Anual Equivalente Vigente o ""CAEV"""
            .Range.InsertAfter Chr(13)
            .Range.InsertAfter Text:=": esta es la descirpcion del plazo pendiente."
            .Range.InsertAfter Text:="Plazo Pendiente del Crédito de Consumo"
            .Range.InsertAfter Chr(13)
            .Range.InsertAfter Text:=": esta es la descripcion de los saldos."
            .Range.InsertAfter Text:="Saldo del Crédito"
            .Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
            .Range.Font.Bold = False

            .Range.InsertAfter Text:="DEFINICIONES" + vbCrLf
            .Range.InsertAfter Text:=Chr(13)+ Chr(13)+ Chr(13)+ Chr(13)
            .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
            .Range.Font.Bold = True
            .Range.Font.Size = 9
             
            '.Format.SpaceAfter = 5
            '.Range.InsertParagraphAfter
        End With

end with
Alguien puede hecharme una manito porfa??