<div>
Nice job Graham! &nbsp;I didn't think of a wildcard search and replace. &nbsp;That's why you get the big points! &nbsp;LOL
</div>


Nice job Graham!  I didn't think of a wildcard search and replace.  That's why you get the big points!  LOL

<div>
Thanks Jo. My maths master always said the simplest way is the best way.
</div>


Thanks Jo. My maths master always said the simplest way is the best way.

<div>
Excellent job!!!! <br />
<br />
Thanks<br />
<br />
C
</div>


<div>
<div class="content wysiwyg-content">
Hello,<br />
<br />
I need some help to develop a macro to work in Word so that every time a character is encountered, it changes it to font EurekaSans-Regular, and when it encounters a number, it changes it to font EurekaSans-RegularCaps....<wbr />.what I have so far is<br />
<br />
----<br />
Selection.HomeKey Unit:=wdStory<br />
&nbsp; &nbsp; Selection.EndKey Unit:=wdStory, Extend:=wdExtend<br />
&nbsp; &nbsp; <br />
&nbsp; &nbsp; If Asc(Selection.Text) &gt;= 48 And Asc(Selection.Text) &lt;= 57 Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Selection.Font.Name = &quot;EurekaSans-RegularCaps&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Selection.MoveRight<br />
&nbsp; &nbsp; End If<br />
<br />
&nbsp; &nbsp;If Asc(Selection.Text) &gt;= 65 And Asc(Selection.Text) &lt;= 122 Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Selection.Font.Name = &quot;EurekaSans-Regular&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Selection.MoveRight<br />
&nbsp; &nbsp; End If<br />
-----<br />
<br />
but I can't make to scan the entire document......<br />
<br />
Please help!!<br />
<br />
Thanks<br />
<br />
C
</div>
</div>


Hello,

I need some help to develop a macro to work in Word so that every time a character is encountered, it changes it to font EurekaSans-Regular, and when it encounters a number, it changes it to font EurekaSans-RegularCaps.....what I have so far is

----
Selection.HomeKey Unit:=wdStory
    Selection.EndKey Unit:=wdStory, Extend:=wdExtend
    
    If Asc(Selection.Text) >= 48 And Asc(Selection.Text) <= 57 Then
           Selection.Font.Name = "EurekaSans-RegularCaps"
            Selection.MoveRight
    End If

   If Asc(Selection.Text) >= 65 And Asc(Selection.Text) <= 122 Then
           Selection.Font.Name = "EurekaSans-Regular"
            Selection.MoveRight
    End If
-----

but I can't make to scan the entire document......

Please help!!

Thanks

C

Macro to change Fonts

A font is a particular size, weight and style of a typeface. Each font is a matched set of type, one piece (called a "sort") for each glyph, and a typeface consists of a range of fonts that share an overall design. With the advent of digital typography, font is frequently synonymous with typeface, although the two terms do not necessarily mean the same thing. In particular, the use of "vector" or "outline" fonts means that different sizes of a typeface can be dynamically generated from one design. Each style may still be in a separate "font file" -- for instance, the typeface "Futura" may include the fonts "Futura roman", "Futura italic", "Futura bold" and "Futura extended" —- but the term "font" might be applied either to one of these alone or to the whole typeface.

Fonts Typography

Microsoft Word is a commercial document editing program that is part of the Microsoft Office suite. It features numerous text-editing tools for creating richly formatted documents, along with tools for the use of macros in Word documents. Word's native file formats are denoted either by a .doc or .docx file extension. Plugins permitting the Windows versions of Word to read and write formats it does not natively support, such as the OpenDocument format (ODF) are available. Word can import and display images in common bitmap formats such as JPG and GIF. It can also be used to create and display simple line-art.