So ändern Sie den Text mit einem Makro in PowerPoint 2007

February 24

Makros bieten eine Möglichkeit der Automatisierung wiederkehrender Aufgaben. Sie ein Makro verwenden, können Sie schnell den Text in eine PowerPoint-Präsentation mit neuen Text ersetzen. Anstatt zu wiederholen manuell eine Aktion, wie das Ändern eines Wortes zu Wortgruppe, Einrichten eines Makros und zu PowerPoint Symbolleiste für den Schnellzugriff hinzufügen. Mit Makros können Sie konsistente Inhalte leichter entwickeln.

Anweisungen

1 Öffnen Sie Ihre PowerPoint-Präsentation. Klicken Sie auf "Microsoft Office", und klicken Sie auf "PowerPoint-Optionen". Dann klicken Sie den "Popular"-Link, und wählen Sie unter "Wichtigste Optionen für das Arbeiten mit PowerPoint," die Option "Entwicklerregisterkarte in der Multifunktionsleiste anzeigen". Klicken Sie auf "OK".

2 Klicken Sie im Menü "Entwickler", und klicken Sie auf die Schaltfläche "Makros". Geben Sie einen Makronamen, z. B. "SwitchText," und wo Sie wollen das Makro gespeichert, in der Regel diese Präsentation. Fügen Sie optional eine Beschreibung der Funktion, die das Makro ausführt. Klicken Sie auf "Erstellen" und das Visual Basic für Applikationen-Fenster wird geöffnet.

3 Geben Sie diesen Code, z. B. um das Wort "Titel", um die Phrase "Neue Präsentation Titel" in der gesamten Präsentation zu wechseln.

Schließen Sie das Visual Basic für Applikationen-Fenster.

Sub SwitchText()

Dim pSld als Folie

Dim pShp als Form

Dim pTxtRng als TextRange

Dim pTmpRng als TextRange

Dim StrWhatReplace As String, StrReplaceText As String

StrWhatReplace = "Title"

StrReplaceText = "Neue Präsentation Titel"

Für jede 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 Not pTmpRng Is Nothing

Set pTxtRng = pTxtRng.Characters _

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

Set pTmpRng = pTxtRng.Replace( _

FindWhat:=strWhatReplace, _

Replacewhat:=strReplaceText, _

WholeWords:=True)

Loop

Next pShp

Nächste pSld

EndSub

4 Schließen Sie das Fenster "Visual Basic for Applications".

5 Führen Sie das Makro durch Anklicken des Buttons "Makro" aus dem Menü "Entwickler". Klicken Sie auf "Ausführen". Das Wort "Titel" wird ersetzt durch "Neue Präsentation Titel."

6 Bearbeiten Sie das Makro durch Anklicken des Buttons "Makro" aus dem Menü "Entwickler". Klicken Sie auf "Bearbeiten" und nehmen Sie Änderungen an der Textzeichenfolge zu verschiedenen verändern.

7 Fügen Sie das Makro hinzu "Symbolleiste für den Schnellzugriff", indem Sie auf die Option "Customize Quick Access Toolbar" und Auswahl der Option "Mehr Befehle...". Wählen Sie "Makros" im Menü "Wählen Sie Befehle aus..." und wählen Sie das Makro. Klicken Sie auf "Hinzufügen". Klicken Sie die Schaltfläche "OK". Drücken Sie die Tasten "STRG/S", die Datei zu speichern.


SIE KÖNNEN AUCH GERNE