¡Urgente! ! ¿Cómo agrupar todas las fuentes de colores en negrita en ppt y obtener la versión maestra y obtener puntos extra después de que la prueba sea exitosa? . . Gracias
Ahora está implementado mediante programación VBA. Presione Alt F11 para abrir la ventana de edición de VBA, copie y pegue el siguiente código tal como está y presione F5 para ejecutar.
SubRepresent()
Para i = 1 para ActivePresentation. Desliza, cuenta
Para k = 1 a la aplicación. ActivePresentation.Slides(i).Shapes.Count
Para j = 1 a Len(Apply.ActivePresentation.Slides(i).shapes(k).text frame.text range.text)
Aplicar. Presentación activa. Diapositivas (i). formas (k). marco de texto. rango de texto (Inicio: = j, Longitud: = 1). Seleccione
si es ActiveWindow. selección de rango de texto. color de fuente. RGB lt; (rojo: =255, verde: =0, azul: =0) y luego active la ventana. selección rango de texto . negrita = MSO true
Siguiente j
Siguiente k
Siguiente yo
MsgBox" ¡Listo! "
Conector final
Nota: RGB (rojo: =255, verde: =0, azul: =0) representa el color de fuente del patrón de diapositivas. Si el color de fuente del maestro es blanco, entonces RGB(rojo:=255, verde:=255) y si es negro, entonces RGB(rojo:=0, verde:) luego RGB(rojo:=255, verde:=255 , azul: = 0) significa que cualquier fuente con un color diferente al de la fuente maestra se considera una fuente de color y está en negrita. Si el color de la fuente principal no es el rojo, blanco, negro y amarillo de arriba, sino otros colores, y necesita especificar el valor del color usted mismo, ¿cómo puede saber el valor del color de la fuente principal? Simplemente seleccione una palabra con el mismo color que la fuente principal, haga clic en el ícono de la herramienta de fuente en la barra de herramientas, seleccione otro color de fuente: Personalice en el panel de herramientas emergente y podrá ver los valores de color rojo, verde y azul, y reemplazarlos. estos valores respectivamente.