Come modificare il testo con una macro in PowerPoint 2007

April 4

Le macro forniscono un modo di automatizzare le operazioni ripetitive. Utilizzando una macro, è possibile sostituire rapidamente il testo utilizzato nel corso di una presentazione di PowerPoint con il nuovo testo. Invece di ripetere manualmente un'azione, come ad esempio cambiare una parola di una frase, impostare una macro e aggiungerlo al di PowerPoint barra di accesso rapido. Utilizzo di macro ti aiuta a sviluppare contenuti coerenti con maggiore facilità.

istruzione

1 Aprire la presentazione di PowerPoint. Fare clic sul pulsante "Microsoft Office" e fare clic sul pulsante "Opzioni di PowerPoint". Quindi, fare clic sul collegamento "Popular", e in "Opzioni principali per l'utilizzo con PowerPoint," selezionare "Mostra scheda Sviluppo sulla barra multifunzione." Fare clic sul pulsante "OK".

2 Fare clic sul menu "Sviluppatore" e quindi fare clic sul pulsante "Macro". Inserire un nome di macro, come ad esempio "SwitchText," e specificare dove si desidera che la macro memorizzato, in genere questa presentazione. Facoltativamente, aggiungere una descrizione della funzione macro esegue. Fare clic sul pulsante "Crea" e il Visual Basic for Applications apre la finestra.

3 Inserire questo codice, per esempio, per passare la parola "Titolo" alla frase "Nuova presentazione titolo" tutta la presentazione.

Chiudere il Visual Basic for Applications finestra.

Sub SwitchText ()

Dim PSLD come slide

Dim Pshp Come Forma

Dim pTxtRng Come TextRange

Dim pTmpRng Come TextRange

Dim strWhatReplace come stringa, strReplaceText As String

strWhatReplace = "Title"

strReplaceText = "Nuova presentazione titolo"

Per ogni PSLD In ActivePresentation.Slides

For Each pShp In pSld.Shapes

Set pTxtRng = pShp.TextFrame.TextRange

Set pTmpRng = pTxtRng.Replace (_

FindWhat: = strWhatReplace, _

Replacewhat: = strReplaceText, _

WholeWords: = True)

Do While Non è niente pTmpRng

Set pTxtRng = pTxtRng.Characters _

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

Set pTmpRng = pTxtRng.Replace (_

FindWhat: = strWhatReplace, _

Replacewhat: = strReplaceText, _

WholeWords: = True)

Ciclo continuo

Successivo Pshp

Successivo PSLD

End Sub

4 Chiudere il "Visual Basic for Applications" finestra.

5 Eseguire la macro facendo clic sul pulsante "Macro" dal menu "Sviluppatore". Fare clic sul pulsante "Esegui". La parola "Titolo" viene sostituito da "Nuova presentazione titolo."

6 Modificare la macro facendo clic sul pulsante "Macro" dal menu "Sviluppatore". Fare clic sul pulsante "Modifica" e modificare la stringa di testo per fare un cambiamento diverso.

7 Aggiungere la macro per la "barra di accesso rapido" facendo clic sull'opzione "Personalizzare barra di accesso rapido" e selezionando i "Altri comandi ..." opzione. Selezionare "Macro" dal menu "Scegli comandi da ..." e selezionare la macro. Fare clic sul pulsante "Aggiungi". Quindi, fare clic sul pulsante "OK". Premere i tasti "CTRL / S" per salvare il file.