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

Genevieve,

Your code certainly worked beautifully for me. I ran the code for each
paragraph I wanted the drop-cap, without any poblem. 


-- 
Geoff Culbertson
Petersfield, Hampshire, UK

-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On Behalf
Of Genevieve
Sent: 29 May 2007 18:11
To: mso@xxxxxxxxxxxxx
Subject: [mso] Re: Macro for Dropped Cap in Word 2002?

Hello Ray,
Sorry for not replying earlier. I did not have a chance to check the mail
until now. I am pleased the code helped you at least partly.
Again, I am quite sure it is a matter of where the cursor (the selection)
is. 
How do you call your macro at all? where is the selection when you do call
the macro. did you change the code and write for example
Selection.Paragraphs(1).Range.Characters(2).Select
Well, I absolutely do not understand how the second letter of the first
paragraph would be "targeted" with the proposed code.
If I understand the code correctly, the first part of it invokes the DropCap
of the first paragraph. I believe the DropCap can only be the first
character of the paragraph.
the second part formats the selection to be Arial and size 52. That is where
the position of the cursor is very important. because if you did not make
sure to select the first letter of the paragraph, the format will be applyed
to another character and you may have two "big letters" that will look like
DropCaps.  
What don't you play with the code in order to be sure that you understand
every part of it.
I would for example first use only the part of the dropCap and apply it to
different paragraphs and see how it works. and then only would I use the
second part of the formating. 

Hope this will help
Genevieve

----- Original Message ----
From: Ray Shapp <ras45@xxxxxxxxxxxxx>
To: mso@xxxxxxxxxxxxx
Sent: Tuesday, May 29, 2007 5:44:47 AM
Subject: [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
*************************************************************


 
____________________________________________________________________________
________
Don't get soaked.  Take a quick peak at the forecast
with the Yahoo! Search weather shortcut.
http://tools.search.yahoo.com/shortcuts/#loc_weather

*************************************************************
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
*************************************************************

*************************************************************
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: