Re: Changing the Font with a macro button on my toolbar

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

From: Jay Freedman (jay.freedman_at_verizon.net)
Date: 01/18/05 

Date: Tue, 18 Jan 2005 12:32:22 -0500

Hi Charlie,

Word already has built-in commands to increase and decrease the font size by
1 point, so you don't need a macro.

In the Tools > Customize dialog, click Format in the left-hand list and find
"Grow Font 1 pt" and "Shrink Font 1 pt" in the right-hand list. Drag them to
a toolbar or menu. 

-- 
Regards,
Jay Freedman
Microsoft Word MVP          FAQ: http://word.mvps.org
Charlie wrote:
> I made this code so I could automatically decrease the font by 1
> size, but it does the Style "Normal".  I'd like it do do the Style
> that is whereever I leave my cursor.  How would I change this code to
> do that?  Thanks, Charlie
>
> Sub DecreaseFont()
> '
> ' This will decrease the font size of the style "Normal" by 1 point
> '
>
>     Selection.Style = ActiveDocument.Styles("Normal")
>     With ActiveDocument.Styles("Normal").Font
>         .Size = .Size - 1
>     End With
> End Sub

Relevant Pages

  • Re: WORD AND EXCEL SHORTCUT KEYS
    ... Ctrl-shift-P will get to the font size dropdown on the formatting toolbar. ... "Dave Peterson" wrote: ... How to decrease and increase the font size in excel and word and change case ...
    (microsoft.public.excel.programming)
  • Re: Windows XP problems
    ... You've probably accidentally hit the Ctrl key while moving your mouse's ... decrease the font size, it's intentional). ...
    (microsoft.public.windowsxp.security_admin)
  • Re: decreasing row height in a Gantt Chart
    ... Yes, to a limited extent. ... You can do this by formatting the Text Styles to ... a smaller font, and then in Layout, select a narrower Bar Height. ... > Is their a way to decrease the row height in a Gantt ...
    (microsoft.public.project)
  • Changing the Font with a macro button on my toolbar
    ... I made this code so I could automatically decrease the font by 1 size, ... Sub DecreaseFont() ...
    (microsoft.public.word.vba.general)
  • Re: Two JS questions
    ... onetitfemme wrote: ... decrease the text size and when you change the font on a page? ... cross browser are these actions? ...
    (comp.lang.javascript)