Red de conocimiento informático - Material del sitio web - Cree una macro en Word para poner en negrita todas las líneas cuya primera letra sea una letra específica. ¿Cómo lograrlo?

Cree una macro en Word para poner en negrita todas las líneas cuya primera letra sea una letra específica. ¿Cómo lograrlo?

Seleccione las operaciones de fila disponibles en el teclado (presione la tecla de flecha Mayús)

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

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

blnFound = True

Finalizar si

For i = 2 To Application.ActiveDocument.Characters.count