Macro en Word para numerar y resaltar preguntas automáticamente

 ¿Tienes un cuestionario lleno de preguntas y quieres darles un formato profesional sin hacerlo a mano? En esta publicación te comparto una macro en Word que detecta automáticamente las preguntas, las numera y además las resalta en negrita.

Esta herramienta es especialmente útil si trabajas en educación o si necesitas generar evaluaciones, encuestas o formularios con frecuencia.

💡 ¿Qué hace esta macro?

• Detecta cualquier párrafo que contenga un signo de pregunta (¿ o ?).

• Añade un número al inicio del párrafo.

• Aplica negrita a toda la pregunta.

• Evita numerar dos veces si ya habías corrido la macro antes.

Sub NumerarYFormatearPreguntas()

    Dim parrafo As Paragraph

    Dim texto As String

    Dim contador As Integer

    contador = 1

    For Each parrafo In ActiveDocument.Paragraphs

        texto = Trim(parrafo.Range.Text)

        ' Verifica si contiene "¿" o "?" y que aún no esté numerado

        If (InStr(texto, "¿") > 0 Or InStr(texto, "?") > 0) And Not texto Like "#.*" Then

            With parrafo.Range

                .InsertBefore contador & ". "

                .Font.Bold = True

            End With

            contador = contador + 1

        End If

    Next parrafo

    MsgBox "Se numeraron y formatearon " & contador - 1 & " preguntas.", vbInformation

End Sub

🛠️ ¿Cómo usar esta macro?

1. Abre tu documento en Word.

2. Presiona Alt + F11 para abrir el editor de macros.

3. Ve a Insertar > Módulo.

4. Pega el código que viste arriba.

5. Presiona F5 o ejecuta la macro desde Word.
6. ¡Listo! Tus preguntas estarán numeradas y en negrita.

Les comparto el video donde vemos como funciona la macro.

✅ Conclusión

Esta macro es una herramienta súper útil para automatizar tareas repetitivas y darle un mejor aspecto a tus documentos. Si trabajas en docencia o en generación de contenido, seguro te va a ahorrar tiempo.