Foros del Web » Programación para mayores de 30 ;) » .NET »

VB6 Word.Paragraph Salto de Linea y negrita en texto

Estas en el tema de VB6 Word.Paragraph Salto de Linea y negrita en texto en el foro de .NET en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 29/06/2012, 15:02
Avatar de pcarvajal  
Fecha de Ingreso: enero-2002
Mensajes: 701
Antigüedad: 22 años, 3 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??

Etiquetas: negrita, salto, vb, vb6
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 04:14.