Word 2002 macro required
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
Software
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
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 hbb
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
by hbb
This helped but did not quite do what I wanted.
Have found another way around it
by hbb
This discussion is closed to new replies.
Sort by Trending