Formato (negrillas)

[ArmFeniX]

Necesito saber como se puede cambiar el formato de una simple palabra de un texto, a traves de codigo o funciones

ejemplo

Ask any Excel questions in your native language, fecha 27/02/2009
necesito que quede asi

Ask any Excel questions in your native language, fecha 27/02/2009

Solo las palabras Excel y la fecha se deben cambiar a negrillas

y como la fecha viene de otra celda, necesito saber como cambiarle el formato por funciones o macros

Gracias

 

[Greg Truby]

Disculpe que no tengo tiempo para explicarle como funciona. Pero algo así es como hacerlo.

Sub ChangeTimeToBoldBlue()
    
    Const c_strKeyText = "time"
    
    Dim intPos As Integer
    
    Let intPos = InStr(1, ActiveCell.Text, c_strKeyText)
    
    If intPos > 0 Then
        With ActiveCell.Characters(Start:=intPos, _
                                   Length:=Len(c_strKeyText)).Font
            .Bold = True
            .Color = vbBlue
        End With
    End If
End Sub

Pero solamente se puede cambiar el formato de caracteres en una celda fija, o sea no se puede formatear caracteres individuales en una celda que contiene una fórmula.

 

[galileogali]

Pequeñas modificaciones a la macro de Greg, tratando de de aproximar la respuesta a tu pedido

Option Explicit

Sub ChangeExcelToBold()
    
    Const c_strKeyText = "Excel"
    
    Dim intPos As Integer
    
Let intPos = InStr(1, ActiveCell.Text, c_strKeyText)
    
    If intPos > 0 Then
        With ActiveCell.Characters(Start:=intPos, _
                                   Length:=Len(c_strKeyText)).Font
            .Bold = True

        End With
    End If
End Sub

Sub ChangeDateToBold()
Dim strKeyText As String
strKeyText = "fecha " & Format(Date, "dd/mm/yyyy")
    
    Dim intPos As Integer
    
Let intPos = InStr(1, ActiveCell.Text, strKeyText)
    
    If intPos > 0 Then
        With ActiveCell.Characters(Start:=intPos, _
                                   Length:=Len(strKeyText)).Font
            .Bold = True

        End With
    End If
End Sub

 

[ArmFeniX]

Muchas gracias a todos, es exactamente lo que necesito!!!!!