Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako zmeniť text pomocou makra v programe PowerPoint 2007

Makrá poskytujú spôsob automatizáciu opakujúcich sa úloh . Pomocou makra , môžete rýchlo nahradiť text používaný v celej prezentácii programu PowerPoint s novým textom . Namiesto ručného opakovanie akcie , ako je napríklad zmena slovo frázy , nastaviť makro a pridať na panel s nástrojmi Rýchly prístup aplikácie PowerPoint . Pomocou makier vám pomôže vytvoriť konzistentný obsah ľahšie . Veci , ktoré budete potrebovať klipart PowerPoint 2007
Zobraziť ďalšie inštrukcie Cestuj 1

Otvorte prezentáciu PowerPoint . Kliknite na tlačidlo " Microsoft Office " a kliknite na tlačidlo " Možnosti programu PowerPoint " . Potom kliknite na odkaz " Obľúbené " a pod " Hlavné možnosti pre prácu s aplikáciou PowerPoint , " vyberte " Zobraziť kartu Vývojár na páse kariet. " Kliknite na tlačidlo " OK " .
2

Kliknite na menu " Developer " a potom kliknite na tlačidlo " makrá " . Zadajte názov makra , napríklad " SwitchText " , a určite, kam chcete makro uložené , typicky túto prezentáciu . Voliteľne možno pridať popis funkcie makro výkonnejší . Kliknite na tlačidlo " Vytvoriť " a Visual Basic for Otvorí sa okno aplikácie .
3

Napíšte tento kód , napríklad pre prepnutie slovo " Názov " k výrazu " Nová prezentácia Title " v celej prezentácii .

Zatvorte Visual Basic okne aplikácie pre . klipart

Sub SwitchText ( )

Dim pSld ako Slide

Dim PSHP ako tvar

Dim pTxtRng Ako TextRange

Dim pTmpRng Ako TextRange

Dim strWhatReplace As String , strReplaceText As String

strWhatReplace = " Title "

strReplaceText = " Nová prezentácia Title "

Pre každý pSld V ActivePresentation.Slides

každý PSHP V pSld.Shapes

Set pTxtRng = pShp.TextFrame.TextRange

Set pTmpRng = pTxtRng.Replace ( _

FindWhat : = strWhatReplace , _

Replacewhat : = strReplaceText , _

WholeWords : = TRUE )

robiť , keď nie pTmpRng nie je nič

Set pTxtRng = pTxtRng.Characters _ klipart

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

Set pTmpRng = pTxtRng . nahradiť ( _

FindWhat : = strWhatReplace , _

Replacewhat : = strReplaceText , _

WholeWords : = TRUE )

Loop

Ďalšie PSHP

Ďalšie pSld

End Sub
4

Zatvorte " Visual Basic aplikácie pre " okná .
5

Run makro kliknutím na tlačidlo " makro " z menu " Developer " . Kliknite na tlačidlo " Spustiť " . Slovo " hlava " dostane nahrádzajú slovami " New Presentation hlavy . "
6

Upraviť makro kliknutím na tlačidlo " makro " z menu " Developer " . Kliknite na tlačidlo " Upraviť " a vykonajte zmeny textového reťazca , aby sa rôzne zmeny .
7

Pridať makro na " Panel s nástrojmi Rýchly prístup " , kliknutím na možnosť " Prispôsobiť panel s nástrojmi Rýchly prístup " a voľbou " Ďalšie príkazy ... " voľba. Vyberte " makrá " z " Zvoliť príkazy z ... " Ponuka a vyberte makro . Kliknite na tlačidlo " Pridať " . Potom kliknite na tlačidlo " OK " . Stlačte " CTRL /S " kľúče na uloženie súboru .

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené