[mso] Re: Macro for Dropped Cap in Word 2002?
- From: "Chinell, David F (GE Indust, Security)" <David.Chinell@xxxxxx>
- To: <mso@xxxxxxxxxxxxx>
- Date: Tue, 29 May 2007 11:10:01 -0400
Ray:
I'm not going to give you a solution, but I hope I can help you
troubleshoot.
All you should need to do is to edit the code like any other text -- cut
and paste, etc. Maybe your final code would look like:
***macro follows***
Sub CombinedDrop()
'
With Selection.Paragraphs(1).DropCap
.Position =3D wdDropNormal
.FontName =3D "Arial"
.LinesToDrop =3D 3
.DistanceFromText =3D InchesToPoints(0.08)
End With
Selection.MoveLeft Unit:=3DwdCharacter, Count:=3D1, =
Extend:=3DwdExtend
With Selection.Font
.Name =3D "Arial"
.Size =3D 52
.Bold =3D False
.Italic =3D False
.Underline =3D wdUnderlineNone
.UnderlineColor =3D wdColorAutomatic
.StrikeThrough =3D False
.DoubleStrikeThrough =3D False
.Outline =3D False
.Emboss =3D False
.Shadow =3D True
.Hidden =3D False
.SmallCaps =3D False
.AllCaps =3D False
.Color =3D wdColorGray50
.Engrave =3D False
.Superscript =3D False
.Subscript =3D False
.Spacing =3D 0
.Scaling =3D 100
.Position =3D -5.5
.Kerning =3D 0
.Animation =3D wdAnimationNone
End With
End Sub
*** macro ends ***
Nothing in this actually "adds" three lines of text. The problem must
lie in what's being selected when the second macro runs. To
troubleshoot, try running the macro one step at a time and see what
happens at each step.
To run the macro line-by-line:
1. Open the target document.
2. Open the VBE (Alt+F11) and locate your combined macro.
3. In the document, select the target letter.
4. In the macro, position the cursor anywhere and press F8 once for each
line.
You'll see the line that's about to be executed highlighted. Check the
document after each step (you may need to position your windows
side-by-side and fiddle with the view and magnification of the target
document to see them both at once).
Bear
*************************************************************
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:
