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

Las macros proporcionan una manera de automatizar tareas repetitivas . El uso de un macro , se puede reemplazar rápidamente el texto que se utiliza a través de una presentación en PowerPoint con el nuevo texto . En vez de repetir manualmente una acción, por ejemplo, cambiar una palabra a una frase , crear una macro y añadirlo a la barra de herramientas de acceso rápido de PowerPoint. Con ellas le ayuda a desarrollar contenidos coherentes con mayor facilidad. Cosas que necesitará
PowerPoint 2007
Ver Más 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 "Popular" , y en " Opciones principales para trabajar con PowerPoint ", seleccione " 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 , 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 de la macro realiza . Haga clic en el botón "Crear " y el Visual Basic para Aplicaciones se abre la ventana .
3

Introduce este código, por ejemplo, para cambiar la palabra " título " a la frase " New Presentation Title " toda la presentación.

Cierre la ventana de Visual Basic para Aplicaciones.

Sub SwitchText ()

PSLD As Slide

PSHP As Shape

pTxtRng As TextRange

pTmpRng As TextRange

strWhatReplace Dim As String , strReplaceText As String

strWhatReplace = "Title"

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

For Each PSLD En ActivePresentation.Slides

For Each PSHP En pSld.Shapes

Set pTxtRng = pShp.TextFrame.TextRange
< p> Set pTmpRng = pTxtRng.Replace (_

FindWhat : = strWhatReplace , _

Replacewhat : = strReplaceText , _

WholeWords : = True )
< p > No Si No Es Nada pTmpRng

Set pTxtRng = pTxtRng.Characters _

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

Set pTmpRng = pTxtRng . Reemplazar ( _

FindWhat : = strWhatReplace , _

Replacewhat : = strReplaceText , _

WholeWords : = True )

Loop
< p > Siguiente PSHP

Siguiente PSLD

End Sub
4

Cierre la ventana.
5

Run " Visual Basic para aplicaciones " la macro haciendo clic en el botón " macro " en el menú " Developer " . Haga clic en el botón "Ejecutar " . La palabra " título " es reemplazado por " Nueva presentación de títulos. "
6

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

Agregue la macro a la "Barra de herramientas de acceso rápido " , haga clic en la opción "Personalizar barra de herramientas de acceso rápido " y seleccionando la opción " Más comandos ... " opción . Seleccione " Macros " de los " Comandos disponibles ... " menú y seleccione la macro. Haga clic en el botón " Add" . A continuación , haga clic en el botón " OK" . Pulse las teclas " CTRL /S " para guardar el archivo .