#1
|
|||
|
|||
Global change to Word Art texts ?
My PPT file has 50 slides, each of which has a Word Art text box with same font, effects, etc, and different text.
Is it possible to make a Global change to all, at one time ? Or just each one individually ? Thanks. Clark |
#2
|
|||
|
|||
You can do his but only with vba code.
Is the current word art one of the preset styles from the ribbon and do you know which one?? Here is sample code to swap the first preset to the fifth - adapt to suit the presets you need. Sub WA_swap() Dim osld As Slide Dim oshp As Shape For Each osld In ActivePresentation.Slides For Each oshp In osld.Shapes If oshp.HasTextFrame Then If oshp.TextFrame.HasText Then If oshp.TextEffect.PresetTextEffect = msoTextEffect1 Then _ oshp.TextEffect.PresetTextEffect = msoTextEffect5 End If End If Next oshp Next osld End Sub How to use code Last edited by JohnWilson; 09-05-2013 at 11:21 PM. |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Replacing texts | aslamyahya | Excel Programming | 1 | 02-27-2013 10:38 PM |
Clickable Links Converted to hyperlink texts automatically when I open a word doc | Kingsly | Word | 2 | 09-13-2012 10:42 AM |
change color of critical activity texts | ketanco | Project | 3 | 01-05-2012 06:36 PM |
Word 2003 > close > it asks to save a global template | tom8750 | Word | 10 | 05-23-2011 03:29 AM |
word changes settings while copiing texts | marja | Word | 2 | 11-29-2010 01:17 PM |