Macro - Change format of bullet

[Guest]

Hi

I have a presentation of over 400 slides.

Some slides, over than 100, have bullet with a font that it not reconize by
Word when I convert my presentation from PowerPoint to a Word file with three
slide on a page.

I want to create a Macro in PowerPoint that will find each paragraph with a
bullet with the specific caracter and replace the bullet by a more standard
bullet.

The bullet used or causing problem are not the one of the Master and are not
the only one use in the presentation. I don't want to change the other bullet.

Someone can help me ?

Thanks

Mario

 

[David M. Marcovitz]

Have you tried using the Replace Fonts command? Thanks to Kathy Jacobs,
get more information here (watch for line breaks in the URL introduced by
the news system):

http://office.microsoft.com/en-us/powerpoint/HA011669761033.aspx?
pid=CL100626991033

--
David M. Marcovitz
Microsoft PowerPoint MVP
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/

 

[Guest]

Yes I try this way and change for many other caracter but the problem still
the same, when I convert to word, I have a question mark in each type of
caracter in place of the bullet i have in PowerPoint.

But we see that with the replace command, it is possible for PowerPoint to
Identify each place in a presentation where the specific font is use. Now I
need to convert that in a Macro to identify each place where I have this
special font in my presentation, after that the macro can change the format
of the bullet at this place for a more common bullet.

Thanks

Mario

 

[David M. Marcovitz]

This macro changes any bullets that are in Batang font to be in Arial.
Just change the names of the fonts in the code to the font names you
want.

Sub ChangeBatangBullets()
Dim oSld As Slide
Dim oShp As Shape
Dim oPar As TextRange
For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
If oShp.HasTextFrame Then
For Each oPar In oShp.TextFrame.TextRange.Paragraphs
If oPar.ParagraphFormat.Bullet.Type <> ppBulletNone Then
If oPar.ParagraphFormat.Bullet.Font.Name = "Batang" _
Then
oPar.ParagraphFormat.Bullet.Font.Name = "Arial"
End If
End If
Next oPar
End If
Next oShp
Next oSld
End Sub


--
David M. Marcovitz
Microsoft PowerPoint MVP
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/

 

[Steve Rindsberg]

Mario,

What happens if you

Select a text block
Start the macro recorder
Choose a different character for the bullets
Stop the recorder

then

select a different text block and run the macro.

Does it work?

If so, post it back here and perhaps one of us can modify it to work across the
entire presentation.

 

[Guest]

Hi David

It's work, the only thing it is that I don't whant to just change the font
of the bullet, I whant to change the character of the bullet, because that is
what cause my problem in word.

So the firs part of the Maco is Ok, they find all the place I have the font
I look for but when the macro find a specific paragraph, I whant to change
the font and the charater.

Thanks again

Mario

 

[Guest]

Hi guys

I find the solution with the great help of David.

The result is:

Dim oSld As Slide
Dim oShp As Shape
Dim oPar As TextRange
For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
If oShp.HasTextFrame Then
For Each oPar In oShp.TextFrame.TextRange.Paragraphs
If oPar.ParagraphFormat.Bullet.Type <> ppBulletNone Then
If oPar.ParagraphFormat.Bullet.Character = 9675 _
Then
With oPar.ParagraphFormat.Bullet
.Visible = msoTrue
.UseTextColor = msoTrue
.Font.Name = "Courier New"
.Character = 186
End With
End If
End If
Next oPar
End If
Next oShp
Next oSld

This Macro permit me to identify in my presentation all bullet with caracter
# 9675 and change the bullet for a other font and a other charater.

Thanks for your help

Mario

 

[David M. Marcovitz]

Great. Thanks for getting back to us. I was about to respond to your
previous post when I saw this one. I was thrilled that you were able to
make the necessary modifications to my code to get it to do exactly what
you want. I really appreciate your getting back to us to let us know that
it worked, and I appreciate your putting the effort in yourself. People
are always happy to help out here, but we're especially happy to help
when you are willing to try to do as much as you can yourself.
--David

--
David M. Marcovitz
Microsoft PowerPoint MVP
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/