Tengo este código que toma los valores de una hoja de Excel y genera un documento de Word. Quisiera saber cómo puedo ponerle negrillas en ciertas partes de la cadena, las que aquí están marcadas con **:
Sub exportar()
Dim objWord As Word.Application
Dim cadena As String
Dim i As Integer
Dim archivosalida As String
Dim ColA As String
Dim ColB As String
archivosalida = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ".docx"
i = 1
Range("A1").Select
Do Until IsEmpty(ActiveCell)
ColA = ActiveSheet.Range("A" & i).Value
ColB = ActiveSheet.Range("B" & i).Value
cadena = cadena & "**Lorem ipsum** dolor sit amet " & **ColA** & ", " & ColB & vbCrLf & vbCrLf
i = i + 1
ActiveCell.Offset(1, 0).Select
Loop
Set objWord = CreateObject("Word.Application")
objWord.Documents.Add
objWord.ActiveDocument.Content.FormattedText.Text = cadena
objWord.ActiveDocument.SaveAs archivosalida
objWord.Quit True
Set objWord = Nothing
End Sub
Gracias.