Discussion Locked

Word 2002 macro required

0 helpful
6 replies
Closed to new repliesThis discussion is closed. It stays readable, but it takes no new replies.

Can anyone supply me with a macro for Word 2002 which can be activated by hot keys that will change the font to Hebrew (right-to-left type).
A macro to reverse this procedure is also required

Thanks for some help

6 replies

by dklippert

Select your text.
Go to Tools>Macro Record New Macro.
Enter a macro name. Click on Keyboard to choose a shortcut.
Choose a storage area, Normal.dot so you can use it in any documment or the active document.
Click OK and go through the formattingprocedure.
Do the same thing to create a reverse macro.

by sgt_shultz

I will paste the macro code below in case you don't want to, but you'll have to figure out the visual basic editor to use my code, I think you will find this easier if you just record the macro yourself. Makes all that transparent to you.
you need to do a couple steps, 1) record the macro(s) and 2) assign them a keyboard shortcut. How to d this is all available in Word Help if you need more...
1) Tools/Macro/record. then, perform these steps:
Ctr+a (selects all text)
Format/Font/Hebrew
Tools/Macro/stop recording. give it a name, how about Hebrew
Then, record another macro to convert back to Arial or whatever...
2) Tools/Customise/Keyboard/Macros/Hebrew, press Ctr+H to assign Ctrl-H as the hotkey. take all defaults, click Assign
Youmay find it interesting to look at the macro code you just 'wrote'. Here is how:
Tools/Macros/Macro/highlight the macro/Edit
you can tinker in there quite a bit even without knowing visual basic. try it.
-------
Sub hebrew()
'
' Hebrew Macro
' Macro recorded 4/9/2003 by netadmin
'
Selection.WholeStory
With Selection.Font
.Name = "Ransom"
.Size = 12
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor =wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False .Color = wdColorAutomatic
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
End With
End Sub

by sgt_shultz

i used the font 'Ransom' for my example, change that font name to the Hebrew font you have installed on your system...

by hbb

This helped but did not quite do what I wanted.
Have found another way around it

This discussion is closed to new replies.