Alt key shortcuts

[Jeremy]

I was wondering if there is a list somewhere showing all
the Alt key shortcuts that use the Alt+0169 for example
gives you the © symbol. Is there a list that has all
these shortcuts listed using the Alt key in combination
with the numbers to insert the characters and symbols? It
would be a great help for inserting symbols that we use
all the time that aren't already shortcuts in microsoft.
Especially those symbols we import.

Thanks,
Jeremy M

[Mike Williams]

Lists in help under "shortcuts", and some special characters listed under
Insert > Symbol.

"Jeremy" <c...@mav2u.com> wrote in message
news:113c701c27f5d$1e406d20$36ef2ecf@tkmsftngxa12...

[Suzanne S. Barnhill]

You can create your own reference chart for any given font:

1. Insert a column with 14 columns and 32 rows.

2. In the odd-numbered columns, type the numbers from 32 to 255 (the
characters 0-31 are nonprinting).

3. In the even-numbered columns, press the equivalent code Alt+0032 to
Alt+0255. You can start with the default font (Times New Roman).

This is rather labor-intensive the first time, but by changing the font in
the even-numbered columns, you can easily prepare charts for Symbol,
Wingdings, etc.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://www.mvps.org/word

"Jeremy" <c...@mav2u.com> wrote in message
news:113c701c27f5d$1e406d20$36ef2ecf@tkmsftngxa12...

[Steve Atkinson]

Or, you can run this macro:

Sub AltNumSymbols()
'
' AltNumSymbols Macro
' Macro created 02/18/00 by Steve
'
' Macro created 12-08-98 by Doug Robbins to list symbols that can beinserted
via Alt+keypad
'
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1,
NumColumns:=3
Selection.TypeText Text:="Alt + Numeric Keypad"
Selection.MoveRight unit:=wdCell
Selection.TypeText Text:="Normal Font"
Selection.MoveRight unit:=wdCell
Selection.TypeText Text:="Symbol Font"
Selection.MoveRight unit:=wdCell
Symbol = 33
While Symbol < 256
Selection.TypeText Text:="0" & LTrim$(Str$(Symbol))
Selection.MoveRight unit:=wdCell
With Selection
.InsertSymbol CharacterNumber:=Symbol, Font:="Normal",
Unicode:=False
End With
Selection.MoveRight unit:=wdCell
With Selection
.InsertSymbol CharacterNumber:=Symbol, Font:="Symbol",
Unicode:=False
End With
Symbol = Symbol + 1
Selection.MoveRight unit:=wdCell
Wend
End Sub

"Suzanne S. Barnhill" <sbar...@mvps.org> wrote in message
news:Ocaf7L4fCHA.1124@tkmsftngp12...