Hola.
Un ejemplo de trabajo (todo en vba word) que se acerca a la solución pedida sería:
Public Sub formateapalabras()
Dim nn As Long
Dim misvalores
Dim mispalabras(3, 1) As String
mispalabras(0, 0) = "login"
mispalabras(0, 1) = "-1,0,2" '''''negrita true, cursiva false, color azul
mispalabras(1, 0) = "logout"
mispalabras(1, 1) = "-1,-1,1" '''''' negrita,cursiva,color negro
mispalabras(2, 0) = "requery"
mispalabras(2, 1) = "0,0,6" ' negrita,cursiva,color rojo
mispalabras(3, 0) = "Refresh"
mispalabras(3, 1) = "0,0,11" ' negrita,cursiva,color amarillo
For nn = 0 To UBound(mispalabras)
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
.Text = mispalabras(nn, 0) 'mibus
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
misvalores = Split(mispalabras(nn, 1), ",")
Do While Selection.Find.Execute
Selection.Range.SpellingChecked = True
Selection.Range.GrammarChecked = True
Selection.Font.Bold = misvalores(0)
Selection.Font.Italic = misvalores(1)
Selection.Font.ColorIndex = misvalores(2)
Loop
Next
End Sub
repito que sería un ejemplo de trabajo. Evidentemente se puede construir en excel o access o word una tabla (aquí se ha usado una matriz de 2 dimensiones) con las distintas palabras y formateos para leerla desde el VBA de word.
Espero que ayude a resolver la duda.
Ya comentas.
Tweet
Formato a palabras según listado en tabla
Opciones del Tema
