[mso] Re: Macro for Dropped Cap in Word 2002?
- From: Genevieve <gene182000@xxxxxxxxx>
- To: mso@xxxxxxxxxxxxx
- Date: Tue, 29 May 2007 10:11:00 -0700 (PDT)
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).
//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).
//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:
