Πώς να αλλάξετε το κείμενο Με μακροεντολών στο PowerPoint 2007

μακροεντολές παρέχουν ένα τρόπος για την αυτοματοποίηση επαναλαμβανόμενων εργασιών . Χρησιμοποιώντας μια μακροεντολή, μπορείτε να αντικαταστήσετε γρήγορα το κείμενο που χρησιμοποιείται καθ 'όλη τη παρουσίαση του PowerPoint με νέο κείμενο . Αντί για μη αυτόματη επανάληψη μιας ενέργειας, όπως η αλλαγή μιας λέξης με μια φράση , που έχει συσταθεί μια μακροεντολή και να το προσθέσετε στη γραμμή εργαλείων γρήγορης πρόσβαση του PowerPoint . Χρησιμοποιώντας μακροεντολές σας βοηθά να αναπτύξουν συνεπείς περιεχόμενο πιο εύκολα . Τα πράγματα που θα χρειαστείτε
PowerPoint 2007
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε την παρουσίαση του PowerPoint . Κάντε κλικ στο κουμπί "Microsoft Office" και κάντε κλικ στο κουμπί " Επιλογές του PowerPoint " . Στη συνέχεια , κάντε κλικ στο σύνδεσμο " Popular" , και στο " Κορυφαίες επιλογές για εργασία με το PowerPoint ", επιλέξτε " Εμφάνιση καρτέλας Προγραμματιστής στην κορδέλα . " Κάντε κλικ στο κουμπί " OK" . 2

Κάντε κλικ στο μενού "Προγραμματιστής " και στη συνέχεια κάντε κλικ στο κουμπί " Μακροεντολές " . Εισάγετε ένα όνομα μακροεντολής , όπως " SwitchText , " και να καθορίσετε όπου θέλετε η μακροεντολή αποθηκεύεται , συνήθως αυτή την παρουσίαση . Προαιρετικά, προσθέστε μια περιγραφή της λειτουργίας των μακρο εκτελεί . Κάντε κλικ στο κουμπί "Δημιουργία " και το Visual Basic for Applications Ανοίγει το παράθυρο .
Εικόνων 3

Εισάγετε τον κωδικό αυτό , για παράδειγμα , για να αλλάξετε τη λέξη "Τίτλος " με τη φράση " Νέα παρουσίαση του τίτλου " σε όλη την παρουσίαση .

Κλείστε το Visual Basic for Applications παράθυρο .

Sub SwitchText ( )

Dim pSld Όπως Slide

Dim pShp Όπως σχήμα

Dim pTxtRng Όπως TextRange

Dim pTmpRng Όπως TextRange

Dim strWhatReplace As String , strReplaceText Όπως String

strWhatReplace = "Τίτλος "

strReplaceText = " Νέα παρουσίαση τίτλο "

For Each pSld Σε ActivePresentation.Slides

For Each pShp Σε pSld.Shapes

Set pTxtRng = pShp.TextFrame.TextRange

Set pTmpRng = pTxtRng.Replace ( _

FindWhat : = strWhatReplace , _

Replacewhat : = strReplaceText , _

WholeWords : = True )

Do While Not pTmpRng δεν είναι τίποτα

Set pTxtRng = pTxtRng.Characters _

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

Σετ pTmpRng = pTxtRng . Αντικατάσταση ( _

FindWhat : = strWhatReplace , _

Replacewhat : = strReplaceText , _

WholeWords : = True )

Loop

Επόμενη pShp

Επόμενο pSld

End Sub
Η

4 Κλείστε το " Visual Basic for Applications " παράθυρο .
5

Run η μακροεντολή πατώντας το κουμπί "Macro " από το μενού "Προγραμματιστής " . Κάντε κλικ στο κουμπί " Run" . Η λέξη "Τίτλος " παίρνει αντικατασταθεί από τον όρο " Νέα παρουσίαση του τίτλου . "
Η 6

επεξεργαστείτε τη μακροεντολή πατώντας το κουμπί "Macro " από το μενού "Προγραμματιστής " . Κάντε κλικ στο κουμπί " Επεξεργασία" και κάνει τις αλλαγές στη συμβολοσειρά κειμένου να κάνει μια διαφορετική αλλαγή .
Η 7

Προσθέστε τη μακροεντολή στη "Quick Access Toolbar " κάνοντας κλικ στην επιλογή " Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης " και την επιλογή των " Περισσότερες εντολές ... " επιλογή . Επιλέξτε " Μακροεντολές " από τις " Επιλογή εντολών από ... " μενού και επιλέξτε τη μακροεντολή σας . Κάντε κλικ στο κουμπί "Προσθήκη" . Στη συνέχεια , κάντε κλικ στο κουμπί " OK" . Πιέστε τα πλήκτρα " CTRL /S" για να αποθηκεύσετε το αρχείο σας .
Η
εικόνων