Tecnología

Inicio

Cómo cambiar el texto con una macro en PowerPoint 2007

Las macros proporcionan una manera de automatizar tareas repetitivas. El uso de una macro, puede reemplazar rápidamente el texto utilizado a través de una presentación de PowerPoint con el nuevo texto. En vez de repetir manualmente una acción, por ejemplo, cambiar una palabra de una frase, configurar una macro y añadirlo a herramientas de acceso rápido de PowerPoint. El uso de macros le ayuda a desarrollar contenido coherente con mayor facilidad.

Instrucciones

1 Abra la presentación de PowerPoint. Haga clic en el botón de "Microsoft Office" y haga clic en el botón "Opciones de PowerPoint". A continuación, haga clic en el enlace "populares", y en "Opciones principales para trabajar con PowerPoint," seleccionar "Mostrar ficha Programador en la cinta." Haga clic en el botón "OK".

2 Haga clic en el menú "desarrolladores" y luego haga clic en el botón "Macros". Introduzca un nombre de macro, tales como "SwitchText", y especificar dónde desea almacenar la macro, por lo general esta presentación. Opcionalmente, añadir una descripción de la función que realiza el macro. Haga clic en el botón "Crear" y el Visual Basic para Aplicaciones abre la ventana.

3 Introducir este código, por ejemplo, para cambiar la palabra "título" a la frase "Nuevo Título de la Presentación" en toda la presentación.

Cierre la ventana de Visual Basic para Aplicaciones.

Sub SwitchText ()

Dim PSLD Como Slide

Dim PSHP Como Forma

Dim pTxtRng Como TextRange

Dim pTmpRng Como TextRange

Dim strWhatReplace como secuencia, como secuencia strReplaceText

strWhatReplace = "Título"

strReplaceText = "Nuevo Título de la Presentación"

Para cada PSLD En ActivePresentation.Slides

For Each pShp In pSld.Shapes

Establecer pTxtRng = pShp.TextFrame.TextRange

Establecer pTmpRng = pTxtRng.Replace (_

FindWhat: = strWhatReplace, _

Replacewhat: = strReplaceText, _

WholeWords: = True)

Hacer mientras que no es nada pTmpRng

Establecer pTxtRng = pTxtRng.Characters _

(+ PTmpRng.Start pTmpRng.Length, pTxtRng.Length)

Establecer pTmpRng = pTxtRng.Replace (_

FindWhat: = strWhatReplace, _

Replacewhat: = strReplaceText, _

WholeWords: = True)

Lazo

Siguiente PSHP

Siguiente PSLD

End Sub

4 Cierre el "Visual Basic para Aplicaciones" ventana.

5 Ejecutar la macro haciendo clic en el botón "Macro" en el menú "desarrollador". Haga clic en el botón "Ejecutar". El "Título" se sustituye por la palabra "Nuevo Título de la Presentación."

6 Modificar la macro haciendo clic en el botón "Macro" en el menú "desarrollador". Haga clic en el botón "Editar" y realizar cambios en la cadena de texto para hacer un cambio diferente.

7 Añadir la macro a la "barra de acceso rápido" haciendo clic en la opción "Personalizar barra de acceso rápido" y seleccionando la opción "Más comandos ..." opción. Seleccione "Macros" en el menú "Elegir comandos de ..." y seleccione la macro. Haga clic en el botón "Añadir". A continuación, haga clic en el botón "OK". Pulse las teclas "CTRL / S" para guardar el archivo.