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

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).
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: