Imprimir página | Cerrar ventana

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

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Word
Descripción del foro: Foro de Word
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86546
Fecha de impresión: 28/Marzo/2024 a las 19:57


Tema: Añadir símbolo en celda en función del formato
Publicado por: salvaleuven
Asunto: Añadir símbolo en celda en función del formato
Fecha de publicación: 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,



Respuestas:
Publicado por: prga
Fecha de publicación: 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




Imprimir página | Cerrar ventana