JBusby
Wed Apr 09 23:22:00 PDT 2008
Thanks again. Everything is "ship-shape" now! I just had a problem finding my
way to the right place in the keyboard shortcut dialogue box when I created
my shortcut.
P.S. Finding some good stuff too, at your "Microsoft Word Help and Tips
Pages" (
http://gregmaxey.mvps.org).
--
JBusby
"Gregory K. Maxey" wrote:
> You don't need to record a macro. Just insert a standard project module.
> Copy the code to the module and then use the Keyboard shortcuts to set a
> shortcut to that modue and procedure name.
>
> JBusby wrote:
> > That got it! Thanks!
> > But I'm still finding it necessary to create the macro keyboard
> > shortcut by means of a "Record Macro" procedure (mentioned earlier)
> > in order to avoid getting a pop-up that says, "You are about to add a
> > digital signature to this document."
> > This seems to happen when I create the macro, and then, in a separate
> > process, create the keyboard shortcut from the "Customize the Quick
> > Access Toolbar and keyboard shortcuts" Dialogue Box.
> > It does that when I run the macro in the active document.
> >
> >> "Arial" is there simply because that is the font I selected to use
> >> in the font swap during my test. My default paragraph font is
> >> "Times New Roman" when I toggle the macro the font shifts between
> >> Times New Roman and Arial. But, I see now that what I posted is
> >> confusing. It should read:
> >>
> >>>>>> If Not Selection.Font.Name = "Your Font Name" Then
> >>>>>> Selection.Font.Name = "Your Font Name"
> >>>>>> Else
> >>>>>> Selection.Font.Reset
> >>>>>> End If
> >>>>>> End Sub
> >>
> >> I can see now why the code worked the first time but then quit.
> >> Sorry.
> >>
> >>
> >> "JBusby" <JBusby@discussions.microsoft.com> wrote in message
> >> news:89CF7020-ABDF-473E-9FA9-F9D670A3EA9A@microsoft.com...
> >>> Thanks, Greg.
> >>> I appreciate your efforts on this.
> >>> One other question: What does the first line of code do? Why is
> >>> "Arial" there?
> >>> JBusby@Rogers.com
> >>> --
> >>> JBusby
> >>>
> >>>
> >>> "Gregory K. Maxey" wrote:
> >>>
> >>>> J,
> >>>>
> >>>> Both work here without issues. If you will send you e-mail
> >>>> address I will
> >>>> send you a template with Fontswap assigned shortcut Alt+f,s
> >>>>
> >>>> JBusby wrote:
> >>>>> Hello Greg, and thanks for your response.
> >>>>> I'm having only limited success with the macros (having tried
> >>>>> both of them).
> >>>>>
> >>>>> I faced two problems:
> >>>>>
> >>>>> 1. Using the "Normal" Style, I applied "Fontswap" to a keyboard
> >>>>> shortcut and the
> >>>>> result was what I expected. But, I was unable, using the same
> >>>>> keyboard shortcut,
> >>>>> to return to the original font (Cambria body) after typing the
> >>>>> "Fontswap" characters (Old English Text MT).
> >>>>>
> >>>>> 2. The other problem occurred when I tried to create a macro
> >>>>> using the "Macros" button, on the Developer Tab, in the Code
> >>>>> Group (Word 2007). After naming the macro ("FontSwap"), I created
> >>>>> a keyboard shortcut from the Quick Access Toolbar by clicking
> >>>>> "Macros" in the "Choose Commands From" dialogue box, and
> >>>>> completed the steps. However, when I tried to use the custom
> >>>>> keyboard shortcut in the actual document I got a pop-up that
> >>>>> said, "You are about to add a digital signature to this document.
> >>>>> . ." When I "signed" it, the document wouldn't allow anything
> >>>>> further to happen! If I tried to type anything at all the Status
> >>>>> Bar said, "This modification is not allowed because the selection
> >>>>> is locked." Gee Whiz!
> >>>>> So I recorded a macro instead (in a new test document), assigned
> >>>>> the keyboard shortcut, paused the recorder, pasted the code, and
> >>>>> it worked, for the most part, as previously described (above).
> >>>>> So I probably did something wrong...right? Help?
> >>>>>
> >>>>>> If the original text is drafted using a style then I would assign
> >>>>>> something like FontSwap to a keyboard shortcut:
> >>>>>>
> >>>>>> Sub FontSwap()
> >>>>>> If Not Selection.Font.Name = "Arial" Then
> >>>>>> Selection.Font.Name = "Your Font Name"
> >>>>>> Else
> >>>>>> Selection.Font.Reset
> >>>>>> End If
> >>>>>> End Sub
> >>>>>>
> >>>>>> If not, I would use something like:
> >>>>>>
> >>>>>> If Not Selection.Font.Name = "Arial" Then
> >>>>>> Selection.Font.Name = "Your Font Name"
> >>>>>> Else
> >>>>>> Selection.Font.Name = "Your defaultparagraphfont name"
> >>>>>> End If
> >>>>>> End Sub
> >>>>>>
> >>>>>>
> >>>>>>
> >>>>>>
> >>>>>> JBusby wrote:
> >>>>>>> I have document that uses a particular font (usually no more
> >>>>>>> than a few characters in length) in numerous places throughout.
> >>>>>>> Is there a macro that would toggle this font on and off using
> >>>>>>> a shortcut-key combination (e.g. like the way that CTRL + "I"
> >>>>>>> does for italic type)?
>
>
>