Skip to main content
título editado
Enlace

VBA - Añadir negrillas, formato en VBA exportando de Excel a Word

Origen Enlace

Añadir negrillas, formato en VBA exportando de Excel a Word

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.