Thread: Using two fonts
View Single Post
  #15   Report Post  
Posted to microsoft.public.word.newusers
Cooz
 
Posts: n/a
Default Using two fonts

Hi Greg,

It's me again.

I find that recording a simple macro functions perfectly as a placeholder:
"Hey, user! Type/Paste here!" The macro is selected as soon as the VBA-editor
is open.
Most users haven't ever seen the VBA-editor and do not desire to see it.
Now, they can put in their code and leave it, and be certain that it is in
the right place.

"Press Alt+F11" doesn't do that.

Cooz


"Greg" wrote:

Record any macro, say record clicking the B-button on the Formatting
toolbar, and be sure to choose Normal.dot under 'Store macro in'.
Choose Tools | Macro Macro's..., select your macro and choose Edit.
The
VBA-editor opens.

Why not just: Press ALT+F11

And instead of cycling through each letter (while understandably
insignificant in a letter from the tooth fairy it might be laborious in
say War and Peace) why not start out with Time New Roman and then
something like:
Sub TTF1()
Dim oRng As Word.Range
Set oRng = ActiveDocument.Content
With oRng.Find
.MatchWildcards = True
.Text = "[A-z]"
.Replacement.Text = "^&"
.Replacement.Font.Name = "FairyScrollDisplay"
.Execute Replace:=wdReplaceAll
End With
End Sub

Seems faster and as a bonus it doesn't skip tables.