Cree una macro en Word para poner en negrita todas las líneas cuya primera letra sea una letra específica. ¿Cómo lograrlo?
La siguiente macro logra esto (las letras distinguen entre mayúsculas y minúsculas)
Sub Macro1()
'
' Macro1 Macro
' Macro Grabado el 2005-10-16 por lam
'
Dim char As String
Atenuar temp como cadena
Atenuar blnBold como booleano
Atenuar i mientras
Atenuar m mientras
Dim n As Long
Dim blnFound As Boolean
temp = Left(InputBox("Seleccione una acción:" amp; vbCrLf amp; "Ingrese T para negrita" amp; vbCrLf amp "Ingrese F para no estar en negrita", "Preguntar"), 1)
Si UCase( temp) = "T" Entonces
blnBold = True
ElseIf UCase(temp) = "F" Entonces
blnBold = False
Else
Salir Sub
Finalizar si p >
char = Left(InputBox("Ingrese la primera letra de la línea que aparecerá en negrita o sin negrita", "Preguntar"), 1)
Si char = "" Entonces salga de Sub< / p>
m = 0: n = 0: blnFound = False
Si Aplicación.Si Aplicación.ActiveDocument.Characters(1) = char Entonces
m = i p>
blnFound = True
Finalizar si
For i = 2 To Application.ActiveDocument.Characters.count