[mso] Re: Macro for Dropped Cap in Word 2002?

Hi Genevieve,

Many thanks for fixing my macro (included below).

May I ask you how to reinitialize its focus. It works fine when it is invoked
for the first time, but when I try to apply it to a second paragraph, it
creates a drop cap out of the second letter in the first paragraph. IOW, after
the first use, I move to a different paragraph, and invoke it again. It
doesn't matter whether I highlight the first letter of the new paragraph or
not. A third invocation just makes the first drop cap double size.

How to "turn off" this macro? Does it need to be modified, or should I issue
an intervening command or keystroke? Pressing Esc doesn't help.

Thanks again,

Ray Shapp

Sub DropCap()
'
' DropCap Macro
' Macro recorded May 28, 2007 by Ray Shapp
' Extensively modified by Genevieve from MSO@xxxxxxxxxxxxx
'
    Selection.Paragraphs(1).Range.Characters(1).Select
    With Selection.Paragraphs(1).DropCap
        .Position = wdDropNormal
        .LinesToDrop = 3
        .DistanceFromText = InchesToPoints(0.08)
    End With
    With Selection.Font
        .Name = "Arial"
        .Size = 52
        .Color = wdColorGray50
        .Shadow = True
    End With
End Sub



----- Original Message ----- 
From: "Genevieve" <gene182000@xxxxxxxxx>
To: <mso@xxxxxxxxxxxxx>
Sent: Monday, May 28, 2007 8:01 AM
Subject: [mso] Re: Macro for Dropped Cap in Word 2002?


> Hello Ray,
> I believe your main problem is you are "supposing" that the cursor is at 
> beginning of paragraph when you run your macro.
> Well, if it is not the case, you may run into problems (You will have a 
> dropcap in the middle of a par. which is not what you  want I suppose). So 
> first, I would advise you to make sure the cursor is at the right position 
> and then apply the dropcap and the format.
> the following worked for me:
> sub DropCap()
>    Selection.Paragraphs(1).Range.Characters(1).Select
>    With Selection.Paragraphs(1).DropCap
>        .Position = wdDropNormal
>        .LinesToDrop = 3
>        .DistanceFromText = CentimetersToPoints(0)
>    End With
>    With Selection.Font
>        .Name = "Arial"
>        .Size = 52
>        .Shadow = True
>    End With
> end sub
>
> As you may see, I also deleted all the unecessary lines that you get when 
> you record a macro.
>
> Hope this will help you.
> Genevieve
>


*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, visit the group's homepage and use the dropdown 
menu at the top.  This will allow you to unsubscribe your email address or 
change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to share files with the group, you must join our Yahoo sister group. 
 This group will not allow for posting of emails, but will allow you to join 
and share problem files, templates, etc.:  
http://tech.groups.yahoo.com/group/MicrosoftOffice . This group is for FILE 
SHARING ONLY.

If you are using Outlook and you see a lot of unnecessary code in your email 
messages, read these instructions that explain why and how to fix it:
http://personal-computer-tutor.com/abc3/v28/greg28.htm
*************************************************************

Other related posts: