Añadir símbolo en celda en función del formato

   Hola a todos, os expongo lo que quiero lograr:
Tengo una aplicación que genera un archivo word con una única tabla, de 8 columnas y un número variable de filas. En la columna 2, exporta un texto que en ocasiones está en negrita y cursiva. Necesito programar un sub que recorra la tabla y añada un símbolo ("*") en la columna 6 de la misma fila donde encuentre el texto en negrita y cursiva.

Muchas gracias a todos,

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
salvaleuven Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 04/Octubre/2020 Localización: ESPAÑA Estado: Sin conexión Puntos: 45	Opciones de entrada Responder Cita salvaleuven Informar de mensaje Gracias(0) Cita Respuesta Tema: Añadir símbolo en celda en función del formato Enviado: 12/Diciembre/2022 a las 23:30
	Hola a todos, os expongo lo que quiero lograr: Tengo una aplicación que genera un archivo word con una única tabla, de 8 columnas y un número variable de filas. En la columna 2, exporta un texto que en ocasiones está en negrita y cursiva. Necesito programar un sub que recorra la tabla y añada un símbolo ("*") en la columna 6 de la misma fila donde encuentre el texto en negrita y cursiva. Muchas gracias a todos,

prga Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Moderador Unido: 16/Noviembre/2004 Localización: España Estado: Sin conexión Puntos: 3489	Opciones de entrada Responder Cita prga Informar de mensaje Gracias(1) Cita Respuesta Enviado: 13/Diciembre/2022 a las 16:36
	Hola. Una posible sub que hace lo indicado es: Public Sub ponesimbolo() Dim nn As Long Dim mfilas As Long mfilas = ActiveDocument.Tables(1).Rows.Count For nn = 1 To mfilas If Len(ActiveDocument.Tables(1).Cell(nn, 2).Range.Text) > 2 And ActiveDocument.Tables(1).Cell(nn, 2).Range.Font.Bold = True And ActiveDocument.Tables(1).Cell(nn, 2).Range.Font.Italic = True Then ActiveDocument.Tables(1).Cell(nn, 6).Range.Text = "*" Else ''''otro caso End If Next End Sub Espero que ayude a resolver la duda Ya comentas. Un saludo a todos