Changing font for keyboard mapping

I just finished setting a bunch of keyboard shortcuts for pasting in special characters that I use often.  I did it via INSERT --> SYMBOL--> etc.

Problem is that once I finished doing this I realized that I'd accidentally specified a font (instead of choosing "(normal text)".

I could redo all the keyboard mappings, but that would be really dull and time-consuming.

Is there a way I can edit the font option for a keyboard shortcut? I've looked all around (OPTIONS, Macros, VBA, ...) but don't see any place where keyboard shortcuts are listed out.

Can this be done?

Thanks.

LeprechaunAsked:
Who is Participating?
 
GrahamSkanConnect With a Mentor RetiredCommented:
I don't quite understand what you are trying to do, but the Application object of the Word Object model has a Keybindings collection of Keybinding objects. The Keybinding object has properites such as KeyCode and Keystring.

There is nothing in the user interface to list them, as JOrzech says, but they can be listed and modified programatically.

0
 
Joanne M. OrzechManager, Document Services CenterCommented:
Sorry - but I don't believe what you're asking can be done Leprechaun -- not for a keyboard shortcut.

0
 
LeprechaunAuthor Commented:
Well, all I asked for is information. I didn't ask for anybody to write a program. I'm wondering whether there's a place or means whereby  these properties are exposed in a user-friendly manner.

I have a LOT of these, as I do multi-lingual academic writing in which all sorts of unicode must be used to represent foreign letters. If you deal with a number of languages and also regularly use phonetic symbols, there's a long list of letters you might want to type while working in document in English (e.g., http://www.thdl.org/tools/fonts/diacritic_chart.html).

Also, so far as I can tell, Word doesn't provide a list anywhere of one's customized hotkeys, so you not only have to redo each one manually, but you have to go through the additional chore of drawing up a list of them, too. It's a waste of time.

The issue is that a lot of mine currently hard-code a font, which means that unless I set the whole document to that font I have words containing more than one font, which isn't professional.

Anyway, if this is not easily done--as I suspect--then that's an answer, as well.

Thanks.
0
Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
Joanne M. OrzechConnect With a Mentor Manager, Document Services CenterCommented:
Again, I don't believe it can be done.  These shortcuts are not anywhere that you can like "view" them like you can macros....not to my knowledge anyway.

And if you're using all these languages, do you have the languages installed? -- I mean, I would think you wouldn't have to insert, symbol if you have the language installed on your PC and select that language for your Word document.  But again, I could be making it more simplistic....
0
 
Joanne M. OrzechManager, Document Services CenterCommented:
Hey Graham - I think what he's trying to do is modify all the keyboard shortcuts he has already created -- he wants to change the default font on all of them I believe to "normal text" -- (although I think some of the symbols may not appear properly if that is done).
0
 
GrahamSkanRetiredCommented:
OK Joanne, thnaks

Actually I couldn't see how the font makes any difference.
0
 
Joanne M. OrzechManager, Document Services CenterCommented:
Certain symbols are not contained within each font.... look at the symbols in "normal text" and then look at the symbols in "WingDings" - they're very different - and as I said - not all symbols are contained in every font.
0
 
GrahamSkanRetiredCommented:
Ah. I was only looking at the Symbols, which I suppose are a font in their own right.
0
 
LeprechaunAuthor Commented:
Thanks, everybody.

To answer your question about keyboards, JOrzech, the thing is that I'm not writing in other languages. I'm transliterating words into English from languages with different alphabets. For example, in cases where the language has a long 'a' sound (i.e. , "baah" instead of "bah") a standard way to represent it is ''. It's easy enough to write Spanish or German words in English, but Russian, Arabic, etc. require special characters.

The problem with fonts is that if my document is Courrier and my mappings all have Times New Roman there's a discrepancy in every word containing a special character, which means I have to clean up the document unnecessarily.

 GrahamSkan:
Thanks. That's basically the info I was looking for.
0
 
LeprechaunAuthor Commented:
BTW, tried to paste in the letter for the long 'a' but I guess this editor doesn't allow/recognize it. Anyway, it's the first letter here: http://www.thdl.org/tools/fonts/diacritic_chart.html

Thankx.
0
 
Joanne M. OrzechManager, Document Services CenterCommented:
I wrote a macro that enters all foreign characters.... load the attached form and macro into your normal.

Rename PickForeign.txt to PickForeign.frm
Load the code and the form into your normal.dot via VB Editor (Alt F11)

This should give you everything you need.




Private Sub CommandButton1_Click()
Selection.InsertSymbol characternumber:=192, unicode:=True  'A grave
PickForeign.Hide
End Sub
Private Sub CommandButton2_Click()
Selection.InsertSymbol characternumber:=224, unicode:=True  'a grave
PickForeign.Hide
End Sub
Private Sub CommandButton3_Click()
Selection.InsertSymbol characternumber:=193, unicode:=True  'A acute
PickForeign.Hide
End Sub
Private Sub CommandButton4_Click()
Selection.InsertSymbol characternumber:=225, unicode:=True  'a acute
PickForeign.Hide
End Sub
Private Sub CommandButton5_Click()
Selection.InsertSymbol characternumber:=194, unicode:=True  'A circumflex
PickForeign.Hide
End Sub
Private Sub CommandButton6_Click()
Selection.InsertSymbol characternumber:=226, unicode:=True  'a circumflex
PickForeign.Hide
End Sub
Private Sub CommandButton7_Click()
Selection.InsertSymbol characternumber:=195, unicode:=True  'A tilde
PickForeign.Hide
End Sub
Private Sub CommandButton8_Click()
Selection.InsertSymbol characternumber:=227, unicode:=True  'a tilde
PickForeign.Hide
End Sub
Private Sub CommandButton9_Click()
Selection.InsertSymbol characternumber:=196, unicode:=True  'A umlaut
PickForeign.Hide
End Sub
Private Sub CommandButton10_Click()
Selection.InsertSymbol characternumber:=228, unicode:=True  'a umlaut
PickForeign.Hide
End Sub
Private Sub CommandButton11_Click()
Selection.InsertSymbol characternumber:=200, unicode:=True  'E grave
PickForeign.Hide
End Sub
Private Sub CommandButton12_Click()
Selection.InsertSymbol characternumber:=232, unicode:=True  'e grave
PickForeign.Hide
End Sub
Private Sub CommandButton13_Click()
Selection.InsertSymbol characternumber:=201, unicode:=True  'E acute
PickForeign.Hide
End Sub
Private Sub CommandButton14_Click()
Selection.InsertSymbol characternumber:=233, unicode:=True  'e acute
PickForeign.Hide
End Sub
Private Sub CommandButton15_Click()
Selection.InsertSymbol characternumber:=202, unicode:=True  'E circumflex
PickForeign.Hide
End Sub
Private Sub CommandButton16_Click()
Selection.InsertSymbol characternumber:=234, unicode:=True  'e circumflex
PickForeign.Hide
End Sub
Private Sub CommandButton17_Click()
Selection.InsertSymbol characternumber:=203, unicode:=True  'E umlaut
PickForeign.Hide
End Sub
Private Sub CommandButton18_Click()
Selection.InsertSymbol characternumber:=235, unicode:=True  'e umlaut
PickForeign.Hide
End Sub
Private Sub Commandbutton19_Click()
Selection.InsertSymbol characternumber:=204, unicode:=True  'I grave
PickForeign.Hide
End Sub
Private Sub CommandButton20_Click()
Selection.InsertSymbol characternumber:=236, unicode:=True  'i grave
PickForeign.Hide
End Sub
Private Sub CommandButton21_Click()
Selection.InsertSymbol characternumber:=205, unicode:=True  'I acute
PickForeign.Hide
End Sub
Private Sub CommandButton22_Click()
Selection.InsertSymbol characternumber:=237, unicode:=True  'i acute
PickForeign.Hide
End Sub
Private Sub CommandButton23_Click()
Selection.InsertSymbol characternumber:=206, unicode:=True  'I circumflex
PickForeign.Hide
End Sub
Private Sub CommandButton24_Click()
Selection.InsertSymbol characternumber:=238, unicode:=True  'i circumflex
PickForeign.Hide
End Sub
Private Sub CommandButton25_Click()
Selection.InsertSymbol characternumber:=207, unicode:=True  'I umlaut
PickForeign.Hide
End Sub
Private Sub CommandButton26_Click()
Selection.InsertSymbol characternumber:=239, unicode:=True  'i umlaut
PickForeign.Hide
End Sub
Private Sub CommandButton27_Click()
Selection.InsertSymbol characternumber:=210, unicode:=True  'O grave
PickForeign.Hide
End Sub
Private Sub CommandButton28_Click()
Selection.InsertSymbol characternumber:=242, unicode:=True  'o grave
PickForeign.Hide
End Sub
Private Sub CommandButton29_Click()
Selection.InsertSymbol characternumber:=211, unicode:=True  'O acute
PickForeign.Hide
End Sub
Private Sub CommandButton30_Click()
Selection.InsertSymbol characternumber:=243, unicode:=True  'o acute
PickForeign.Hide
End Sub
Private Sub CommandButton31_Click()
Selection.InsertSymbol characternumber:=212, unicode:=True  'O circumflex
PickForeign.Hide
End Sub
Private Sub CommandButton32_Click()
Selection.InsertSymbol characternumber:=244, unicode:=True  'o circumflex
PickForeign.Hide
End Sub
Private Sub CommandButton33_Click()
Selection.InsertSymbol characternumber:=213, unicode:=True  'O tilde
PickForeign.Hide
End Sub
Private Sub CommandButton34_Click()
Selection.InsertSymbol characternumber:=245, unicode:=True  'o tilde
PickForeign.Hide
End Sub
Private Sub CommandButton35_Click()
Selection.InsertSymbol characternumber:=214, unicode:=True  'O umlaut
PickForeign.Hide
End Sub
Private Sub CommandButton36_Click()
Selection.InsertSymbol characternumber:=246, unicode:=True  'o umlaut
PickForeign.Hide
End Sub
Private Sub CommandButton37_Click()
Selection.InsertSymbol characternumber:=217, unicode:=True  'U grave
PickForeign.Hide
End Sub
Private Sub CommandButton38_Click()
Selection.InsertSymbol characternumber:=249, unicode:=True  'u grave
PickForeign.Hide
End Sub
Private Sub CommandButton39_Click()
Selection.InsertSymbol characternumber:=218, unicode:=True  'U acute
PickForeign.Hide
End Sub
Private Sub CommandButton40_Click()
Selection.InsertSymbol characternumber:=250, unicode:=True  'u acute
PickForeign.Hide
End Sub
Private Sub CommandButton41_Click()
Selection.InsertSymbol characternumber:=219, unicode:=True  'U circumflex
PickForeign.Hide
End Sub
Private Sub CommandButton42_Click()
Selection.InsertSymbol characternumber:=251, unicode:=True  'u circumflex
PickForeign.Hide
End Sub
Private Sub CommandButton43_Click()
Selection.InsertSymbol characternumber:=220, unicode:=True  'U umlaut
PickForeign.Hide
End Sub
Private Sub CommandButton44_Click()
Selection.InsertSymbol characternumber:=252, unicode:=True  'u umlaut
PickForeign.Hide
End Sub
Private Sub CommandButton45_Click()
    End
End Sub

Open in new window

PickForeign.txt
0
 
GayebCommented:
Hi all
If you need a list of your assigned keyboard shortcuts in MS Word-
Open the required document/template containg your user-assigned keyboard shortcuts and go to File Print.  Click on the "Print What" down arrow to display choices of what to print.  Choose "Key Assignments" and you get a printout of the key assignments in your open document AND the normal.dot template.  You can also print to a PDF file for an electronic version of assignments.  If necessary, you could then convert to a Word Document and edit as required.
Gayeb - Australia
0
All Courses

From novice to tech pro — start learning today.