** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Word
  Mensajes nuevos Mensajes nuevos RSS - Añadir símbolo en celda en función del formato
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

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

 Responder Responder
Autor
Mensaje
salvaleuven Ver desplegable
Nuevo
Nuevo


Unido: 04/Octubre/2020
Localización: ESPAÑA
Estado: Sin conexión
Puntos: 45
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita salvaleuven Cita  ResponderRespuesta Enlace directo a este mensaje 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,
Arriba
prga Ver desplegable
Moderador
Moderador


Unido: 16/Noviembre/2004
Localización: España
Estado: Sin conexión
Puntos: 3523
Opciones de entrada Opciones de entrada   Gracias (1) Gracias(1)   Cita prga Cita  ResponderRespuesta Enlace directo a este mensaje 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

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable