Re: Replace Fonts Not Working

Many people have this same problem -- you try to save your PowerPoint
presentation with embedded fonts and it errors. Or, when trying to
use the REPLACE FONTS feature, but you can't replace UNICODE fonts.
(Example: cannot replace ARIAL UNICODE MS font.)

Here is a simple macro I wrote that will allow you to change the FONTS
to another font. It changes only the selected font and does not
affect any other font characteristics.

To use: Create a new PowerPoint macro and paste in the following
code. Then run the macro.

*******************************************************

[COPY THE MACRO CODE BELOW]
'-------------------------------------------------------------------------------
Sub Replace_UNICODE_Fonts()
'Written by Mark Wager -- This macro will replace a user-selected font
with a font of
'your choice. It will affect only the selected font on the selected
slide(s)
'(use single slide view or "Slide Sorter" view)

' Macro written 5/12/2009 by Mark Wager
'
' ---------------------------------------
' Ask User for the problem font and what to change it to
' ---------------------------------------
problemFont = InputBox("Enter the name of the FONT you wish to
replace", "Font to Replace", "Arial Unicode MS")
If problemFont = "" Then End
theNewFont = InputBox("Enter the new FONT name.", "New Font",
"Arial")
If theNewFont = "" Then theNewFont = "Arial"

' ---------------------------------------
' begins at 1st selected slide and loops through all selected
slides
' ---------------------------------------
For Each Slide In ActiveWindow.Selection.SlideRange

' For each text box and shape on the slide...
For Each shp In Slide.Shapes
' If a text box or shape has text in it...
If shp.HasTextFrame Then
Set txtRng = shp.TextFrame.TextRange
'Now, sift through all characters on the slide
For i = 1 To txtRng.Characters.Count
' Only change the user-selected font, leave rest
alone
If txtRng.Characters(i, 1).Font.Name = problemFont
Then
txtRng.Characters(i, 1).Font.Name = theNewFont
End If
Next i
End If
Next
Next Slide
End Sub
'-------------------------------------------------------------------------------





On Mar 28, 12:22 am, Steve Rindsberg <ab...@xxxxxxxxxxxxx> wrote:
In article <52248E51-D704-4BD3-AE89-CB1925EEA...@xxxxxxxxxxxxx>, Anemone wrote:
Two-part question: 1) I'm sure it's pilot error, but I can't seem to do a
global replace with Arial for Calibri, nor with an unidentifiable double-byte
font with Arial Unicode (intent being to minimize the impact of the
double-byte). And 2) hope against hope, has Microsoft by any chance offered a
simpler way to remove double-byte fonts in Office 2007 (they plagued me in
2003)? They're not exactly hurting my presentation(s), but they're causing a
*lot* of file bloat. Thanks.

Are you embedding fonts?  If not, the fact that some text in the presentation
has been formatted with a double-byte font won't affect the file size.

If so and if the double-byte font is removed from your system, PPT won't be able
to embed it, so again, you beat the bloat.

There's no easier way to get rid of doublebyte fonts in 2007 than in earlier
versions, I'm afraid.

==============================
PPT Frequently Asked Questionshttp://www.pptfaq.com/

PPTools add-ins for PowerPointhttp://www.pptools.com/

.

Relevant Pages

  • Re: Replace Fonts Not Working
    ... PowerPoint will still fight you though ... ... Here is a simple macro I wrote that will allow you to change the FONTS ... to another font. ... '(use single slide view or "Slide Sorter" view) ...
    (microsoft.public.powerpoint)
  • 2007 Macros converting from 2003
    ... I created a simple macro in 2003 to convert text in the slide to a certain ... size font. ... I read that the original file needs ...
    (microsoft.public.powerpoint)
  • Re: Mail Merge Label Macro w/Russian Text
    ... When I simply run a mail merge in word without recording it as a macro, ... I modify the macro to prompt the user for an excel file to read from ... and font in word appear to be working properly. ... does not support the Unicode Cyrillic characters. ...
    (microsoft.public.word.mailmerge.fields)
  • Re: inserting a tick
    ... look in the Wingdings font. ... A CheckIt macro and an UncheckIt macro. ... Checked Box and Unchecked Box AutoText entries (these are just Wingdings ... EQ field," but you can get the same effect by applying a border ...
    (microsoft.public.word.docmanagement)
  • RE: Repetive Formatting/Creating a Toolbar button
    ... and what is the scrip for the macro that will make font Arial,Bold, and have ... I work on different worksheets all of the time and have to choose format (on ... different cells specific font withing the cell). ...
    (microsoft.public.excel.misc)