Re: Find any Arial and replace it with Times New Roman

Tech-Archive recommends: Speed Up your PC by fixing your registry

From: Chris Joyce (nntp(remove)_at_chrisjoyce.id.au)
Date: 06/19/04 

Date: Sat, 19 Jun 2004 23:58:14 +1000

It just dose not work , no error, no resault

I have the code being called by the autoopen() Macro.

I tried doing a manual find/replace via

<CTRL-H> Format/Font , It fails as well ( but only on some of the document
!

The other one that fials is the 'Wingdins' to 'Times New Roman' where the
text is 'N/A'

Thanks for your help

 Chris

http://www.chrisjoyce.id.au/Staff_Review.zip

"Jean-Guy Marcil" <no-spam@leaveme.alone> wrote in message
news:elpYIfVVEHA.3464@TK2MSFTNGP10.phx.gbl...
> Bonjour,
>
> Dans son message, < Chris Joyce > écrivait :
> In this message, < Chris Joyce > wrote:
>
> || I've been trying to work out how to replace the font format of one font
> only
> || ,
> ||
> || in short I'm trying to Find any Arial and replace it with Times New
> Roman
> ||
> || With DocRange.Find
> || .ClearFormatting
> || .Replacement.ClearFormatting
> || .Format = True
> || .Font.Name = "Arial"
> || .Replacement.Font.Name = "Times New Roman"
> || .Text = ""
> || .Replacement.Text = ""
> || .Forward = True
> || .Wrap = wdFindContinue
> || .Execute Replace:=wdReplaceAll
> || End With
> ||
> || But it dose not seem to work :-(
>
> How is it not working?
> You are not giving us much to go on!
>
> Just to be sure, I pasted your code in a document that had some Arial
> text,
> and it worked. (Word XP)
>
> --
> Salut!
> _______________________________________
> Jean-Guy Marcil - Word MVP
> jmarcilREMOVE@CAPSsympatico.caTHISTOO
> Word MVP site: http://www.word.mvps.org
>
>
>

Relevant Pages

  • Re: Macro in word 2003 not working in word 2007
    ... e.g in the following lines (which here have the stops replaced). ... I used this macro to create a toc based on formatting in word 2003, ... ' replace all paragraphs Times Roman, 13, bold as Heading 3 ...
    (microsoft.public.word.newusers)
  • Changing fonts throughout document including headers footers and footnotes
    ... I need to create a macro to change all fonts of "Times" to "Times New ... Roman" in a document. ... .MatchWholeWord = False ... MsgBox "Done converting font style Times to Times New Roman", ...
    (microsoft.public.word.vba.customization)
  • RE: Using two fonts
    ... Record any macro, say record clicking the B-button on the Formatting ... .Font.Name = "Times New Roman" ... writing using a TTF font called "FairyScrollDisplay". ... that the font contains alpha characters, ...
    (microsoft.public.word.newusers)
  • changing a Japanese character to a Western one in Word
    ... the degree sign in the Japanese font. ... Recording a macro as I change the font. ... Selection.Font.Name = "Times New Roman" ...
    (sci.lang.japan)