Note: The other languages of the website are Google-translated. Back to English

¿Cómo poner en negrita todas las instancias de la misma palabra en un documento de Word?

Si hay varios textos de "perspectiva" en su archivo de Word, ahora debe formatear todos los textos de "perspectiva" en negrita. ¿Cómo podría poner en negrita todas las instancias de la misma palabra en un documento de Word grande lo más rápido posible?

Negrita todas las instancias de la misma palabra en un documento de Word con código VBA


Negrita todas las instancias de la misma palabra en un documento de Word con código VBA

El siguiente código VBA puede ayudarlo a poner en negrita todas las instancias de una palabra específica de manera rápida y fácil, haga lo siguiente:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Y luego, haga clic en recuadro > Módulo, copie y pegue el código siguiente en el módulo en blanco abierto:

Código de VBA: Negrita todas las instancias de la misma palabra

Sub BoldAll()
    Dim xStr As String
    xStr = InputBox("Please enter the word that you want to bold:", "KuTools for Word")
    If Trim(xStr) = "" Then
        MsgBox "Cann’t be empty!", vbInformation, "KuTools for Word"
    End If
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = xStr
        .Replacement.ClearFormatting
        .Replacement.Font.Bold = True
        .Replacement.Text = "^&"
        .Wrap = wdFindStop
        .Format = True
        .Forward = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub

3. Después de insertar el código y luego presione F5 para ejecutarlo, y aparece un cuadro de diálogo para recordarle que inserte la palabra que desea en negrita, vea la captura de pantalla:

doc negrita palabra específica 1

4. Y luego, haga clic en OK y todas las palabras específicas se han formateado en negrita a la vez.


Herramientas de productividad de palabras recomendadas

 

Kutools para Word: más de 100 funciones avanzadas para Word, ahorre su 50% de tiempo

  • Las operaciones complicadas y repetidas se pueden realizar un solo procesamiento en segundos.
  • Inserte varias imágenes en carpetas en un documento de Word a la vez.
  • Fusiona y combina varios archivos de Word en carpetas en uno con el orden que desees.
  • Divida el documento actual en documentos separados según el encabezado, el salto de sección u otros criterios.
  • Convierta archivos entre Doc y Docx, Docx y PDF, colección de herramientas para conversiones y selección comunes, etc.
Comentarios (3)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Bonjour et merci pour ce bout de code VBA.

Je travaille sur des documents qui contiennent des mots clés explicités de la sorte <#monMotClé>
je souhaiterais repérer et mettre en gras tous les eléments qui se trouvent entre < et >.

est-ce que cela est possible en VBA et pourriez vous me guider ?

Bien à vous.

Stef
Este comentario fue minimizado por el moderador en el sitio
Hola Stef,
Lo siento, no puedo entender tu pregunta claramente, ¿podrías explicar tu problema en inglés?
¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
Usando Google Translate, esto es lo que dijo Stef,
"Hola y gracias por este fragmento de código VBA.

Trabajo en documentos que contienen palabras clave explicadas así <#myKeyword>
Me gustaría identificar y poner en negrita todos los elementos que están entre < y >.

¿Es esto posible en VBA y podrías guiarme?

Mejor para usted. (Un saludo amistoso utilizado entre personas que intercambian servicios o información).

Stef"

Por separado, yo, Kaitlyn, me preguntaba si podría usar código para poner en negrita todas las preguntas.
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL