Como puedo seleccionar el texto de un parrafo y ponerlo en negrita???
Este es el codigo que estoy usando:
Código:
Set oWord = CreateObject("Word.Application")
Set oDocument = oWord.Documents.Add
Dim cTexto As String
cTexto = "Esta es la primera frase: y este es su contenido." & vbVerticalTab & _
"Esta es la segunda frase: y este es su contenido."
With oWord
Dim oParrafo As Word.Paragraph
Set oParrafo = oDocument.Paragraphs.Add(oDocument.Bookmarks("\EndOfDoc").Range)
With oParrafo
.Range.Text = cTexto
.Range.InsertParagraphAfter
End With 'oParrafo
Set oParrafo = Nothing
end With 'oWord
Lo que debe quedar en negrita es: "Esta es la primera frase" y "Esta es la segunda frase", el resto del texto debe quedar normal.
¿Alguna tiene alguna idea de como hacerlo?
